Back to Multiple platform build/check report for BioC 3.8
ABCDEFGHIJKL[M]NOPQRSTUVWXYZ

CHECK report for MultiAssayExperiment on tokay1

This page was generated on 2019-04-13 11:26:32 -0400 (Sat, 13 Apr 2019).

Package 1019/1649HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
MultiAssayExperiment 1.8.3
Marcel Ramos
Snapshot Date: 2019-04-12 17:01:30 -0400 (Fri, 12 Apr 2019)
URL: https://git.bioconductor.org/packages/MultiAssayExperiment
Branch: RELEASE_3_8
Last Commit: 390538d
Last Changed Date: 2019-02-14 12:37:06 -0400 (Thu, 14 Feb 2019)
malbec1 Linux (Ubuntu 16.04.6 LTS) / x86_64  OK  OK  OK UNNEEDED, same version exists in internal repository
tokay1 Windows Server 2012 R2 Standard / x64  OK  OK [ OK ] OK UNNEEDED, same version exists in internal repository
merida1 OS X 10.11.6 El Capitan / x86_64  OK  OK  OK  OK UNNEEDED, same version exists in internal repository

Summary

Package: MultiAssayExperiment
Version: 1.8.3
Command: C:\Users\biocbuild\bbs-3.8-bioc\R\bin\R.exe CMD check --force-multiarch --install=check:MultiAssayExperiment.install-out.txt --library=C:\Users\biocbuild\bbs-3.8-bioc\R\library --no-vignettes --timings MultiAssayExperiment_1.8.3.tar.gz
StartedAt: 2019-04-13 04:04:05 -0400 (Sat, 13 Apr 2019)
EndedAt: 2019-04-13 04:08:32 -0400 (Sat, 13 Apr 2019)
EllapsedTime: 267.2 seconds
RetCode: 0
Status:  OK  
CheckDir: MultiAssayExperiment.Rcheck
Warnings: 0

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   C:\Users\biocbuild\bbs-3.8-bioc\R\bin\R.exe CMD check --force-multiarch --install=check:MultiAssayExperiment.install-out.txt --library=C:\Users\biocbuild\bbs-3.8-bioc\R\library --no-vignettes --timings MultiAssayExperiment_1.8.3.tar.gz
###
##############################################################################
##############################################################################


* using log directory 'C:/Users/biocbuild/bbs-3.8-bioc/meat/MultiAssayExperiment.Rcheck'
* using R version 3.5.3 (2019-03-11)
* using platform: x86_64-w64-mingw32 (64-bit)
* using session charset: ISO8859-1
* using option '--no-vignettes'
* checking for file 'MultiAssayExperiment/DESCRIPTION' ... OK
* this is package 'MultiAssayExperiment' version '1.8.3'
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ...Warning: unable to access index for repository https://CRAN.R-project.org/src/contrib:
  cannot open URL 'https://CRAN.R-project.org/src/contrib/PACKAGES'
 OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking whether package 'MultiAssayExperiment' can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking 'build' directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* loading checks for arch 'i386'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
* loading checks for arch 'x64'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
* checking dependencies in R code ... NOTE
Unexported objects imported by ':::' calls:
  'BiocGenerics:::replaceSlots' 'S4Vectors:::selectSome'
  See the note in ?`:::` about the use of this operator.
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of 'data' directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking files in 'vignettes' ... OK
* checking examples ...
** running examples for arch 'i386' ... OK
** running examples for arch 'x64' ... OK
* checking for unstated dependencies in 'tests' ... OK
* checking tests ...
** running tests for arch 'i386' ...
  Running 'testthat.R'
 OK
** running tests for arch 'x64' ...
  Running 'testthat.R'
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in 'inst/doc' ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 1 NOTE
See
  'C:/Users/biocbuild/bbs-3.8-bioc/meat/MultiAssayExperiment.Rcheck/00check.log'
for details.

Installation output

