armstrongISAzip <- system.file("extdata","ARMSTRONG-S-3-metadata.zip", package="Risa")
armstrongISA <- readISAtab(zipfile = armstrongISAzip, path = file.path(system.file("extdata", package="Risa"),"armstrongISA"), verbose =TRUE)
assay.filename <- armstrongISA@assay.filenames[[1]]
miame <- getMIAMEMetadata(armstrongISA, assay.filename)
str(miame)
Run the code above in your browser using DataLab