# Use the example data
data(ex_trait, package="ASSET")
# Define the input arguments to h.traits
snps <- as.vector(data[, "SNP"])
traits.lab <- paste("Trait_", 1:6, sep="")
beta.hat <- as.matrix(data[, paste(traits.lab, ".Beta", sep="")])
sigma.hat <- as.matrix(data[, paste(traits.lab, ".SE", sep="")])
cor <- list(N11=N11, N00=N00, N10=N10)
ncase <- diag(N11)
ncntl <- diag(N00)
# Now let us call h.traits on these summary data.
res <- h.traits(snps, traits.lab, beta.hat, sigma.hat, ncase=ncase,
ncntl=ncntl, cor=cor, cor.numr=FALSE, search=NULL,
side=2, meta=TRUE, zmax.args=NULL)
h.summary(res)
Run the code above in your browser using DataLab