MultiAssayExperiment.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   C:\cygwin\bin\curl.exe -O https://malbec1.bioconductor.org/BBS/3.8/bioc/src/contrib/MultiAssayExperiment_1.8.3.tar.gz && rm -rf MultiAssayExperiment.buildbin-libdir && mkdir MultiAssayExperiment.buildbin-libdir && C:\Users\biocbuild\bbs-3.8-bioc\R\bin\R.exe CMD INSTALL --merge-multiarch --build --library=MultiAssayExperiment.buildbin-libdir MultiAssayExperiment_1.8.3.tar.gz && C:\Users\biocbuild\bbs-3.8-bioc\R\bin\R.exe CMD INSTALL MultiAssayExperiment_1.8.3.zip && rm MultiAssayExperiment_1.8.3.tar.gz MultiAssayExperiment_1.8.3.zip
###
##############################################################################
##############################################################################


  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed

  0     0    0     0    0     0      0      0 --:--:-- --:--:-- --:--:--     0
100 1081k  100 1081k    0     0  21.8M      0 --:--:-- --:--:-- --:--:-- 23.4M

install for i386

* installing *source* package 'MultiAssayExperiment' ...
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
  converting help for package 'MultiAssayExperiment'
    finding HTML links ... done
    ExperimentList-class                    html  
    finding level-2 HTML links ... done

    ExperimentList                          html  
    MatchedAssayExperiment-class            html  
    MultiAssayExperiment-class              html  
    MultiAssayExperiment-helpers            html  
    MultiAssayExperiment-methods            html  
    MultiAssayExperiment-package            html  
    MultiAssayExperiment                    html  
    hasAssay                                html  
    mapToList                               html  
    miniACC                                 html  
    prepMultiAssay                          html  
    reexports                               html  
    subsetBy                                html  
    upsetSamples                            html  
** building package indices
** installing vignettes
** testing if installed package can be loaded
In R CMD INSTALL

install for x64

* installing *source* package 'MultiAssayExperiment' ...
** testing if installed package can be loaded
* MD5 sums
packaged installation of 'MultiAssayExperiment' as MultiAssayExperiment_1.8.3.zip
* DONE (MultiAssayExperiment)
In R CMD INSTALL
In R CMD INSTALL
* installing to library 'C:/Users/biocbuild/bbs-3.8-bioc/R/library'
package 'MultiAssayExperiment' successfully unpacked and MD5 sums checked
In R CMD INSTALL

Tests output

MultiAssayExperiment.Rcheck/tests_i386/testthat.Rout


R version 3.5.3 (2019-03-11) -- "Great Truth"
Copyright (C) 2019 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(MultiAssayExperiment)
Loading required package: SummarizedExperiment
Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics
Loading required package: parallel

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:parallel':

    clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
    clusterExport, clusterMap, parApply, parCapply, parLapply,
    parLapplyLB, parRapply, parSapply, parSapplyLB

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, append,
    as.data.frame, basename, cbind, colMeans, colSums, colnames,
    dirname, do.call, duplicated, eval, evalq, get, grep, grepl,
    intersect, is.unsorted, lapply, lengths, mapply, match, mget,
    order, paste, pmax, pmax.int, pmin, pmin.int, rank, rbind,
    rowMeans, rowSums, rownames, sapply, setdiff, sort, table, tapply,
    union, unique, unsplit, which, which.max, which.min

Loading required package: S4Vectors

Attaching package: 'S4Vectors'

The following object is masked from 'package:base':

    expand.grid

Loading required package: IRanges

Attaching package: 'IRanges'

The following object is masked from 'package:grDevices':

    windows

Loading required package: GenomeInfoDb
Loading required package: Biobase
Welcome to Bioconductor

    Vignettes contain introductory material; view with
    'browseVignettes()'. To cite Bioconductor, see
    'citation("Biobase")', and for packages 'citation("pkgname")'.

Loading required package: DelayedArray
Loading required package: matrixStats

Attaching package: 'matrixStats'

The following objects are masked from 'package:Biobase':

    anyMissing, rowMedians

Loading required package: BiocParallel

Attaching package: 'DelayedArray'

The following objects are masked from 'package:matrixStats':

    colMaxs, colMins, colRanges, rowMaxs, rowMins, rowRanges

