Displaying 1 result from an estimated 1 matches for "cov04".
Did you mean:
nov04
2008 Mar 25
1
Error propagation
...same index.
### Is this right or am I m issing something here???
if (cov) {
for (i in 1:nrow(perm)) {
COV01 <- part[perm[i, 1]]
COV02 <- part[perm[i, 2]]
COV03 <- as.vector(varList[[perm[i, 1]]])
COV04 <- as.vector(varList[[perm[i, 2]]])
COVALL[i] <- COV01 * COV02 * cov(COV03, COV04, use =
"complete.obs")
}
}
covMat <- cov(as.data.frame(varList))
### calculate error from square root af all squared terms
ERROR <- sq...