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"))