The following objects are masked from 'package:base':

    aperm, apply

> 
> test_check("MultiAssayExperiment")

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)
== testthat results  ===========================================================
OK: 143 SKIPPED: 0 FAILED: 0
> 
> proc.time()
   user  system elapsed 
  16.01    0.65   16.67

MultiAssayExperiment.Rcheck/tests_x64/testthat.Rout


R version 3.5.3 (2019-03-11) -- "Great Truth"
Copyright (C) 2019 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(MultiAssayExperiment)
Loading required package: SummarizedExperiment
Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics
Loading required package: parallel

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:parallel':

    clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
    clusterExport, clusterMap, parApply, parCapply, parLapply,
    parLapplyLB, parRapply, parSapply, parSapplyLB

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, append,
    as.data.frame, basename, cbind, colMeans, colSums, colnames,
    dirname, do.call, duplicated, eval, evalq, get, grep, grepl,
    intersect, is.unsorted, lapply, lengths, mapply, match, mget,
    order, paste, pmax, pmax.int, pmin, pmin.int, rank, rbind,
    rowMeans, rowSums, rownames, sapply, setdiff, sort, table, tapply,
    union, unique, unsplit, which, which.max, which.min

Loading required package: S4Vectors

Attaching package: 'S4Vectors'

The following object is masked from 'package:base':

    expand.grid

Loading required package: IRanges

Attaching package: 'IRanges'

The following object is masked from 'package:grDevices':

    windows

Loading required package: GenomeInfoDb
Loading required package: Biobase
Welcome to Bioconductor

    Vignettes contain introductory material; view with
    'browseVignettes()'. To cite Bioconductor, see
    'citation("Biobase")', and for packages 'citation("pkgname")'.

Loading required package: DelayedArray
Loading required package: matrixStats

Attaching package: 'matrixStats'

The following objects are masked from 'package:Biobase':

    anyMissing, rowMedians

Loading required package: BiocParallel

Attaching package: 'DelayedArray'

The following objects are masked from 'package:matrixStats':

    colMaxs, colMins, colRanges, rowMaxs, rowMins, rowRanges

The following objects are masked from 'package:base':

    aperm, apply

> 
> test_check("MultiAssayExperiment")

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)

MltAsE> ## Run the example ExperimentList
MltAsE> example("ExperimentList")

ExprmL> ## Create an empty ExperimentList instance
ExprmL> ExperimentList()
ExperimentList class object of length 0:  

ExprmL> ## Create array matrix and AnnotatedDataFrame to create an ExpressionSet class
ExprmL> arraydat <- matrix(data = seq(101, length.out = 20), ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000294241", "ENST00000355076",
ExprmL+         "ENST00000383706","ENST00000234812", "ENST00000383323"),
ExprmL+         c("array1", "array2", "array3", "array4")
ExprmL+     ))

ExprmL> colDat <- data.frame(slope53 = rnorm(4),
ExprmL+     row.names = c("array1", "array2", "array3", "array4"))

ExprmL> ## SummarizedExperiment constructor
ExprmL> exprdat <- SummarizedExperiment::SummarizedExperiment(arraydat,
ExprmL+     colData = colDat)

ExprmL> ## Create a sample methylation dataset
ExprmL> methyldat <- matrix(data = seq(1, length.out = 25), ncol = 5,
ExprmL+     dimnames = list(
ExprmL+         c("ENST00000355076", "ENST00000383706",
ExprmL+           "ENST00000383323", "ENST00000234812", "ENST00000294241"),
ExprmL+         c("methyl1", "methyl2", "methyl3",
ExprmL+           "methyl4", "methyl5")
ExprmL+     ))

ExprmL> ## Create a sample RNASeqGene dataset
ExprmL> rnadat <- matrix(
ExprmL+     data = sample(c(46851, 5, 19, 13, 2197, 507,
ExprmL+         84318, 126, 17, 21, 23979, 614), size = 20, replace = TRUE),
ExprmL+     ncol = 4,
ExprmL+     dimnames = list(
ExprmL+         c("XIST", "RPS4Y1", "KDM5D", "ENST00000383323", "ENST00000234812"),
ExprmL+         c("samparray1", "samparray2", "samparray3", "samparray4")
ExprmL+     ))

