plotsR

alt<-list.files(pattern = "alt_")

alt_mat<-matrix(nrow=8,ncol=7)

for (i in alt){

x<-read.table(i, header=T)

c(alt_mat,t(x$xfold))

}

lat<-list.files(pattern = "lat_")

xmat<-matrix(nrow=8,ncol=7)

pmat<-matrix(nrow=8,ncol=7)

for (i in lat){

x<-read.table(i, header=T)

xmat<-c(xmat,t(x$xfold))

pmat<-c(pmat,t(x$p))

}

##plotting using library(corrplot)

alt<-read.table("altitude_pairwise_xfolds0.9.txt", header=T)

alt_p<-read.table("altitude_pairwise_pvals0.9.txt", header=T)

alt_p<-as.matrix(alt_p)

library(corrplot)

library(RColorBrewer)

corrplot(alt, is.corr=FALSE,method="circle", type="lower",p.mat=alt_p, sig.level=0.05, insig="blank",col=brewer.pal(n=8, name="Greens"))