# load methylation data object
data(methylationDataList)
# save the one datasets into a file
saveBismark(methylationDataList[["WT"]], "chr3test_a_thaliana_wt.CX_report")
# load the data
methylationDataWT <- readBismark("chr3test_a_thaliana_wt.CX_report")
#check that the loading worked
all(methylationDataWT == methylationDataList[["WT"]])
Run the code above in your browser using DataLab