options(stringsAsFactors=FALSE)
## Commented out below See vignette for more detailed usage information ##
## Load genome bed file ##
#data(hg19_genes_bed)
## Create a PvalueAnnotation with defaults for promoter size##
#test_annotation<-makePvalueAnnotation(data=hg19_genes, gene_name_col=5)
## Load DNA methylation bed file ##
#data(methylationdata)
#methylation<-methylation[-which(is.na(methylation[,5])),]
#methylation[,5]<-replace(methylation[,5],methylation[, 5] == 0,
#min(subset(methylation[,5], methylation[,5]!=0), na.rm=TRUE))
## Load DNA methylation into PvalueAnnotation modCorr=F for example##
## NOTE: Commented out below. See vignette for better example ##
#test_annotation <- annotateModification(pvalue_annotation=test_annotation,
#mod_data=methylation, weight_by=c(promoter="distance", body="distance"),
#verbose=FALSE, mod_corr=FALSE, mod_type="methylation")
Run the code above in your browser using DataLab