| sumexp2mae {autonomics} | R Documentation |
Create MultiAssayExperiment from SummarizedExperiment list
sumexp2mae(experiments)
experiments |
named list of SummarizedExperiments |
MultiAssayExperiment
require(magrittr)
somascanfile <- download_data('atkin18.somascan.adat')
metabolonfile <- download_data('atkin18.metabolon.xlsx')
somascan <- read_somascan(somascanfile, plot=FALSE)
metabolon<- read_metabolon(metabolonfile, plot=FALSE)
svars(somascan) %<>% stringi::stri_replace_first_fixed(
'SampleGroup', 'subgroup')
svars(metabolon) %<>% stringi::stri_replace_first_fixed(
'Group', 'subgroup')
metabolon$replicate <- NULL
object <- sumexp2mae(list(somascan=somascan, metabolon=metabolon))