Skip to content

Instantly share code, notes, and snippets.

@lwaldron
Last active December 21, 2017 01:31
Show Gist options
  • Save lwaldron/4137c0c4fe215590a35a874f3a0af04b to your computer and use it in GitHub Desktop.
Save lwaldron/4137c0c4fe215590a35a874f3a0af04b to your computer and use it in GitHub Desktop.
wideFormat() with experimentColDataCols
library(SummarizedExperiment)
library(MultiAssayExperiment)
example("MultiAssayExperiment", echo=FALSE)
myMultiAssayExperiment[[1]] <- SummarizedExperiment(assays=exprs(myMultiAssayExperiment[[1]]), colData=pData(myMultiAssayExperiment[[1]]))
myMultiAssayExperiment[[2]] <- SummarizedExperiment(myMultiAssayExperiment[[2]], colData=DataFrame(slope53=1:5))
myMultiAssayExperiment[[3]] <- SummarizedExperiment(myMultiAssayExperiment[[3]])
colData(myMultiAssayExperiment)
colData(myMultiAssayExperiment[[1]])
colData(myMultiAssayExperiment[[2]])
wideFormat(myMultiAssayExperiment[1, 1:2, ], colDataCols="sex")
longFormat(myMultiAssayExperiment[1, 1:2, ], colDataCols="sex")
# wideFormat(myMultiAssayExperiment[1, 1:2, ], colDataCols="sex", experimentColDataCols="slope53") #??
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment