R-Lum / RLumModel
1
#' Helper function to extract parms in one single list to submit to Rcpp ODE function
2
#'
3
#' @param parameters.step \code{\link{list}} (\bold{required}): input list with different classes.
4
#'
5
#' @param \dots further arguments and graphical parameters passed to
6
#'
7
#' @return This function returns an \code{\link{list}}.
8
#'
9
#' @section Function version: 0.1.0 [2016-09-02]
10
#'
11
#' @author Johannes Friedrich, University of Bayreuth (Germany),
12
#'
13
#' @references
14
#'
15
#' @seealso \code{\link{simulate_CW_OSL}},\code{\link{simulate_heating}}, \code{\link{simulate_illumination}},
16
#' \code{\link{simulate_irradiation}}, \code{\link{simulate_LM_OSL}}, \code{\link{simulate_pause}},
17
#' \code{\link{simulate_RF}}, \code{\link{simulate_TL}}
18
#'
19
#' @examples
20
#'
21
#' #so far no example available
22
#'
23
#' @noRd
24
.extract_pars <- function(parameters.step,...){
25
  
26 5
  R <- parameters.step$R
27 5
  P <- parameters.step$P
28 5
  temp <- parameters.step$temp
29 5
  b <- parameters.step$b
30 5
  if("a" %in% names(parameters.step)){
31 5
    a <- parameters.step$a
32
  } else {
33 5
    a <- NULL
34
  }
35

36 5
  N <- parameters.step$parms$N
37 5
  E <- parameters.step$parms$E
38 5
  s <- parameters.step$parms$s
39 5
  A <- parameters.step$parms$A
40 5
  B <- parameters.step$parms$B
41 5
  Th <- parameters.step$parms$Th
42 5
  E_th <- parameters.step$parms$E_th
43 5
  n <- parameters.step$parms$n$n
44 5
  k_B <- parameters.step$parms$k_B
45 5
  W <- parameters.step$parms$W
46 5
  K <- parameters.step$parms$K
47
  
48 5
  times <- parameters.step$times
49
  
50 5
  model <- parameters.step$parms$model
51
  
52 5
  return(list(
53 5
    a = a,
54 5
    R = R,
55 5
    P = P,
56 5
    b = b,
57 5
    temp = temp,
58 5
    N = N,
59 5
    E = E,
60 5
    s = s,
61 5
    A = A,
62 5
    B = B,
63 5
    Th = Th,
64 5
    E_th = E_th,
65 5
    n = n,
66 5
    k_B = k_B,
67 5
    W = W,
68 5
    K = K,
69 5
    times = times,
70 5
    model = model))
71

72
}

Read our documentation on viewing source code .

Loading