R: Function similar to the function...

fast_apply_sum_na_rm_T {imp4p} | R Documentation

## Function similar to the function `apply(X,dim,sum,na.rm=TRUE)`.

### Description

This function is similar to the function `apply(X,dim,sum,na.rm=TRUE)` but written thanks to the Rcpp package and therefore faster than `apply(X,dim,sum,na.rm=TRUE)`.

### Usage

    fast_apply_sum_na_rm_T(X, dim)

### Arguments

`X` | A data matrix containing numeric and missing values.
`dim` | A numeric value: 1 if the sum has to be computed for each row of `X`, or 2 if the sum has to be computed for each column of `X`.

### Value

A numeric vector containing the sum of observed values in either each row or each column of `X`.

### Author(s)

Quentin Giai Gianetto <quentin2g@yahoo.fr>

### Examples

    ## The function is currently defined as
    ##function (X, dim)
    ##{
    ##    .Call("imp4p_fast_apply_sum_na_rm_T", PACKAGE = "imp4p",
    ##        X, dim)
    ##  }
    ##
    ## You can compare the execution time with a traditional apply function by
    ## library(rbenchmark)
    ## res.sim=sim.data(nb.pept=2000,nb.miss=600);
    ## benchmark(fast_apply_sum_na_rm_T(res.sim$dat.obs, 1),
    ##           apply(res.sim$dat.obs,1,sum,na.rm=TRUE))

[Package imp4p version 1.2 Index]