Description Usage Arguments Value Author(s) Examples
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)))
.
1 |
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 |
A numeric vector containing the number of observed values in either each row or each column of X
.
Quentin Giai Gianetto <quentin2g@yahoo.fr>
1 2 3 4 5 6 7 8 9 10 11 12 | ## 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))))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.