CRAN Package Check Results for Package vpc

Last updated on 2020-04-25 01:53:21 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.1.0 8.86 95.54 104.40 ERROR
r-devel-linux-x86_64-debian-gcc 1.1.0 7.27 72.11 79.38 ERROR
r-devel-linux-x86_64-fedora-clang 1.1.0 123.14 ERROR
r-devel-linux-x86_64-fedora-gcc 1.1.0 122.22 ERROR
r-devel-windows-ix86+x86_64 1.1.0 23.00 186.00 209.00 ERROR
r-patched-linux-x86_64 1.1.0 8.29 92.65 100.94 ERROR
r-patched-osx-x86_64 1.1.0 OK
r-patched-solaris-x86 1.1.0 169.40 ERROR
r-release-linux-x86_64 1.1.0 7.27 84.77 92.04 ERROR
r-release-windows-ix86+x86_64 1.1.0 19.00 95.00 114.00 ERROR
r-release-osx-x86_64 1.1.0 OK
r-oldrel-windows-ix86+x86_64 1.1.0 10.00 130.00 140.00 ERROR
r-oldrel-osx-x86_64 1.1.0 OK

Check Details

Version: 1.1.0
Check: tests
Result: ERROR
     Running 'test-add_sim_index_number.R' [4s/4s]
     Running 'test-filter_dv.R' [0s/1s]
     Running 'test-labeller.R' [5s/6s]
     Running 'test-softwaretype.R' [0s/1s]
     Running 'test-strat-col-detection.R' [0s/0s]
     Running 'test-vpc.R' [5s/6s]
     Running 'test-vpc_cat.R' [2s/3s]
     Running 'test-vpc_cens.R' [9s/10s]
     Running 'test-vpc_tte.R' [7s/8s]
    Running the tests in 'tests/test-add_sim_index_number.R' failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     x Existing data has 66000 rows.
     x Assigned data has 132 rows.
     i Only vectors of size 1 are recycled.
     Backtrace:
     x
     1. \-vpc::sim_data(...)
     2. +-base::`$<-`(...)
     3. \-tibble:::`$<-.tbl_df`(...)
     4. \-tibble:::tbl_subassign(...)
     5. \-tibble:::vectbl_recycle_rhs(...)
     6. \-base::tryCatch(...)
     7. \-base:::tryCatchList(expr, classes, parentenv, handlers)
     8. \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. \-value[[3L]](cond)
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’ [3s/5s]
     Running ‘test-filter_dv.R’ [0s/1s]
     Running ‘test-labeller.R’ [4s/6s]
     Running ‘test-softwaretype.R’ [0s/1s]
     Running ‘test-strat-col-detection.R’ [0s/1s]
     Running ‘test-vpc.R’ [4s/5s]
     Running ‘test-vpc_cat.R’ [2s/3s]
     Running ‘test-vpc_cens.R’ [6s/10s]
     Running ‘test-vpc_tte.R’ [6s/8s]
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’
     Running ‘test-filter_dv.R’
     Running ‘test-labeller.R’
     Running ‘test-softwaretype.R’
     Running ‘test-strat-col-detection.R’
     Running ‘test-vpc.R’
     Running ‘test-vpc_cat.R’
     Running ‘test-vpc_cens.R’ [10s/12s]
     Running ‘test-vpc_tte.R’ [9s/11s]
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’
     Running ‘test-filter_dv.R’
     Running ‘test-labeller.R’
     Running ‘test-softwaretype.R’
     Running ‘test-strat-col-detection.R’
     Running ‘test-vpc.R’
     Running ‘test-vpc_cat.R’
     Running ‘test-vpc_cens.R’ [10s/15s]
     Running ‘test-vpc_tte.R’
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 1.1.0
Check: tests
Result: ERROR
     Running 'test-add_sim_index_number.R' [7s]
     Running 'test-filter_dv.R' [1s]
     Running 'test-labeller.R' [9s]
     Running 'test-softwaretype.R' [2s]
     Running 'test-strat-col-detection.R' [1s]
     Running 'test-vpc.R' [12s]
     Running 'test-vpc_cat.R' [7s]
     Running 'test-vpc_cens.R' [15s]
     Running 'test-vpc_tte.R' [9s]
    Running the tests in 'tests/test-add_sim_index_number.R' failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     x Existing data has 66000 rows.
     x Assigned data has 132 rows.
     i Only vectors of size 1 are recycled.
     Backtrace:
     x
     1. \-vpc::sim_data(...)
     2. +-base::`$<-`(...)
     3. \-tibble:::`$<-.tbl_df`(...)
     4. \-tibble:::tbl_subassign(...)
     5. \-tibble:::vectbl_recycle_rhs(...)
     6. \-base::tryCatch(...)
     7. \-base:::tryCatchList(expr, classes, parentenv, handlers)
     8. \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. \-value[[3L]](cond)
     Execution halted
Flavor: r-devel-windows-ix86+x86_64

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’ [3s/4s]
     Running ‘test-filter_dv.R’ [0s/1s]
     Running ‘test-labeller.R’ [5s/5s]
     Running ‘test-softwaretype.R’ [0s/1s]
     Running ‘test-strat-col-detection.R’ [0s/0s]
     Running ‘test-vpc.R’ [4s/5s]
     Running ‘test-vpc_cat.R’ [2s/3s]
     Running ‘test-vpc_cens.R’ [9s/10s]
     Running ‘test-vpc_tte.R’ [7s/8s]
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-patched-linux-x86_64

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’
     Running ‘test-filter_dv.R’
     Running ‘test-labeller.R’
     Running ‘test-softwaretype.R’
     Running ‘test-strat-col-detection.R’
     Running ‘test-vpc.R’
     Running ‘test-vpc_cat.R’
     Running ‘test-vpc_cens.R’ [13s/15s]
     Running ‘test-vpc_tte.R’ [13s/16s]
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-patched-solaris-x86

