Displaying 1 result from an estimated 1 matches for "cov_rank".
Did you mean:
corank
2012 Feb 17
2
(subscript) logical subscript too long in using apply
...row = nrow(data),
ncol=ncol(data), byrow=TRUE)
T <- matrix(c(rep(NA,length(n)*ncol(data))), nrow = length(n),
ncol=ncol(data), byrow=TRUE)
Tdiff<- matrix(c(rep(NA,length(n)*ncol(data))), nrow = length(n),
ncol=ncol(data), byrow=TRUE)
T1<- c(rep(NA,ncol(data)))
T0<- c(rep(NA,ncol(data)))
cov_rank<-matrix(c(rep(NA,ncol(data)*ncol(data))), nrow = ncol(data), ncol
= ncol(data) , byrow=TRUE)
med <- c(rep(NA,ncol(data)))
mean_ge <- c(rep(NA,ncol(data)))
n<-c(NA,2)
if (ncol(data)>1){
for(m_j in 1:ncol(data)){
med[m_j]<-median(data[,m_j])}
for(m_j in 1:ncol(dat...