file <- system.file("extdata", "SFF", "example.sff", package="R453Plus1Toolbox")
sffContainer <- readSFF(file)
sffContainer2 <- sffContainer[1:5]
## Not run: writeSFF(sffContainer2, "output.sff")
Run the code above in your browser using DataLab