Displaying 2 results from an estimated 2 matches for "varhl2xlist".
Did you mean:
varhh2xlist
2012 May 13
1
how to write data using xlsReadWrite
...varLL2ylist[i] <- var(y.modwt$LL2[,i])
}
##Get the variance from the overall y variance
varLL2y <- var(varLL2ylist)
#-----------------------------------------------------------------#
##Get the dimension
##HL2
dimHL2 <- dim(y.modwt$HL2)
dimHL2x <- dimHL2[1]
dimHL2y <- dimHL2[2]
varHL2xlist <- c(rep(0, dimHL2x))
varHL2ylist <- c(rep(0, dimHL2y))
##Loop to get variance from x axis
for(i in seq(dimHL2x)){
varHL2xlist[i] <- var(y.modwt$HL2[i,])
}
##Get the variance from the overall x variance
varHL2x <- var(varHL2xlist)
##Loop to get variance from y axis
for(i in seq(...
2012 May 13
4
write data using xlsReadWrite
...{
varLL2ylist[i] <- var(y.modwt$LL2[,i])
}
##Get the variance from the overall y variance
varLL2y <- var(varLL2ylist)
#-----------------------------------------------------------------#
##Get the dimension
##HL2
dimHL2 <- dim(y.modwt$HL2)
dimHL2x <- dimHL2[1]
dimHL2y <- dimHL2[2]
varHL2xlist <- c(rep(0, dimHL2x))
varHL2ylist <- c(rep(0, dimHL2y))
##Loop to get variance from x axis
for(i in seq(dimHL2x)){
varHL2xlist[i] <- var(y.modwt$HL2[i,])
}
##Get the variance from the overall x variance
varHL2x <- var(varHL2xlist)
##Loop to get variance from y axis
for(i in seq(dimH...