From 5b711837e28d838f20c67c057d8de36f3927ff65 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 21 Oct 2019 22:45:30 +0200 Subject: Adress errors and notes on winbuilder --- tests/testthat/summary_DFOP_FOCUS_D_deSolve.txt | 13 +------------ tests/testthat/test_plots_summary_twa.R | 3 ++- 2 files changed, 3 insertions(+), 13 deletions(-) (limited to 'tests') 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") }) -- cgit v1.2.1