Commit b506b71d authored by loup.rimbaud@csiro.au's avatar loup.rimbaud@csiro.au
Browse files

small changes in documentation

parent 4d053bb0
......@@ -4,3 +4,5 @@
^config\.log$
^config\.status$
^autom4te\.cache$
^.*\.Rproj$
^\.Rproj\.user$
......@@ -35,10 +35,8 @@
#' @return A set of binary files is generated for every year of simulation and every compartment
#' (H: healthy hosts, Hjuv: juvenile healthy hosts, L: latently infected hosts, I: infectious hosts, R: removed hosts, S: propagules).
#' Each file indicates for every time-step the number of individuals in each field, and when appropriate for each cultivar and pathotype)
#' @examples
#' demo_landsepi()
#' @export
modeleLandsLPI <- function(times, landscape, dispersal, inits, val_seed, hostP, epiP, evolP) {
invisible(.Call('_landsepi_modeleLandsLPI', PACKAGE = 'landsepi', times, landscape, dispersal, inits, val_seed, hostP, epiP, evolP))
invisible(.Call('landsepi_modeleLandsLPI', PACKAGE = 'landsepi', times, landscape, dispersal, inits, val_seed, hostP, epiP, evolP))
}
# landsepi R package
###########################
##### R package landsepi ####
###########################
## Configuration
read file "DESCRIPTION" for configuration requirements and required library (linux and R)
## before build and install
......
......@@ -6,29 +6,19 @@
using namespace Rcpp;
// modeleLandsLPI
void modeleLandsLPI(Rcpp::List times, Rcpp::List landscape, Rcpp::List dispersion, Rcpp::List inits, int val_seed, Rcpp::List host, Rcpp::List epiP, Rcpp::List evolP);
RcppExport SEXP _landsepi_modeleLandsLPI(SEXP timesSEXP, SEXP landscapeSEXP, SEXP dispersionSEXP, SEXP initsSEXP, SEXP val_seedSEXP, SEXP hostSEXP, SEXP epiPSEXP, SEXP evolPSEXP) {
void modeleLandsLPI(Rcpp::List times, Rcpp::List landscape, Rcpp::List dispersal, Rcpp::List inits, int val_seed, Rcpp::List hostP, Rcpp::List epiP, Rcpp::List evolP);
RcppExport SEXP landsepi_modeleLandsLPI(SEXP timesSEXP, SEXP landscapeSEXP, SEXP dispersalSEXP, SEXP initsSEXP, SEXP val_seedSEXP, SEXP hostPSEXP, SEXP epiPSEXP, SEXP evolPSEXP) {
BEGIN_RCPP
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< Rcpp::List >::type times(timesSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type landscape(landscapeSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type dispersion(dispersionSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type dispersal(dispersalSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type inits(initsSEXP);
Rcpp::traits::input_parameter< int >::type val_seed(val_seedSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type host(hostSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type hostP(hostPSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type epiP(epiPSEXP);
Rcpp::traits::input_parameter< Rcpp::List >::type evolP(evolPSEXP);
modeleLandsLPI(times, landscape, dispersion, inits, val_seed, host, epiP, evolP);
modeleLandsLPI(times, landscape, dispersal, inits, val_seed, hostP, epiP, evolP);
return R_NilValue;
END_RCPP
}
static const R_CallMethodDef CallEntries[] = {
{"_landsepi_modeleLandsLPI", (DL_FUNC) &_landsepi_modeleLandsLPI, 8},
{NULL, NULL, 0}
};
RcppExport void R_init_landsepi(DllInfo *dll) {
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment