imp4p: fast_apply_nb_not_na – R documentation

Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!

fast_apply_nb_not_na

Function similar to the function apply(X,dim,function(x)sum(!is.na(x))).

Description

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

Usage

fast_apply_nb_not_na(X, dim)

Arguments

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

Value

A numeric vector containing the number 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_nb_not_na", 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_nb_not_na(res.sim$dat.obs, 1),
##           apply(res.sim$dat.obs,1,function(x)sum(!is.na(x))))

imp4p

Imputation for Proteomics

v1.1

GPL-3

Authors

Quentin Giai Gianetto

Initial release