Nothing
R/orth.R
In ThreeWay: Three-Way Component Analysis
orth <-
function(A){
svd=svd(A)
m=nrow(A)
n=ncol(A)
if (m>1){
s=svd$d
} else{
if (m==1){
s=svd$d[1]
} else{
s==0
}
}
eps=1.0e-016
tol=max(m,n)*max(s)*eps
r=sum(s>tol)
Q=svd$u[,1:r]
return(Q)
}
Try the ThreeWay package in your browser
Any scripts or data that you put into this service are public.
ThreeWay documentation built on May 2, 2019, 9:20 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
orth <-
function(A){
svd=svd(A)
m=nrow(A)
n=ncol(A)
if (m>1){
s=svd$d
} else{
if (m==1){
s=svd$d[1]
} else{
s==0
}
}
eps=1.0e-016
tol=max(m,n)*max(s)*eps
r=sum(s>tol)
Q=svd$u[,1:r]
return(Q)
}
Try the ThreeWay package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.