Version: 1.1.0
Check: tests
Result: ERROR
     Running ‘test-add_sim_index_number.R’ [3s/4s]
     Running ‘test-filter_dv.R’ [0s/1s]
     Running ‘test-labeller.R’ [4s/5s]
     Running ‘test-softwaretype.R’ [0s/0s]
     Running ‘test-strat-col-detection.R’ [0s/0s]
     Running ‘test-vpc.R’ [4s/4s]
     Running ‘test-vpc_cat.R’ [2s/3s]
     Running ‘test-vpc_cens.R’ [8s/9s]
     Running ‘test-vpc_tte.R’ [6s/7s]
    Running the tests in ‘tests/test-add_sim_index_number.R’ failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     ✖ Existing data has 66000 rows.
     ✖ Assigned data has 132 rows.
     ℹ Only vectors of size 1 are recycled.
     Backtrace:
     █
     1. └─vpc::sim_data(...)
     2. ├─base::`$<-`(...)
     3. └─tibble:::`$<-.tbl_df`(...)
     4. └─tibble:::tbl_subassign(...)
     5. └─tibble:::vectbl_recycle_rhs(...)
     6. └─base::tryCatch(...)
     7. └─base:::tryCatchList(expr, classes, parentenv, handlers)
     8. └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. └─value[[3L]](cond)
     Execution halted
Flavor: r-release-linux-x86_64

Version: 1.1.0
Check: tests
Result: ERROR
     Running 'test-add_sim_index_number.R' [3s]
     Running 'test-filter_dv.R' [0s]
     Running 'test-labeller.R' [4s]
     Running 'test-softwaretype.R' [0s]
     Running 'test-strat-col-detection.R' [0s]
     Running 'test-vpc.R' [4s]
     Running 'test-vpc_cat.R' [2s]
     Running 'test-vpc_cens.R' [8s]
     Running 'test-vpc_tte.R' [7s]
    Running the tests in 'tests/test-add_sim_index_number.R' failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     x Existing data has 66000 rows.
     x Assigned data has 132 rows.
     i Only vectors of size 1 are recycled.
     Backtrace:
     x
     1. \-vpc::sim_data(...)
     2. +-base::`$<-`(...)
     3. \-tibble:::`$<-.tbl_df`(...)
     4. \-tibble:::tbl_subassign(...)
     5. \-tibble:::vectbl_recycle_rhs(...)
     6. \-base::tryCatch(...)
     7. \-base:::tryCatchList(expr, classes, parentenv, handlers)
     8. \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. \-value[[3L]](cond)
     Execution halted
Flavor: r-release-windows-ix86+x86_64

Version: 1.1.0
Check: tests
Result: ERROR
     Running 'test-add_sim_index_number.R' [4s]
     Running 'test-filter_dv.R' [1s]
     Running 'test-labeller.R' [7s]
     Running 'test-softwaretype.R' [1s]
     Running 'test-strat-col-detection.R' [1s]
     Running 'test-vpc.R' [6s]
     Running 'test-vpc_cat.R' [3s]
     Running 'test-vpc_cens.R' [9s]
     Running 'test-vpc_tte.R' [9s]
    Running the tests in 'tests/test-add_sim_index_number.R' failed.
    Complete output:
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     The following objects are masked from 'package:stats':
    
     filter, lag
    
     The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
     > library(vpc)
     > library(testit)
     > Sys.setenv("R_TESTS" = "")
     >
     > ## Load the theophylline PK dataset
     > obs <- Theoph
     > colnames(obs) <- c("id", "wt", "dose", "time", "dv")
     > obs <- obs %>%
     + dplyr::group_by(id) %>%
     + mutate(sex = round(runif(1))) # randomly assign a "sex" covariate
     > sim <- sim_data(obs, # the design of the dataset
     + model = function(x) { # the model
     + vpc:::pk_oral_1cmt (t = x$time, dose=x$dose * x$wt, ka = x$ka, ke = x$ke, cl = x$cl * x$wt)
     + },
     + error = list(additive = 0.1),
     + theta = c(2.774, 0.0718, .0361), # parameter values
     + omega_mat = c(0.08854, # specified as lower triangle by default;
     + 0.02421, 0.02241, # note: assumed that every theta has iiv, set to 0 if no iiv.
     + 0.008069, 0.008639, 0.02862),
     + par_names = c("ka", "ke", "cl"), # link the parameters in the model to the thetas/omegas
     + n = 500)
     Error: Assigned data `model(tmp_pred)` must be compatible with existing data.
     x Existing data has 66000 rows.
     x Assigned data has 132 rows.
     i Only vectors of size 1 are recycled.
     Backtrace:
     x
     1. \-vpc::sim_data(...)
     2. +-base::`$<-`(...)
     3. \-tibble:::`$<-.tbl_df`(...)
     4. \-tibble:::tbl_subassign(...)
     5. \-tibble:::vectbl_recycle_rhs(...)
     6. \-base::tryCatch(...)
     7. \-base:::tryCatchList(expr, classes, parentenv, handlers)
     8. \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
     9. \-value[[3L]](cond)
     Execution halted
Flavor: r-oldrel-windows-ix86+x86_64