library(FASeg)
?FASeg
data(sample.orig)
f<-faseg(sample.orig, sig=1e-5, smooth.range=75, log.transform=T)
present.batch(f)
# present.batch(f,each.chrom=T)
present.change(sample.orig,f,c(1.2, 2.8))
cgh.image(f,data.scale="original")
data(gene.h18)
data(band.h18)
# gene.level<-gene.cn(f,gene.h18,band.h18)
# gene.level[1:10,]
gene.level.2<-gene.cn(f,gene.h18,band.h18,compress=T)
dim(gene.level.2)
gene.level.2[1:10,]