diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 22:45:30 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 22:45:30 +0200 |
| commit | 5b711837e28d838f20c67c057d8de36f3927ff65 (patch) | |
| tree | 3902b1f6db07323e221a5ee74842c3db999fb8c7 | |
| parent | 86e6d8368109d1a9c631af45227659178ce934ee (diff) | |
Adress errors and notes on winbuilder
| -rw-r--r-- | man/synthetic_data_for_UBA_2014.Rd | 2 | ||||
| -rw-r--r-- | tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt | 13 | ||||
| -rw-r--r-- | tests/testthat/test_plots_summary_twa.R | 3 |
3 files changed, 4 insertions, 14 deletions
diff --git a/man/synthetic_data_for_UBA_2014.Rd b/man/synthetic_data_for_UBA_2014.Rd index d68f45d4..af67fb82 100644 --- a/man/synthetic_data_for_UBA_2014.Rd +++ b/man/synthetic_data_for_UBA_2014.Rd @@ -43,6 +43,7 @@ measurement error in analytical chemistry. Technometrics 37(2), 176-184.
}
\examples{
+\dontrun{
# The data have been generated using the following kinetic models
m_synth_SFO_lin <- mkinmod(parent = list(type = "SFO", to = "M1"),
M1 = list(type = "SFO", to = "M2"),
@@ -138,7 +139,6 @@ d_synth_err_names = c( # This is just one example of an evaluation using the kinetic model used for
# the generation of the data
-\dontrun{
fit <- mkinfit(m_synth_SFO_lin, synthetic_data_for_UBA_2014[[1]]$data,
quiet = TRUE)
plot_sep(fit)
diff --git a/tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt b/tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt index 8abc15e7..66ab9348 100644 --- a/tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt +++ b/tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt @@ -42,18 +42,7 @@ log_k_m1_sink -5.248 0.13320 -5.518 -4.977 sigma 3.126 0.35850 2.396 3.855 Parameter correlation: - parent_0 log_k_parent_sink log_k_parent_m1 log_k_m1_sink -parent_0 1e+00 6e-01 -6e-02 -2e-01 -log_k_parent_sink 6e-01 1e+00 -9e-02 -6e-01 -log_k_parent_m1 -6e-02 -9e-02 1e+00 5e-01 -log_k_m1_sink -2e-01 -6e-01 5e-01 1e+00 -sigma 1e-09 -9e-10 2e-08 -1e-10 - sigma -parent_0 1e-09 -log_k_parent_sink -9e-10 -log_k_parent_m1 2e-08 -log_k_m1_sink -1e-10 -sigma 1e+00 +NULL Backtransformed parameters: Confidence intervals for internally transformed parameters are asymmetric. diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R index 9c802b00..089290f6 100644 --- a/tests/testthat/test_plots_summary_twa.R +++ b/tests/testthat/test_plots_summary_twa.R @@ -52,6 +52,7 @@ test_that("Summaries are reproducible", { test_summary$date.fit <- "Dummy date for testing" test_summary$date.summary <- "Dummy date for testing" test_summary$calls <- "test 0" + test_summary$Corr <- signif(test_summary$Corr, 1) test_summary$time <- c(elapsed = "test time 0") # The correlation matrix is quite platform dependent # It differs between i386 and amd64 on Windows @@ -83,7 +84,7 @@ test_that("Summaries are reproducible", { # The correlation matrix is quite platform dependent # It differs between i386 and amd64 on Windows # and between Travis and my own Linux system - test_summary_3$Corr <- signif(test_summary_3$Corr, 1) + test_summary_3$Corr <- NULL expect_known_output(print(test_summary_3), "summary_DFOP_FOCUS_D_deSolve.txt") }) |