options(stringsAsFactors=FALSE)
data(test_annotation_score_data)
## NOTE: commented out for example. See vignette for better explanation ##
#test_annotation<-scorePval(pvalue_annotation=test_annotation,
#weights=c(methylation_promoter=.3,methylation_body=.1,expression=.3,
#methylation_h3k4me1=.3))
Run the code above in your browser using DataLab