##FIXME: example can be run by loading data package if it is installed, once it exists
if("PCHiCdata" %in% rownames(installed.packages()))
{
library(PCHiCdata)
data(smESC)
##modifiy smESC to use correct design directory
designDir <- file.path(system.file("extdata", package="PCHiCdata"), "mm9TestDesign")
smESC <- modifySettings(cd=smESC, designDir=designDir)
##normalise here...
normaliseOtherEnds(smESC)
} else {
warning("Please install the PCHiCdata package to run this example.")
}
Run the code above in your browser using DataLab