Running ‘andersondarling_behaviour.r’ [0s/0s]
  Running ‘andersondarling_correctness.r’ [1s/1s]
  Running ‘andersondarling_errors.r’ [0s/0s]
  Running ‘andersondarling_warnings.r’ [0s/0s]
  Running ‘bartlett_behaviour.r’ [0s/0s]
  Running ‘bartlett_correctness.r’ [2s/3s]
  Running ‘bartlett_errors.r’ [0s/0s]
  Running ‘bartlett_warnings.r’ [0s/0s]
  Running ‘brownforsythe_behaviour.r’ [0s/0s]
  Running ‘brownforsythe_correctness.r’ [7s/7s]
  Running ‘brownforsythe_errors.r’ [0s/0s]
  Running ‘brownforsythe_warnings.r’ [0s/0s]
  Running ‘cor_pearson_behaviour.r’ [0s/0s]
  Running ‘cor_pearson_correctness.r’ [1s/1s]
  Running ‘cor_pearson_errors.r’ [0s/0s]
  Running ‘cor_pearson_warnings.r’ [0s/0s]
  Running ‘cosinor_behaviour.r’ [0s/0s]
  Running ‘cosinor_correctness.r’ [1s/2s]
  Running ‘cosinor_errors.r’ [0s/0s]
  Running ‘cosinor_warnings.r’ [0s/0s]
  Running ‘f_var_behaviour.r’ [0s/0s]
  Running ‘f_var_correctness.r’ [1s/1s]
  Running ‘f_var_errors.r’ [0s/0s]
  Running ‘f_var_warnings.r’ [0s/0s]
  Running ‘flignerkilleen_behaviour.r’ [0s/0s]
  Running ‘flignerkilleen_correctness.r’ [2s/2s]
  Running ‘flignerkilleen_errors.r’ [0s/0s]
  Running ‘flignerkilleen_warnings.r’ [0s/0s]
  Running ‘jarquebera_behaviour.r’ [0s/0s]
  Running ‘jarquebera_correctness.r’ [1s/1s]
  Running ‘jarquebera_errors.r’ [0s/0s]
  Running ‘jarquebera_warnings.r’ [0s/0s]
  Running ‘kolmogorovsmirnov_twosample_behavioiur.r’ [0s/0s]
  Running ‘kolmogorovsmirnov_twosample_correctness.r’ [5s/5s]
  Running ‘kolmogorovsmirnov_twosample_errors.r’ [0s/0s]
  Running ‘kolmogorovsmirnov_twosample_warnings.r’ [0s/0s]
  Running ‘kruskalwallis_behaviour.r’ [0s/0s]
  Running ‘kruskalwallis_correctness.r’ [2s/2s]
  Running ‘kruskalwallis_errors.r’ [0s/0s]
  Running ‘kruskalwallis_warnings.r’ [0s/0s]
  Running ‘levene_behaviour.r’ [0s/0s]
  Running ‘levene_correctness.r’ [6s/6s]
  Running ‘levene_errors.r’ [0s/0s]
  Running ‘levene_warnings.r’ [0s/0s]
  Running ‘oneway_equalvar_behaviour.r’ [0s/0s]
  Running ‘oneway_equalvar_correctness.r’ [3s/4s]
  Running ‘oneway_equalvar_errors.r’ [0s/0s]
  Running ‘oneway_equalvar_warnings.r’ [0s/0s]
  Running ‘oneway_welch_behaviour.r’ [0s/1s]
  Running ‘oneway_welch_correctness.r’ [2s/3s]
  Running ‘oneway_welch_errors.r’ [0s/0s]
  Running ‘oneway_welch_warnings.r’ [0s/0s]
  Running ‘t_equalvar_behaviour.r’ [0s/0s]
  Running ‘t_equalvar_correctness.r’ [1s/1s]
  Running ‘t_equalvar_errors.r’ [0s/0s]
  Running ‘t_equalvar_warnings.r’ [0s/0s]
  Running ‘t_onesample_behaviour.r’ [0s/0s]
  Running ‘t_onesample_correctness.r’ [1s/1s]
  Running ‘t_onesample_errors.r’ [0s/0s]
  Running ‘t_onesample_warnings.r’ [0s/0s]
  Running ‘t_paired_behaviour.r’ [0s/0s]
  Running ‘t_paired_correctness.r’ [1s/1s]
  Running ‘t_paired_errors.r’ [0s/1s]
  Running ‘t_paired_warnings.r’ [0s/0s]
  Running ‘t_welch_behaviour.r’ [0s/0s]
  Running ‘t_welch_correctness.r’ [1s/1s]
  Running ‘t_welch_errors.r’ [0s/1s]
  Running ‘t_welch_warnings.r’ [0s/1s]
  Running ‘waerden_behaviour.r’ [0s/0s]
  Running ‘waerden_correctness.r’ [2s/2s]
  Running ‘waerden_errors.r’ [0s/0s]
  Running ‘waerden_warnings.r’ [0s/0s]
  Running ‘wilcoxon_onesample_behaviour.r’ [0s/0s]
  Running ‘wilcoxon_onesample_errors.r’ [0s/0s]
  Running ‘wilcoxon_onesample_warnings.r’ [0s/0s]
  Running ‘wilcoxon_paired_behaviour.r’ [0s/0s]
  Running ‘wilcoxon_paired_errors.r’ [0s/0s]
  Running ‘wilcoxon_paired_warnings.r’ [0s/0s]
  Running ‘wilcoxon_twosample_behaviour.r’ [0s/0s]
  Running ‘wilcoxon_twosample_errors.r’ [0s/0s]
  Running ‘wilcoxon_twosample_warnings.r’ [0s/0s]
