## load data set
data(physcoCounts)
## segmentize data
attach(physcoCounts)
x <- segmentizeCounts(counts=counts, start=start, chr=chromosome,
region=region, strand=strand)
detach(physcoCounts)
x
segments(x)
## normalize data, w/o and w/ fitting
yRatio <- normalizeCounts(x)
yFit <- normalizeCounts(x, fit=TRUE)
yFit
## identify TSS
z <- identifyStartSites(yFit)
z
## inspect results
head(tss(z, 1))
plot(z, 1)
Run the code above in your browser using DataLab