Running 'coef.R' [0s]
  Comparing 'coef.Rout' to 'coef.Rout.save' ... OK
  Running 'confint.R' [0s]
  Comparing 'confint.Rout' to 'confint.Rout.save' ... OK
  Running 'df-residual.R' [0s]
  Comparing 'df-residual.Rout' to 'df-residual.Rout.save' ... OK
  Running 'efficiency.R' [157s]
  Running 'fail-data-frame.R' [0s]
  Comparing 'fail-data-frame.Rout' to 'fail-data-frame.Rout.save' ... OK
  Running 'fail-formula-length.R' [0s]
  Comparing 'fail-formula-length.Rout' to 'fail-formula-length.Rout.save' ... OK
  Running 'fail-formula-varcount.R' [170s]
  Running 'fitted.R' [173s]
  Running 'limit-scalability.R' [0s]
  Comparing 'limit-scalability.Rout' to 'limit-scalability.Rout.save' ... OK
  Running 'optimal-scalability.R' [163s]
  Running 'overhead.R' [154s]
  Running 'peak-scalability.R' [0s]
  Comparing 'peak-scalability.Rout' to 'peak-scalability.Rout.save' ... OK
  Running 'plot.R' [0s]
  Comparing 'plot.Rout' to 'plot.Rout.save' ... OK
  Running 'predict.R' [0s]
  Comparing 'predict.Rout' to 'predict.Rout.save' ... OK
  Running 'residuals.R' [157s]
  Running 'scalability.R' [0s]
  Comparing 'scalability.Rout' to 'scalability.Rout.save' ... OK
  Running 'sigma.R' [0s]
  Comparing 'sigma.Rout' to 'sigma.Rout.save' ... OK
  Running 'summary.R' [157s]
  Running 'usl-nls.R' [0s]
  Comparing 'usl-nls.Rout' to 'usl-nls.Rout.save' ... OK
  Running 'usl-nlxb.R' [175s]
  Running 'warn-accuracy.R' [0s]
  Comparing 'warn-accuracy.Rout' to 'warn-accuracy.Rout.save' ... OK
Running the tests in 'tests/efficiency.R' failed.
Complete output:
  > # efficiency.R --- Test function efficiency
  > 
  > library(usl)
  > 
  > data(specsdm91)
  > 
  > options(digits=3)
  > 
  > u <- usl(throughput ~ load, specsdm91)
  > 
  > efficiency(u)
       1     18     36     72    108    144    216 
  0.7211 0.6148 0.5100 0.2860 0.1882 0.1370 0.0876 
  > 
  > proc.time()
     user  system elapsed 
     0.28    0.09    0.34 
Running the tests in 'tests/fail-formula-varcount.R' failed.
Complete output:
  > # fail-formula-varcount.R --- Fail if formula has wrong number of variables
  > 
  > library(usl)
  > 
  > data(airquality)
  > 
  > try(usl(Ozone ~ Wind + Temp, data=airquality))
  Error in usl(Ozone ~ Wind + Temp, data = airquality) : 
    'formula' must contain exactly 2 variables
  > 
  > proc.time()
     user  system elapsed 
     0.31    0.04    0.32 
Running the tests in 'tests/fitted.R' failed.
Complete output:
  > # fitted.R --- Test function fitted
  > 
  > library(usl)
  > 
  > data(specsdm91)
  > 
  > options(digits=3)
  > 
  > u <- usl(throughput ~ load, specsdm91)
  > 
  > fitted(u)
     1    2    3    4    5    6    7 
    90 1078 1541 1850 1879 1822 1646 
  > 
  > proc.time()
     user  system elapsed 
     0.28    0.07    0.34 
