## 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.boxplot.pdf",height=6,width=6)
# PermMeta.boxplot(result,plot="Qp",
# true_data_pch=5,pch_col='red',border_col='black',fill_col=NULL,
# main="boxplot for heterogeneity Q p_vlaue")
# PermMeta.boxplot(result,plot="I2",
# true_data_pch=5,pch_col="red",border_col='black',fill_col=NULL,
# main="boxplot plot for heterogeneity I2")
# PermMeta.boxplot(result,plot="merged_LnOR",
# true_data_pch=5,pch_col="red",border_col='black',fill_col=NULL,
# main="boxplot plot for merged_LnOR")
# PermMeta.boxplot(result,plot="merged_LnOR_VAR",
# true_data_pch=5,pch_col="red",border_col='black',fill_col=NULL,
# main="boxplot plot for merged_LnOR_VAR")
# PermMeta.boxplot(result,plot="merged_LnOR_p",
# true_data_pch=5,pch_col="red",border_col='black',fill_col=NULL,
# main="boxplot plot for merged_LnOR_p")
# dev.off()
Run the code above in your browser using DataLab