# prepare
library(minfiData)
data(MsetEx)
d <- CNV.load(MsetEx)
anno <- CNV.create_anno()
# create object
x <- CNV.fit(query = d['GroupB_1'], ref = d[c('GroupA_1', 'GroupA_2', 'GroupA_3')], anno)
# modify object
x <- CNV.bin(x)
x <- CNV.detail(x)
x <- CNV.segment(x)
# general information
x
show(x)
# coefficients of linear regression
coef(x)
# show or replace sample name
names(x)
names(x) <- 'Sample 1'
# output plots
CNV.genomeplot(x)
CNV.genomeplot(x, chr = 'chr6')
#CNV.detailplot(x, name = 'MYCN')
#CNV.detailplot_wrap(x)
CNV.write(x, what = 'segments')
Run the code above in your browser using DataLab