Running the tests in 'tests/optimal-scalability.R' failed.
Complete output:
  > # optimal-scalability.R --- Test function optimal.scalability
  > 
  > library(usl)
  > 
  > data(specsdm91)
  > 
  > u <- usl(throughput ~ load, specsdm91)
  > 
  > # Calculate where optimal scalability is reached
  > stopifnot(all.equal(optimal.scalability(u), 36.06401, 0.0001))
  > 
  > # Calculate scalability for different coefficients
  > stopifnot(all.equal(optimal.scalability(u, 0.001, 0.00001), 1000, 0.0001))
  > 
  > proc.time()
     user  system elapsed 
     0.23    0.10    0.32 
Running the tests in 'tests/overhead.R' failed.
Complete output:
  > # overhead.R --- Test function overhead
  > 
  > library(usl)
  > 
  > options(digits = 3, scipen = 6)
  > 
  > data(specsdm91)
  > 
  > overhead(usl(throughput ~ load, specsdm91))
      ideal contention coherency
  1 1.00000     0.0000  0.000000
  2 0.05556     0.0262  0.000887
  3 0.02778     0.0270  0.001826
  4 0.01389     0.0273  0.003705
  5 0.00926     0.0275  0.005584
  6 0.00694     0.0275  0.007462
  7 0.00463     0.0276  0.011219
  > 
  > overhead(usl(throughput ~ load, specsdm91),
  +          newdata = data.frame(load = c(1,2,4)))
    ideal contention coherency
  1  1.00     0.0000 0.0000000
  2  0.50     0.0139 0.0000522
  3  0.25     0.0208 0.0001565
  > 
  > proc.time()
     user  system elapsed 
     0.26    0.10    0.36 
Running the tests in 'tests/residuals.R' failed.
Complete output:
  > # residuals.R --- Test function residuals
  > 
  > library(usl)
  > 
  > data(specsdm91)
  > 
  > options(digits=3)
  > 
  > u <- usl(throughput ~ load, specsdm91)
  > 
  > residuals(u)
       1      2      3      4      5      6      7 
  -25.10 -81.66 111.09   3.05 -49.99 -46.60  56.00 
  > 
  > proc.time()
     user  system elapsed 
     0.25    0.07    0.31 
Running the tests in 'tests/summary.R' failed.
Complete output:
  > # summary.R --- Test function summary
  > 
  > library(usl)
  > 
  > data(specsdm91)
  > 
  > u <- usl(throughput ~ load, specsdm91)
  > 
  > summary(u, digits=3)
  
  Call:
  usl(formula = throughput ~ load, data = specsdm91)
  
  Efficiency:
      Min      1Q  Median      3Q     Max 
  0.08757 0.16257 0.28600 0.56241 0.72115 
  
  Residuals:
     Min     1Q Median     3Q    Max 
  -81.66 -48.29 -25.09  29.52 111.09 
  
  Coefficients:
          Estimate  Std. Error  t value  Pr(>|t|)    
  alpha  2.773e-02   9.122e-03    3.040   0.03841  * 
  beta   1.044e-04   1.988e-05    5.251   0.00629  **
  gamma  9.000e+01   1.421e+01    6.332   0.00318  **
  ---
  Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
  
  Residual standard error: 82.85 on 4 degrees of freedom
  
  Scalability bounds:
  limit: throughput 3246 (Amdahl asymptote)
  peak:  throughput 1884 at load 96.52 
  opt:   throughput 1542 at load 36.06 
  
  > 
  > proc.time()
     user  system elapsed 
     0.23    0.09    0.32 
Running the tests in 'tests/usl-nlxb.R' failed.
Complete output:
  > # usl-nlxb.R --- Test method nlxb
  > 
  > library(usl)
  > 
  > options(scipen=9)
  > 
  > data(specsdm91)
  > 
  > u <- usl(throughput ~ load, specsdm91, method = "nlxb")
  > 
  > signif(coef(u)[['alpha']], 2)
  [1] 0.028
  > signif(coef(u)[['beta']], 2)
  [1] 0.0001
  > signif(coef(u)[['gamma']], 2)
  [1] 90
  > 
  > proc.time()
     user  system elapsed 
     0.26    0.06    0.31