Running ‘testthat.R’ [14s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > #
  > # file: tests/testthat.R
  > #
  > # This file is part of the R-package decisionSupport
  > # 
  > # Authors: 
  > #   Lutz Göhring <lutz.goehring@gmx.de>
  > #   Eike Luedeling (ICRAF) <eike@eikeluedeling.com>
  > #
  > # Copyright (C) 2015 World Agroforestry Centre (ICRAF) 
  > #	http://www.worldagroforestry.org
  > # 
  > # The R-package decisionSupport is free software: you can redistribute it and/or modify
  > # it under the terms of the GNU General Public License as published by
  > # the Free Software Foundation, either version 3 of the License, or
  > # (at your option) any later version.
  > # 
  > # The R-package decisionSupport is distributed in the hope that it will be useful,
  > # but WITHOUT ANY WARRANTY; without even the implied warranty of
  > # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  > # GNU General Public License for more details.
  > # 
  > # You should have received a copy of the GNU General Public License
  > # along with the R-package decisionSupport.  If not, see <http://www.gnu.org/licenses/>.
  > #
  > ##############################################################################################
  > 
  > library(testthat)
  > #library(decisionSupport)
  > 
  > test_check("decisionSupport")
  Loading required package: decisionSupport
  ── 1. Error: Standard normal distribution is generated correctly from the 0.05 a
  all(scale > 0) is not TRUE
  1: rdistq_fit(distribution = "norm", n = n, percentiles = percentiles, quantiles = quantiles) at testthat/test_rdistq_fit.R:44
  2: isTRUE(msg <- all.equal(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance))
  3: all.equal(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance)
  4: all.equal.numeric(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance)
  5: stopifnot(all(scale > 0))
  
  ── 2. Error: A uniform distribution is generated correctly from the 0.05 and 0.9
  all(scale > 0) is not TRUE
  1: rdistq_fit(distribution = "unif", n = n, percentiles = percentiles, quantiles = quantiles) at testthat/test_rdistq_fit.R:119
  2: isTRUE(msg <- all.equal(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance))
  3: all.equal(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance)
  4: all.equal.numeric(quantiles[[j]], quantiles_calc[[j]], scale = scale, tolerance = relativeTolerance)
  5: stopifnot(all(scale > 0))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 121 SKIPPED: 14 FAILED: 2
  1. Error: Standard normal distribution is generated correctly from the 0.05 and 0.95 quantiles (@test_rdistq_fit.R#44) 
  2. Error: A uniform distribution is generated correctly from the 0.05 and 0.95 quantiles (1) (@test_rdistq_fit.R#119) 
  
  Error: testthat unit tests failed
  Execution halted