powered by
PMplot(pmatrix, level=0.05, mtitle=NULL, xylabel=NULL, margin=5, legendx=0.73, newwd=TRUE)
library(predictmeans) set.seed(2013) pvalues <- runif(28) pmatrix <- matrix(0,8,8) pmatrix[lower.tri(pmatrix)] <- pvalues round(pmatrix, 4) PMplot(pmatrix)
Run the code above in your browser using DataLab