# NOT RUN {
### Please navigate to
### (https://github.com/FCSlib/FCSlib/tree/master/Sample%20Data)
### to find this sample data
x <- read.table("PB030.dat", header = F)
x.d <- expDetrend(x[,2], acqTime = 4e-6, nIntervals = 100, pois = F)
# Poisson sampling (this might take a little bit longer)
x.d.p <- expDetrend(x[,2], acqTime = 4e-6, nIntervals = 100, pois = T)
# }
Run the code above in your browser using DataLab