From: Monica Pisica <pisicandru_at_hotmail.com>

Date: Thu, 08 May 2008 19:05:53 +0000

pval <- matrix(round(as.numeric(pval),digit), n, n, byrow = T) rownames(pval) <- colnames(x)

colnames(pval) <- colnames(x)

return(pval)

}

R-help_at_r-project.org mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Thu 08 May 2008 - 19:07:56 GMT

Date: Thu, 08 May 2008 19:05:53 +0000

for (j in 1:n){

pval[i, j] <- cor.test(x[,i], x[,j], method = method)$p.value

} }

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

R-help_at_r-project.org mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Thu 08 May 2008 - 19:07:56 GMT

Archive maintained by Robert King, hosted by
the discipline of
statistics at the
University of Newcastle,
Australia.

Archive generated by hypermail 2.2.0, at Fri 09 May 2008 - 07:30:36 GMT.

*
Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help.
Please read the posting
guide before posting to the list.
*