# NOT RUN {
data(masses)
cdsw <- Cdsw(masses)
breaks <- cdsw$sampling_breaks(maxwindow=100,plot=TRUE)
table <- cdsw$asTable()
dim(table)
head(table)
tmp <- readjustWindows(table, masses,maxbin=10)
data.frame(tmp)
# }
Run the code above in your browser using DataLab