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