# 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 <- polyDetrend(x[,2], acqTime = 4e-6, nIntervals = 100, degre = 5)
# }
Run the code above in your browser using DataLab