diff options
| -rw-r--r-- | docs/reference/synthetic_data_for_UBA_2014.html | 8 | ||||
| -rw-r--r-- | 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." /> <span class='co'># d_rep = data.frame(lapply(d_long, rep, each = 2))</span> <span class='co'># d_rep$value = rnorm(length(d_rep$value), d_rep$value, sdfunc(d_rep$value))</span> <span class='co'>#</span> -<span class='co'># d_rep[d_rep$time == 0 & match(d_rep$name, c("M1", "M2"), "value"] <- 0</span> +<span class='co'># d_rep[d_rep$time == 0 & d_rep$name %in% c("M1", "M2"), "value"] <- 0</span> <span class='co'># d_NA <- transform(d_rep, value = ifelse(value < LOD, NA, value))</span> <span class='co'># d_NA$value <- round(d_NA$value, 1)</span> <span class='co'># return(d_NA)</span> @@ -282,8 +282,8 @@ Compare also the code in the example section to see the degradation models." /> <span class='kw'>quiet</span> <span class='kw'>=</span> <span class='fl'>TRUE</span>) <span class='fu'><a href='plot.mkinfit.html'>plot_sep</a></span>(<span class='no'>fit</span>)</div><div class='img'><img src='synthetic_data_for_UBA_2014-1.png' alt='' width='700' height='433' /></div><div class='input'><span class='fu'><a href='https://rdrr.io/r/base/summary.html'>summary</a></span>(<span class='no'>fit</span>)</div><div class='output co'>#> 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)
|