Running the tests in ‘tests/cosinor_correctness.r’ failed.
Complete output:
  > library(matrixTests)
  > 
  > #--- functions -----------------------------------------------------------------
  > 
  > cosinor_cosinor <- function(mat, time, per) {
  +   stopifnot(ncol(mat) == length(time))
  +   if(is.vector(mat)) mat <- matrix(mat, nrow=1)
  +   n <- m <- amp <- acr <- dfm <- dfr <- rsq <- f <- p <- numeric(nrow(mat))
  + 
  +   for(i in 1:nrow(mat)) {
  +     dat <- data.frame(x=mat[i,], t=time)
  +     dat <- dat[!is.na(dat$x) & !is.na(dat$t),]
  +     res <- cosinor::cosinor.lm(x ~ time(t), data=dat, period=per)
  + 
  +     n[i]   <- nrow(dat)
  +     m[i]   <- res$coefficients[1]
  +     amp[i] <- res$coefficients[2]
  +     acr[i] <- abs(cosinor2::correct.acrophase(res) / pi * (per/2))
  +     dfm[i] <- cosinor2::cosinor.detect(res)[2]
  +     dfr[i] <- cosinor2::cosinor.detect(res)[3]
  +     rsq[i] <- cosinor2::cosinor.PR(res)[[2]]
  +     f[i]   <- cosinor2::cosinor.detect(res)[1]
  +     p[i]   <- cosinor2::cosinor.detect(res)[4]
  +   }
  + 
  +   data.frame(obs=n, mesor=m, amplitude=amp, acrophase=acr, rsquared=rsq,
  +              df.model=dfm, df.residual=dfr, statistic=f,
  +              pvalue=p, period=per
  +              )
  + }
  > 
  > 
  > #--- montecarlo ----------------------------------------------------------------
  > 
  > # equally spaced 10 time points, period = 10
  > X <- matrix(rnorm(10000), ncol=10)
  > t <- -5:4
  > res1 <- cosinor_cosinor(X, t, 10)
  Error in loadNamespace(x) : there is no package called 'cosinor2'
  Calls: cosinor_cosinor ... loadNamespace -> withRestarts -> withOneRestart -> doWithOneRestart
  Execution halted