if (require(prebsdata)) {
# Get full paths to data files in \code{prebsdata} package
bam_file1 <- system.file(file.path("sample_bam_files", "input1.bam"), package="prebsdata")
bam_file2 <- system.file(file.path("sample_bam_files", "input2.bam"), package="prebsdata")
bam_files <- c(bam_file1, bam_file2)
custom_cdf_mapping1 <- system.file(file.path("custom-cdf", "HGU133Plus2_Hs_ENSG_mapping.txt"),
package="prebsdata")
custom_cdf_mapping2 <- system.file(file.path("custom-cdf", "HGU133A2_Hs_ENSG_mapping.txt"),
package="prebsdata")
manufacturer_cdf_mapping <- system.file(file.path("manufacturer-cdf", "HGU133Plus2_mapping.txt"),
package="prebsdata")
if (interactive()) {
# Run PREBS using custom CDF without parallelization ("rpa" mode)
prebs_values <- calc_prebs(bam_files, custom_cdf_mapping1)
head(exprs(prebs_values))
# Run PREBS using custom CDF without parallelization ("rma" mode)
prebs_values <- calc_prebs(bam_files, custom_cdf_mapping1, sum.method="rma")
head(exprs(prebs_values))
# Run PREBS using custom CDF with parallelization
library(parallel)
N_CORES = 2
CLUSTER <- makeCluster(N_CORES)
prebs_values <- calc_prebs(bam_files, custom_cdf_mapping1, cluster=CLUSTER)
stopCluster(CLUSTER)
# Run PREBS using another custom CDF
prebs_values <- calc_prebs(bam_files, custom_cdf_mapping2)
# Run PREBS and return data frame instead of ExpressionSet object
prebs_values <- calc_prebs(bam_files, custom_cdf_mapping1, output_eset=FALSE)
head(prebs_values)
}
# Run PREBS using Manufacturer's CDF (outputs probe set expressions)
prebs_values <- calc_prebs(bam_files, manufacturer_cdf_mapping)
head(exprs(prebs_values))
# Same as above, but state CDF package name explicitly
prebs_values <- calc_prebs(bam_files, manufacturer_cdf_mapping, cdf_name="hgu133plus2cdf")
}
Run the code above in your browser using DataLab