# NOT RUN {
# locate example file:
vptszipfile <- system.file("extdata", "vpts.txt.zip", package = "bioRad")
# }
# NOT RUN {
unzip(vptszipfile, "your/directory/and/file/name.txt")
# load time series:
ts <- read_vpts("your/directory/and/file/name.txt", radar = "KBGM", wavelength = "S")
ts
# }
Run the code above in your browser using DataLab