# NOT RUN {
## Compute VPC for the first two features under linear mixed models for Gaussian-like datasets.
## Provide normalized data and include hypothesis testing on presence of
## heritability:
result.vst <- fitComputeVPC.lmer(simData_vst[1:2,], strains, test = TRUE)
## Extract parameters
vpc.vst <- result.vst[[1]]
## Extract p-values
pval.vst <- result.vst[[2]]
## Visulize the distribution of p-values.
hist(pval.vst, breaks = 30, col = "cyan")
# }
Run the code above in your browser using DataLab