if (FALSE) {
#############################################################################
# EXAMPLE 1: Rcpp code logistic distribution
#############################################################################
library(Rcpp)
library(inline)
# define Rcpp file
code1 <- "
// input array A
Rcpp::NumericMatrix AA(A);
// Rcpp::IntegerVector dimAA(dimA);
int nrows=AA.nrow();
int ncolumns=AA.ncol();
Rcpp::NumericMatrix Alogis(nrows,ncolumns) ;
// compute logistic distribution
for (int ii=0; ii
Run the code above in your browser using DataLab