Displaying 3 results from an estimated 3 matches for "stdx".
Did you mean:
std
2001 Nov 05
1
Problem to transfer Splus functions
...# wt vecteur des poids
#============================================================
nc <- ncol(x)
nr <- nrow(x)
nam <- dimnames(x)
wt <- wt/sum(wt)
mx <- wt %*% x
xx <- t(t(x) - as.vector(mx))
rwt <- sqrt(wt)
y <- rwt * xx #.. integration des poids..
stdx <- sqrt(diag(t(y) %*% y))
if(ctr)
x <- xx
x <- t(t(x)/stdx)
dimnames(x) <- nam
attr(x, "std") <- stdx
x
}
ca mg cl so4 hco3 co2 c te deb
62.8 3.5 1.75 27.5 173 2.93 300 10.40 0.092
62.8 4.0 1.65 27.0 177 2.92 300 10.40 0.490
64.5 3.6 1.65 28.5 17...
2002 Mar 08
1
Matrix multiplication problem
...x86
os Win32
system x86, Win32
status
major 1
minor 4.1
year 2002
month 01
day 30
language R
code is below:
rda <- function(y, x, sqroot=FALSE, stdy=FALSE, stdx=FALSE)
{
y <- as.matrix(y) #species data matrix
x <- as.matrix(x) #environmental or constraining variables
n <- length(y[,1]) #number of observations
if (stdy==FALSE){
y <- scale(y, center=TRUE, scale=FALSE)
} else {
y <- scale(y, center=TRUE, s...
2010 Feb 10
2
Total least squares linear regression
Dear all,
After a thorough research, I still find myself unable to find a function
that does linear regression of 2 vectors of data using the "total least
squares", also called "orthogonal regression" (see :
http://en.wikipedia.org/wiki/Total_least_squares) instead of the
"ordinary least squares" method. Indeed, the "lm" function has a