R/RcppExports.R

In lsoda: 'C++' Header Library for Ordinary Differential Equations

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

#' Ordinary differential equation solver using lsoda (C++ code)
#' @param y vector of initial state values
#' @param times vector of times -- including the start time
#' @param func R function with signature function(t,y) that returns a
#'  list: the first list element is a vector for dy/dt; the second list
#'  element, if it exists, is a vector of result calculations to be retained.
#' @param rtol double for the relative tolerance
#' @param atol double for the absolute tolerance
#' @return a matrix for times in the first column and the state andd results values in the other columns.
#' @examples
#'   times = c(0,0.4*10^(0:10))
#'  y = c(1,0,0)
#'  func = function(t,y) {
#'      ydot = rep(0,3)
#'      ydot[1] = 1.0E4 * y[2] * y[3] - .04E0 * y[1]
#'      ydot[3] = 3.0E7 * y[2] * y[2]
#'      ydot[2] = -1.0 * (ydot[1] + ydot[3])
#'      list(ydot, sum(y))
#'  }
#'  lsoda::ode_cpp(y,times,func, rtol=1e-8, atol=1e-8)
#' @export
ode_cpp <- function(y, times, func, rtol = 1e-6, atol = 1e-6) {
    .Call('_lsoda_ode_cpp', PACKAGE = 'lsoda', y, times, func, rtol, atol)
}