search for: esh_messenger_052008

...} } pval <- matrix(round(as.numeric(pval),digit), n, n, byrow = T) rownames(pval) <- colnames(x) colnames(pval) <- colnames(x) return(pval) } Thanks for any input, Monica _________________________________________________________________ esh_messenger_052008

...667110 0.0000000 0.8367053 [5,] 0.6056680 0.7880525 0.6739433 0.8367053 0.0000000 Dimitris Rizopoulos suggested to look at rcor.test() from ltm, which I will do shortly. Thank you again for all your thorough answers, Monica _________________________________________________________________ esh_messenger_052008

Hello All, I have a covariance matrix, generated by read.table, and cov: co<-cov(read.table("c:/r.x")) X Y Z X 0.0012517684 0.0002765438 0.0007887114 Y 0.0002765438 0.0002570286 0.0002117336 Z 0.0007887114 0.0002117336 0.0009168750 And a weight vector generated by w<- read.table("c:/r.weights") X Y