Displaying 2 results from an estimated 2 matches for "varll2xlist".
Did you mean:
varhl2xlist
2012 May 13
1
how to write data using xlsReadWrite
...varHH2ylist[i] <- var(y.modwt$HH2[,i])
}
##Get the variance from the overall y variance
varHH2y <- var(varHH2ylist)
#-----------------------------------------------------------------#
##Get the dimension
##LL2
dimLL2 <- dim(y.modwt$LL2)
dimLL2x <- dimLL2[1]
dimLL2y <- dimLL2[2]
varLL2xlist <- c(rep(0, dimLL2x))
varLL2ylist <- c(rep(0, dimLL2y))
##Loop to get variance from x axis
for(i in seq(dimLL2x)){
varLL2xlist[i] <- var(y.modwt$LL2[i,])
}
##Get the variance from the overall x variance
varLL2x <- var(varLL2xlist)
##Loop to get variance from y axis
for(i in seq(...
2012 May 13
4
write data using xlsReadWrite
...{
varHH2ylist[i] <- var(y.modwt$HH2[,i])
}
##Get the variance from the overall y variance
varHH2y <- var(varHH2ylist)
#-----------------------------------------------------------------#
##Get the dimension
##LL2
dimLL2 <- dim(y.modwt$LL2)
dimLL2x <- dimLL2[1]
dimLL2y <- dimLL2[2]
varLL2xlist <- c(rep(0, dimLL2x))
varLL2ylist <- c(rep(0, dimLL2y))
##Loop to get variance from x axis
for(i in seq(dimLL2x)){
varLL2xlist[i] <- var(y.modwt$LL2[i,])
}
##Get the variance from the overall x variance
varLL2x <- var(varLL2xlist)
##Loop to get variance from y axis
for(i in seq(dimL...