library("COHCAP")
dir <- system.file("extdata", package="COHCAP")
beta.file <- file.path(dir,"GSE42308_truncated.txt")
sample.file <- file.path(dir,"sample_GSE42308.txt")
project.folder <- getwd()
expression.file <- file.path(dir,"expression-Average_by_Site_truncated.txt")
project.name <- "450k_avg_by_site_test"
beta.table <- COHCAP.annotate(beta.file, project.name, project.folder,
platform="450k-UCSC")
filtered.sites <- COHCAP.site(sample.file, beta.table, project.name,
project.folder, ref="parental")
filtered.islands <- COHCAP.avg.by.site(filtered.sites, project.name,
project.folder)
COHCAP.integrate.avg.by.site(filtered.islands, project.name, project.folder,
expression.file)
Run the code above in your browser using DataLab