# esApply Introduction

R. Gentleman, V. Carey, M. Morgan, S. Falcon and H. Khan1

1Vignette translation from Sweave to Rmarkdown / HTML

#### 30 April, 2024

#### Package

Biobase 2.64.0

# Contents

# A note on `esApply`

`ExpressionSet`s are complex objects. `exprs(ExpressionSet)` produces \(G \times N\), where \(G\) is the number of genes on a chip and \(N\) is the number of tissues analyzed, and `pData(ExpressionSet)` produces \(N \times p\), where \(p\) is the number of phenotypic or demographic, etc., variables collected.

Abstractly, we are often interested in evaluating functions \(f(y;x)\) where \(y\) is an \(N\)-vector of expression results for a specific gene and \(x\) is an \(N\)-dimensional structure, coordinated with \(y\), that distinguishes elements of \(y\) for processing in the function \(f\). A basic problem is to guarantee that the \(j\)th element of \(y\) is correctly associated with the \(j\)th component of \(x\).

As an example, let’s consider `sample.ExpressionSet`, which is an ExpressionSet supplied with Biobase. We will print a little report, then the first \(N\)-vector of gene expressions and some covariate data:

    sample.ExpressionSet

    ## ExpressionSet (storageMode: lockedEnvironment)
    ## assayData: 500 features, 26 samples
    ##   element names: exprs, se.exprs
    ## protocolData: none
    ## phenoData
    ##   sampleNames: A B ... Z (26 total)
    ##   varLabels: sex type score
    ##   varMetadata: labelDescription
    ## featureData: none
    ## experimentData: use 'experimentData(object)'
    ## Annotation: hgu95av2

    exprs(sample.ExpressionSet)[1,]

    ##        A        B        C        D        E        F        G        H
    ## 192.7420  85.7533 176.7570 135.5750  64.4939  76.3569 160.5050  65.9631
    ##        I        J        K        L        M        N        O        P
    ##  56.9039 135.6080  63.4432  78.2126  83.0943  89.3372  91.0615  95.9377
    ##        Q        R        S        T        U        V        W        X
    ## 179.8450 152.4670 180.8340  85.4146 157.9890 146.8000  93.8829 103.8550
    ##        Y        Z
    ##  64.4340 175.6150

    pData(sample.ExpressionSet)[1:2,1:3]

    ##      sex    type score
    ## A Female Control  0.75
    ## B   Male    Case  0.40

Now let’s see how expressions and a covariate are related:

    rbind(exprs(sample.ExpressionSet[1,]),
                sex <- t(pData(sample.ExpressionSet))[1,])

    ##                A         B         C         D         E         F
    ## AFFX-MurIL2_at "192.742" "85.7533" "176.757" "135.575" "64.4939" "76.3569"
    ##                "Female"  "Male"    "Male"    "Male"    "Female"  "Male"
    ##                G         H         I         J         K         L
    ## AFFX-MurIL2_at "160.505" "65.9631" "56.9039" "135.608" "63.4432" "78.2126"
    ##                "Male"    "Male"    "Female"  "Male"    "Male"    "Female"
    ##                M         N         O         P         Q         R
    ## AFFX-MurIL2_at "83.0943" "89.3372" "91.0615" "95.9377" "179.845" "152.467"
    ##                "Male"    "Male"    "Female"  "Female"  "Female"  "Male"
    ##                S         T         U         V        W         X
    ## AFFX-MurIL2_at "180.834" "85.4146" "157.989" "146.8"  "93.8829" "103.855"
    ##                "Male"    "Female"  "Male"    "Female" "Male"    "Male"
    ##                Y        Z
    ## AFFX-MurIL2_at "64.434" "175.615"
    ##                "Female" "Female"

A function that evaluates the difference in median expression across strata defined using an abstract covariate `x` is

    medContr <- function( y, x ) {
        ys <- split(y,x)
        median(ys[[1]]) - median(ys[[2]])
     }

We can apply this to a small ExpressionSet that gives back the data listed above:

    apply(exprs(sample.ExpressionSet[1,,drop=F]), 1, medContr, pData(sample.ExpressionSet)[["sex"]])

    ## AFFX-MurIL2_at
    ##       -12.7935

That’s a bit clumsy. This is where `esApply` comes in. We pay for some simplicity by following a strict protocol for the definition of the statistical function to be applied.

    medContr1 <- function(y) {
       ys <- split(y,sex)
       median(ys[[1]]) - median(ys[[2]])
    }
    esApply( sample.ExpressionSet, 1, medContr1)[1]

    ## AFFX-MurIL2_at
    ##       -12.7935

The manual page on `esApply` has a number of additional examples that show how applicable functions can be constructed and used. The important thing to note is that the applicable functions know the names of the covariates in the `pData` dataframe.

This is achieved by having an environment populated with all the variables in phenoData(ExpressionSet) put in as the environment of the function that will be applied. If that function already has an environment we retain that but in the second position. Thus, there is some potential for variable shadowing.

# 1 Session Information

The version number of R and packages loaded for generating the vignette were:

    ## R version 4.4.0 beta (2024-04-15 r86425)
    ## Platform: x86_64-pc-linux-gnu
    ## Running under: Ubuntu 22.04.4 LTS
    ##
    ## Matrix products: default
    ## BLAS:   /home/biocbuild/bbs-3.19-bioc/R/lib/libRblas.so
    ## LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
    ##
    ## locale:
    ##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
    ##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8
    ##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
    ##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
    ##  [9] LC_ADDRESS=C               LC_TELEPHONE=C
    ## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
    ##
    ## time zone: America/New_York
    ## tzcode source: system (glibc)
    ##
    ## attached base packages:
    ## [1] stats     graphics  grDevices utils     datasets  methods   base
    ##
    ## other attached packages:
    ## [1] Biobase_2.64.0      BiocGenerics_0.50.0 BiocStyle_2.32.0
    ##
    ## loaded via a namespace (and not attached):
    ##  [1] digest_0.6.35       R6_2.5.1            bookdown_0.39
    ##  [4] fastmap_1.1.1       xfun_0.43           cachem_1.0.8
    ##  [7] knitr_1.46          htmltools_0.5.8.1   rmarkdown_2.26
    ## [10] lifecycle_1.0.4     cli_3.6.2           sass_0.4.9
    ## [13] jquerylib_0.1.4     compiler_4.4.0      tools_4.4.0
    ## [16] evaluate_0.23       bslib_0.7.0         yaml_2.3.8
    ## [19] BiocManager_1.30.22 jsonlite_1.8.8      rlang_1.1.3