## Example for mass spectrometry dataset
temp = tempdir()
datafiles = c(file.path(system.file("cdf/KO", package="faahKO"), grep("CDF",dir(system.file("cdf/KO", package="faahKO")),ignore.case=TRUE,value=TRUE)), file.path(system.file("cdf/WT", package="faahKO"), grep("CDF",dir(system.file("cdf/WT", package="faahKO")),value=TRUE)))
file.copy(datafiles, temp, recursive=TRUE)
isafiles = file.path(system.file(package="faahKO"), grep("txt",dir(system.file(package="faahKO")),value=TRUE))
file.copy(isafiles, temp, recursive=TRUE)
isaObject1 = readISAtab(path = temp)
## Example of readISAtab for a mass spectrometry experiment
isazip <- system.file("extdata","faahKO-metadata.zip", package="Risa")
isaObject2 <- readISAtab(zipfile = isazip, path = file.path(system.file("extdata", package="Risa"),"ISAexample"), verbose =TRUE)
Run the code above in your browser using DataLab