Displaying 2 results from an estimated 2 matches for "varlh2ylist".
Did you mean:
varhh2ylist
2012 May 13
1
how to write data using xlsReadWrite
..."LL2")
image(y.modwt$HL2, col=rainbow(128), axes=FALSE, main="HL2")
#-------------------------------------------------------------------#
##Get the dimension
##LH2
dimLH2 <- dim(y.modwt$LH2)
dimLH2x <- dimLH2[1]
dimLH2y <- dimLH2[2]
varLH2xlist <- c(rep(0, dimLH2x))
varLH2ylist <- c(rep(0, dimLH2y))
##Loop to get variance from x axis
for(i in seq(dimLH2x)){
varLH2xlist[i] <- var(y.modwt$LH2[i,])
}
##Get the variance from the overall x variance
varLH2x <- var(varLH2xlist)
##Loop to get variance from y axis
for(i in seq(dimLH2y)){
varLH2ylist[i] <- v...
2012 May 13
4
write data using xlsReadWrite
...="LL2")
image(y.modwt$HL2, col=rainbow(128), axes=FALSE, main="HL2")
#-------------------------------------------------------------------#
##Get the dimension
##LH2
dimLH2 <- dim(y.modwt$LH2)
dimLH2x <- dimLH2[1]
dimLH2y <- dimLH2[2]
varLH2xlist <- c(rep(0, dimLH2x))
varLH2ylist <- c(rep(0, dimLH2y))
##Loop to get variance from x axis
for(i in seq(dimLH2x)){
varLH2xlist[i] <- var(y.modwt$LH2[i,])
}
##Get the variance from the overall x variance
varLH2x <- var(varLH2xlist)
##Loop to get variance from y axis
for(i in seq(dimLH2y)){
varLH2ylist[i] <- var(y...