From fdea2cd47c639d18a4ebdf1b1ec0cef50718310f Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 19 Sep 2019 12:48:52 +0200 Subject: Revert a change in the original add_err function that I made in the first attempt to work around the issue with the %in% operator in the example code Static documentation rebuilt by pkgdown --- docs/reference/synthetic_data_for_UBA_2014.html | 8 ++++---- man/synthetic_data_for_UBA_2014.Rd | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/docs/reference/synthetic_data_for_UBA_2014.html b/docs/reference/synthetic_data_for_UBA_2014.html index 2c4480d9..a639151b 100644 --- a/docs/reference/synthetic_data_for_UBA_2014.html +++ b/docs/reference/synthetic_data_for_UBA_2014.html @@ -249,7 +249,7 @@ Compare also the code in the example section to see the degradation models." /> # d_rep = data.frame(lapply(d_long, rep, each = 2)) # d_rep$value = rnorm(length(d_rep$value), d_rep$value, sdfunc(d_rep$value)) # -# d_rep[d_rep$time == 0 & match(d_rep$name, c("M1", "M2"), "value"] <- 0 +# d_rep[d_rep$time == 0 & d_rep$name %in% c("M1", "M2"), "value"] <- 0 # d_NA <- transform(d_rep, value = ifelse(value < LOD, NA, value)) # d_NA$value <- round(d_NA$value, 1) # return(d_NA) @@ -282,8 +282,8 @@ Compare also the code in the example section to see the degradation models." /> quiet = TRUE) plot_sep(fit)
summary(fit)
#> mkin version used for fitting: 0.9.49.6 #> R version used for fitting: 3.6.1 -#> Date of fit: Thu Sep 19 12:43:02 2019 -#> Date of summary: Thu Sep 19 12:43:02 2019 +#> Date of fit: Thu Sep 19 12:48:50 2019 +#> Date of summary: Thu Sep 19 12:48:50 2019 #> #> Equations: #> d_parent/dt = - k_parent * parent @@ -292,7 +292,7 @@ Compare also the code in the example section to see the degradation models." /> #> #> Model predictions using solution type deSolve #> -#> Fitted using 847 model solutions performed in 2.51 s +#> Fitted using 847 model solutions performed in 2.49 s #> #> Error model: Constant variance #> diff --git a/man/synthetic_data_for_UBA_2014.Rd b/man/synthetic_data_for_UBA_2014.Rd index 2d726d5a..cfab5622 100644 --- a/man/synthetic_data_for_UBA_2014.Rd +++ b/man/synthetic_data_for_UBA_2014.Rd @@ -109,7 +109,7 @@ d_synth_names = paste0("d_synth_", c("SFO_lin", "SFO_par", # d_rep = data.frame(lapply(d_long, rep, each = 2)) # d_rep$value = rnorm(length(d_rep$value), d_rep$value, sdfunc(d_rep$value)) # -# d_rep[d_rep$time == 0 & match(d_rep$name, c("M1", "M2"), "value"] <- 0 +# d_rep[d_rep$time == 0 & d_rep$name %in% c("M1", "M2"), "value"] <- 0 # d_NA <- transform(d_rep, value = ifelse(value < LOD, NA, value)) # d_NA$value <- round(d_NA$value, 1) # return(d_NA) -- cgit v1.2.1