# Create fake mass spectrometry data
# \donttest{
s1 <- cbind(1:20, rlnorm(20))
s2 <- cbind(1:20, rlnorm(20))
s3 <- cbind(1:20, rlnorm(20))
# Save as csv files in temporary directory
path <- tempdir()
write.table(s1, file = file.path(path, "s1.csv"),
row.names = FALSE, col.names = FALSE, sep=" ")
write.table(s2, file = file.path(path, "s2.csv"),
row.names = FALSE, col.names = FALSE, sep=" ")
write.table(s3, file = file.path(path, "s3.csv"),
row.names = FALSE, col.names = FALSE, sep=" ")
# Import files and arrange into a list of MassSpectrum objects
spectra <- importSpectra(where = path)
# }
Run the code above in your browser using DataLab