R/CADJ.R
In SpyrosBalafas/mudfold: Multiple UniDimensional unFOLDing
Defines functions
CADJ
CADJ <-function(X,K=K,n=n,J=J){
CADJ.mat<-matrix(0,nrow=K,ncol=K,dimnames=list(J,J))
for (i in 1:K) for(j in 1:K) CADJ.mat[i,j] <- sum(X[,i]*X[,j]) / sum(X[,j])
diag(CADJ.mat) <- NA
return(CADJ.mat)
}
SpyrosBalafas/mudfold documentation built on May 19, 2019, 2:53 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.
Defines functions CADJ
CADJ <-function(X,K=K,n=n,J=J){
CADJ.mat<-matrix(0,nrow=K,ncol=K,dimnames=list(J,J))
for (i in 1:K) for(j in 1:K) CADJ.mat[i,j] <- sum(X[,i]*X[,j]) / sum(X[,j])
diag(CADJ.mat) <- NA
return(CADJ.mat)
}
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.