# NOT RUN {
pmat = matrix(c(
0.1148643, 1.0899150, -0.1148643, -0.0356926,
-0.0488138, 0.9203374, 0.0488138, 0.0251256,
-0.2107427, 1.0398224, 0.2107427, -0.0293247), nrow=3, byrow=TRUE)
lamvec = c(0.5,0.7,0.9)
cmat = matrix(c(
0.342, 0.090, 0.141,
0.297, -0.022, 0.177,
0.294, -0.044, 0.129), nrow=3, byrow=TRUE)
intercor.NNP(lamvec, cmat, pmat)
# }
Run the code above in your browser using DataLab