Running examples in ‘bioset-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: sets_read
> ### Title: Read sets and calculate concentrations and variability.
> ### Aliases: sets_read
> 
> ### ** Examples
> 
> # files "set_1.csv" and "set_2.csv" containing raw values and the
> # corresponding lables (consisting of ID and point in time like
> # "ID_TIME")
> read.csv(
+   file = system.file("extdata", "set_1.csv", package = "bioset"),
+   header = FALSE,
+   colClasses = "character"
+ )
    V1   V2  V3  V4  V5  V6
1  102  107 156 145 360 342
2  198  203 101 121 231 226
3  296  291 276 283 430 413
4  430  386 325 298 110 119
5 CAL1 CAL1 A_1 A_1 B_1 B_1
6 CAL2 CAL2 C_1 C_1 D_1 D_1
7 CAL3 CAL3 A_2 A_2 B_2 B_2
8 CAL4 CAL4 C_2 C_2 D_2 D_2
> read.csv(
+   file = system.file("extdata", "set_2.csv", package = "bioset"),
+   header = FALSE,
+   colClasses = "character"
+ )
    V1   V2  V3  V4  V5  V6
1   91   87 400 422 110  99
2  189  187 241 216 387 401
3  295  287 332 306 111 154
4  378  395 156 142 284 293
5 CAL1 CAL1 A_3 A_3 B_3 B_3
6 CAL2 CAL2 C_3 C_3 D_3 D_3
7 CAL3 CAL3 A_4 A_4 B_4 B_4
8 CAL4 CAL4 C_4 C_4 D_4 D_4
> 
> # the known concentration of the calibrators contained in these plates
> cals <- c(10, 20, 30, 40)      # ng / ml
> names(cals) <- c("CAL1", "CAL2", "CAL3", "CAL4")
> 
> # read both files into a tibble
> # columns "ID" and "time" separated by "_"
> # and calculate concentrations using the calibrators
> result <- sets_read(
+   sets = 2,                      # expect 2 plates
+   path = system.file("extdata", package = "bioset"),
+   additional_vars = c("ID", "time"),  # expect the labels to contain ID and
+                                       # point in time
+   additional_sep = "_",               # separated by "_"
+   cal_names = names(cals),       # that's what they're called in the files
+   cal_values = cals,             # the concentration has to be known
+   write_data = FALSE             # do not store the results in csv-files
+ )
> 
> # inspect results (all values contained in the two original files)
> result$all
# A tibble: 48 x 16
     set posit… sample… ID    time  value  real recove…     n   raw raw_… raw_…
   <int> <chr>  <chr>   <chr> <chr> <dbl> <dbl>   <dbl> <int> <dbl> <dbl> <dbl>
 1     1 A1     CAL1    CAL1  <NA>    102  10.0   1.01      2   102   104  3.54
 2     1 B1     CAL2    CAL2  <NA>    198  20.0   0.983     2   198   200  3.54
 3     1 C1     CAL3    CAL3  <NA>    296  30.0   0.981     2   296   294  3.54
 4     1 D1     CAL4    CAL4  <NA>    430  40.0   1.07      2   430   408 31.1 
 5     1 A2     CAL1    CAL1  <NA>    107  10.0   1.06      2   107   104  3.54
 6     1 B2     CAL2    CAL2  <NA>    203  20.0   1.01      2   203   200  3.54
 7     1 C2     CAL3    CAL3  <NA>    291  30.0   0.964     2   291   294  3.54
 8     1 D2     CAL4    CAL4  <NA>    386  40.0   0.960     2   386   408 31.1 
 9     1 A3     A_1     A     1       156  NA    NA         2   156   150  7.78
10     1 B3     C_1     C     1       101  NA    NA         2   101   111 14.1 
# ... with 38 more rows, and 4 more variables: raw_cv <dbl>,
#   concentration <dbl>, concentration_sd <dbl>, concentration_cv <dbl>
> # (all values except CAL1-4)
> result$samples
# A tibble: 16 x 12
   position samp… ID    time  plate     n   raw raw_… raw_cv conc… conc… conce…
   <chr>    <chr> <chr> <chr> <int> <int> <dbl> <dbl>  <dbl> <dbl> <dbl>  <dbl>
 1 A3       A_1   A     1         1     2   150  7.78 0.0517  14.9 0.775 0.0519
 2 B3       C_1   C     1         1     2   111 14.1  0.127   11.0 1.41  0.128 
 3 C3       A_2   A     2         1     2   280  4.95 0.0177  27.8 0.493 0.0178
 4 D3       C_2   C     2         1     2   312 19.1  0.0613  31.0 1.90  0.0614
 5 A5       B_1   B     1         1     2   351 12.7  0.0363  34.9 1.27  0.0363
 6 B5       D_1   D     1         1     2   228  3.54 0.0155  22.7 0.352 0.0155
 7 C5       B_2   B     2         1     2   422 12.0  0.0285  41.9 1.20  0.0286
 8 D5       D_2   D     2         1     2   114  6.36 0.0556  11.3 0.634 0.0559
 9 A3       A_3   A     3         2     2   411 15.6  0.0378  42.3 1.56  0.0369
10 B3       C_3   C     3         2     2   228 17.7  0.0774  24.0 1.78  0.0740
11 C3       A_4   A     4         2     2   319 18.4  0.0576  33.1 1.85  0.0558
12 D3       C_4   C     4         2     2   149  9.90 0.0664  16.0 0.994 0.0622
13 A5       B_3   B     3         2     2   104  7.78 0.0744  11.5 0.781 0.0678
14 B5       D_3   D     3         2     2   394  9.90 0.0251  40.6 0.994 0.0245
15 C5       B_4   B     4         2     2   132 30.4  0.229   14.3 3.05  0.213 
16 D5       D_4   D     4         2     2   288  6.36 0.0221  30.0 0.639 0.0213
> # inspect goodness of fit
> # for plate 1
> result$set_1$plot
NULL
> result$set_1$model
NULL
> # for plate 2
> result$set_2$plot
NULL
> result$set_2$model
NULL
> 
> 
> 
> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
> base::cat("sets_read", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> ### * <FOOTER>
> ###
> options(digits = 7L)
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
Time elapsed:  6.2 0.071 7.305 0 0 
> grDevices::dev.off()
Error in grDevices::dev.off() : 
  cannot shut down device 1 (the null device)
Execution halted