Displaying 1 result from an estimated 1 matches for "mean_g".
Did you mean:
mean_
2012 Feb 17
2
(subscript) logical subscript too long in using apply
...UE)
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(data))
for(m_i in 1:nrow(data))
{
if(data[m_i,m_j]>med[m_j])
med_ge[m_i,m_j]=0
else
med_...