## import data
# data(MetaGenotypeCount)
## delete first line
# temp=MetaGenotypeCount[-1,];
# result=meta.MCPerm(case_11=as.numeric(temp[,14]),case_12=as.numeric(temp[,16]),
# case_22=as.numeric(temp[,18]),control_11=as.numeric(temp[,15]),
# control_12=as.numeric(temp[,17]),control_22=as.numeric(temp[,19]),
# model="allele",fixed_method="MH",random_method="DL",repeatNum=1000)
## set working directory to save the plots.
# setwd("D:\")
# pdf("PermMeta.Hist.pdf",height=6,width=6)
# PermMeta.Hist(result,plot="Qp",fill_col=NULL,border_col='black',
# arrows_col='red',main="Hist plot for heterogeneity Q p_vlaue",xlab="Q p_value")
# PermMeta.Hist(result,plot="I2",fill_col=NULL,border_col='black',
# arrows_col='red',main="Hist plot for heterogeneity I2",xlab="I2")
# PermMeta.Hist(result,plot="merged_LnOR",fill_col=NULL,border_col='black',
# arrows_col='red',main="Hist plot for merged_LnOR",xlab="merged_LnOR")
# PermMeta.Hist(result,plot="merged_LnOR_VAR",fill_col=NULL,border_col='black',
# arrows_col='red',main="Hist plot for merged_LnOR_VAR",xlab="merged_LnOR_Variance")
# PermMeta.Hist(result,plot="merged_LnOR_p",fill_col=NULL,border_col='black',
# arrows_col='red',main="Hist plot for merged_LnOR_p",xlab="merged_LnOR_p.value")
# dev.off()
Run the code above in your browser using DataLab