ExprmL> ## Create a mock RangedSummarizedExperiment from a data.frame
ExprmL> rangedat <- data.frame(chr="chr2", start = 11:15, end = 12:16,
ExprmL+     strand = c("+", "-", "+", "*", "."),
ExprmL+     samp0 = c(0,0,1,1,1), samp1 = c(1,0,1,0,1), samp2 = c(0,1,0,1,0),
ExprmL+     row.names = paste0("GENE", letters[5:1]))

ExprmL> rangeSE <- SummarizedExperiment::makeSummarizedExperimentFromDataFrame(rangedat)

ExprmL> ## Combine to a named list and call the ExperimentList constructor function
ExprmL> assayList <- list(Affy = exprdat, Methyl450k = methyldat, RNASeqGene = rnadat,
ExprmL+                 GISTIC = rangeSE)

ExprmL> ## Use the ExperimentList constructor
ExprmL> ExpList <- ExperimentList(assayList)

MltAsE> ## Create sample maps for each experiment
MltAsE> exprmap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("array1", "array2", "array3", "array4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> methylmap <- data.frame(
MltAsE+     primary = c("Jack", "Jack", "Jill", "Barbara", "Bob"),
MltAsE+     colname = c("methyl1", "methyl2", "methyl3", "methyl4", "methyl5"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> rnamap <- data.frame(
MltAsE+     primary = c("Jack", "Jill", "Bob", "Barbara"),
MltAsE+     colname = c("samparray1", "samparray2", "samparray3", "samparray4"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> gistmap <- data.frame(
MltAsE+     primary = c("Jack", "Bob", "Jill"),
MltAsE+     colname = c("samp0", "samp1", "samp2"),
MltAsE+     stringsAsFactors = FALSE)

MltAsE> ## Combine as a named list and convert to a DataFrame
MltAsE> maplist <- list(Affy = exprmap, Methyl450k = methylmap,
MltAsE+     RNASeqGene = rnamap, GISTIC = gistmap)

MltAsE> ## Create a sampleMap
MltAsE> sampMap <- listToMap(maplist)

MltAsE> ## Create an example phenotype data
MltAsE> colDat <- data.frame(sex = c("M", "F", "M", "F"), age = 38:41,
MltAsE+     row.names = c("Jack", "Jill", "Bob", "Barbara"))

MltAsE> ## Create a MultiAssayExperiment instance
MltAsE> mae <- MultiAssayExperiment(experiments = ExpList, colData = colDat,
MltAsE+     sampleMap = sampMap)
== testthat results  ===========================================================
OK: 143 SKIPPED: 0 FAILED: 0
> 
> proc.time()
   user  system elapsed 
  21.75    0.35   22.09

Example timings

MultiAssayExperiment.Rcheck/examples_i386/MultiAssayExperiment-Ex.timings

nameusersystemelapsed
ExperimentList-class0.030.000.03
ExperimentList0.220.000.22
MatchedAssayExperiment-class0.460.270.74
MultiAssayExperiment-class1.220.061.28
MultiAssayExperiment-methods0.210.000.20
MultiAssayExperiment0.170.000.17
hasAssay0.020.000.02
mapToList0.220.000.22
miniACC0.840.030.87
prepMultiAssay0.450.000.45
reexports000
subsetBy1.190.001.19
upsetSamples1.080.111.19

MultiAssayExperiment.Rcheck/examples_x64/MultiAssayExperiment-Ex.timings

nameusersystemelapsed
ExperimentList-class0.010.010.03
ExperimentList0.250.000.25
MatchedAssayExperiment-class0.540.020.56
MultiAssayExperiment-class1.460.001.45
MultiAssayExperiment-methods0.230.000.24
MultiAssayExperiment0.200.000.21
hasAssay000
mapToList0.270.000.26
miniACC1.010.001.02
prepMultiAssay0.960.030.98
reexports000
subsetBy1.280.001.28
upsetSamples1.170.011.19