Last updated on 2024-09-12 05:49:52 CEST.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 2.3.3 | 8.17 | 89.39 | 97.56 | ERROR | |
r-devel-linux-x86_64-debian-gcc | 2.3.3 | 4.81 | 60.79 | 65.60 | ERROR | |
r-devel-linux-x86_64-fedora-clang | 2.3.3 | 165.76 | ERROR | |||
r-devel-linux-x86_64-fedora-gcc | 2.3.3 | 178.24 | ERROR | |||
r-devel-windows-x86_64 | 2.3.3 | 10.00 | 211.00 | 221.00 | ERROR | |
r-patched-linux-x86_64 | 2.3.3 | 9.88 | 117.76 | 127.64 | OK | |
r-release-linux-x86_64 | 2.3.3 | 6.28 | 116.02 | 122.30 | OK | |
r-release-macos-arm64 | 2.3.3 | 149.00 | OK | |||
r-release-macos-x86_64 | 2.3.3 | 409.00 | OK | |||
r-release-windows-x86_64 | 2.3.3 | 9.00 | 304.00 | 313.00 | OK | |
r-oldrel-macos-arm64 | 2.3.3 | 177.00 | OK | |||
r-oldrel-macos-x86_64 | 2.3.3 | 392.00 | OK | |||
r-oldrel-windows-x86_64 | 2.3.3 | 12.00 | 373.00 | 385.00 | OK |
Version: 2.3.3
Check: examples
Result: ERROR
Running examples in ‘seminr-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: PLSc
> ### Title: seminr PLSc Function
> ### Aliases: PLSc
>
> ### ** Examples
>
> mobi <- mobi
>
> #seminr syntax for creating measurement model
> mobi_mm <- constructs(
+ reflective("Image", multi_items("IMAG", 1:5)),
+ reflective("Expectation", multi_items("CUEX", 1:3)),
+ reflective("Quality", multi_items("PERQ", 1:7)),
+ reflective("Value", multi_items("PERV", 1:2)),
+ reflective("Satisfaction", multi_items("CUSA", 1:3)),
+ reflective("Complaints", single_item("CUSCO")),
+ reflective("Loyalty", multi_items("CUSL", 1:3))
+ )
> #seminr syntax for creating structural model
> mobi_sm <- relationships(
+ paths(from = "Image", to = c("Expectation", "Satisfaction", "Loyalty")),
+ paths(from = "Expectation", to = c("Quality", "Value", "Satisfaction")),
+ paths(from = "Quality", to = c("Value", "Satisfaction")),
+ paths(from = "Value", to = c("Satisfaction")),
+ paths(from = "Satisfaction", to = c("Complaints", "Loyalty")),
+ paths(from = "Complaints", to = "Loyalty")
+ )
>
> seminr_model <- estimate_pls(data = mobi,
+ measurement_model = mobi_mm,
+ structural_model = mobi_sm)
Generating the seminr model
All 250 observations are valid.
Error in stats::cor(seminr_model$construct_scores)/adjustment :
non-conformable arrays
Calls: estimate_pls -> model_consistent -> PLSc
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 2.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [29s/95s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(seminr)
> Sys.unsetenv("R_TESTS")
> test_check("seminr")
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
══ Skipped tests (3) ═══════════════════════════════════════════════════════════
• empty test (3): 'test-plot-cbsem.R:1:1', 'test-plot-lavaan-cfa.R:1:1',
'test-plot-save-plot.R:1:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-bootstrap.R:41:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:41:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:56:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:57:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:58:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:83:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:83:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:98:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:99:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:100:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:123:1'): (code run outside of `test_that()`) ───────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:123:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:137:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:138:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:139:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:161:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_weighting) at test-bootstrap.R:161:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent-interactions.R:24:1'): (code run outside of `test_that()`) ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-consistent-interactions.R:24:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent.R:21:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_factorial) at test-consistent.R:21:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-descriptive-stats.R:20:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-descriptive-stats.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-measure.r:67:1'): (code run outside of `test_that()`) ──────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, measurement_model = mm, structural_model = sm) at test-measure.r:67:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-only-sm-composites-evaluated.R:30:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(happy_pls_lower) at test-only-sm-composites-evaluated.R:30:1
2. └─seminr:::summary.seminr_model(happy_pls_lower)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-plot-basics.R:27:4'): dot_graph does not fail for a demo data set ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:27:4
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-basics.R:65:3'): dot_graph can handle both composite measurement types ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:65:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-bootstrapped.R:20:3'): bootstrapped models work ───────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-bootstrapped.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-htmt.R:26:3'): Basic HTMT Plots work ──────────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-htmt.R:26:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-interaction.R:20:3'): interaction terms work ──────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-interaction.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-shape-offsets.R:20:3'): Testing different shapes for different constructs ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-shape-offsets.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-specifiedmodel.R:29:3'): dot_graph does not fail for a specified model ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, model = model) at test-plot-specifiedmodel.R:29:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-themes.R:31:3'): Modify theme edge multipliers ────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-themes.R:31:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
Error in `1:pls_boot$boots`: argument of length 0
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::boot_paths_df(group1_boot)
3. └─base::apply(...)
4. └─seminr (local) FUN(newX[, i], ...)
── Error ('test-plsc-fsquared.R:38:1'): (code run outside of `test_that()`) ────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plsc-fsquared.R:38:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-rerun.R:38:3'): rerun of pls_model with changed specification creates different results ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. ├─seminr::rerun(mobi_pls, measurement_model = as.reflective(mobi_mm)) at test-rerun.R:38:3
2. └─seminr:::rerun.pls_model(mobi_pls, measurement_model = as.reflective(mobi_mm))
3. └─seminr::estimate_pls(...)
4. └─seminr:::model_consistent(seminr_model)
5. └─seminr::PLSc(seminr_model)
── Error ('test-structure.r:98:1'): (code run outside of `test_that()`) ────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model1) at test-structure.r:98:1
2. └─seminr:::summary.seminr_model(seminr_model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-summary.R:20:1'): (code run outside of `test_that()`) ──────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-summary.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-validity.R:30:1'): (code run outside of `test_that()`) ─────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(model1) at test-validity.R:30:1
2. └─seminr:::summary.seminr_model(model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 2.3.3
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
...
--- re-building ‘SEMinR.Rmd’ using rmarkdown
Quitting from lines 458-459 [unnamed-chunk-27] (SEMinR.Rmd)
Error: processing vignette 'SEMinR.Rmd' failed with diagnostics:
replacement diagonal has wrong length
--- failed re-building ‘SEMinR.Rmd’
SUMMARY: processing the following file failed:
‘SEMinR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 2.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [18s/63s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(seminr)
> Sys.unsetenv("R_TESTS")
> test_check("seminr")
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
══ Skipped tests (3) ═══════════════════════════════════════════════════════════
• empty test (3): 'test-plot-cbsem.R:1:1', 'test-plot-lavaan-cfa.R:1:1',
'test-plot-save-plot.R:1:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-bootstrap.R:41:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:41:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:56:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:57:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:58:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:83:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:83:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:98:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:99:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:100:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:123:1'): (code run outside of `test_that()`) ───────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:123:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:137:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:138:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:139:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:161:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_weighting) at test-bootstrap.R:161:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent-interactions.R:24:1'): (code run outside of `test_that()`) ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-consistent-interactions.R:24:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent.R:21:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_factorial) at test-consistent.R:21:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-descriptive-stats.R:20:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-descriptive-stats.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-measure.r:67:1'): (code run outside of `test_that()`) ──────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, measurement_model = mm, structural_model = sm) at test-measure.r:67:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-only-sm-composites-evaluated.R:30:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(happy_pls_lower) at test-only-sm-composites-evaluated.R:30:1
2. └─seminr:::summary.seminr_model(happy_pls_lower)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-plot-basics.R:27:4'): dot_graph does not fail for a demo data set ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:27:4
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-basics.R:65:3'): dot_graph can handle both composite measurement types ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:65:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-bootstrapped.R:20:3'): bootstrapped models work ───────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-bootstrapped.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-htmt.R:26:3'): Basic HTMT Plots work ──────────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-htmt.R:26:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-interaction.R:20:3'): interaction terms work ──────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-interaction.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-shape-offsets.R:20:3'): Testing different shapes for different constructs ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-shape-offsets.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-specifiedmodel.R:29:3'): dot_graph does not fail for a specified model ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, model = model) at test-plot-specifiedmodel.R:29:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-themes.R:31:3'): Modify theme edge multipliers ────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-themes.R:31:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
Error in `1:pls_boot$boots`: argument of length 0
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::boot_paths_df(group1_boot)
3. └─base::apply(...)
4. └─seminr (local) FUN(newX[, i], ...)
── Error ('test-plsc-fsquared.R:38:1'): (code run outside of `test_that()`) ────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plsc-fsquared.R:38:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-rerun.R:38:3'): rerun of pls_model with changed specification creates different results ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. ├─seminr::rerun(mobi_pls, measurement_model = as.reflective(mobi_mm)) at test-rerun.R:38:3
2. └─seminr:::rerun.pls_model(mobi_pls, measurement_model = as.reflective(mobi_mm))
3. └─seminr::estimate_pls(...)
4. └─seminr:::model_consistent(seminr_model)
5. └─seminr::PLSc(seminr_model)
── Error ('test-structure.r:98:1'): (code run outside of `test_that()`) ────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model1) at test-structure.r:98:1
2. └─seminr:::summary.seminr_model(seminr_model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-summary.R:20:1'): (code run outside of `test_that()`) ──────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-summary.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-validity.R:30:1'): (code run outside of `test_that()`) ─────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(model1) at test-validity.R:30:1
2. └─seminr:::summary.seminr_model(model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 2.3.3
Check: dependencies in R code
Result: NOTE
Namespaces in Imports field not imported from:
‘knitr’ ‘rmarkdown’ ‘webp’
All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 2.3.3
Check: examples
Result: ERROR
Running examples in ‘seminr-Ex.R’ failed
The error most likely occurred in:
> ### Name: PLSc
> ### Title: seminr PLSc Function
> ### Aliases: PLSc
>
> ### ** Examples
>
> mobi <- mobi
>
> #seminr syntax for creating measurement model
> mobi_mm <- constructs(
+ reflective("Image", multi_items("IMAG", 1:5)),
+ reflective("Expectation", multi_items("CUEX", 1:3)),
+ reflective("Quality", multi_items("PERQ", 1:7)),
+ reflective("Value", multi_items("PERV", 1:2)),
+ reflective("Satisfaction", multi_items("CUSA", 1:3)),
+ reflective("Complaints", single_item("CUSCO")),
+ reflective("Loyalty", multi_items("CUSL", 1:3))
+ )
> #seminr syntax for creating structural model
> mobi_sm <- relationships(
+ paths(from = "Image", to = c("Expectation", "Satisfaction", "Loyalty")),
+ paths(from = "Expectation", to = c("Quality", "Value", "Satisfaction")),
+ paths(from = "Quality", to = c("Value", "Satisfaction")),
+ paths(from = "Value", to = c("Satisfaction")),
+ paths(from = "Satisfaction", to = c("Complaints", "Loyalty")),
+ paths(from = "Complaints", to = "Loyalty")
+ )
>
> seminr_model <- estimate_pls(data = mobi,
+ measurement_model = mobi_mm,
+ structural_model = mobi_sm)
Generating the seminr model
All 250 observations are valid.
Error in stats::cor(seminr_model$construct_scores)/adjustment :
non-conformable arrays
Calls: estimate_pls -> model_consistent -> PLSc
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64
Version: 2.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [51s/595s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(seminr)
> Sys.unsetenv("R_TESTS")
> test_check("seminr")
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
══ Skipped tests (3) ═══════════════════════════════════════════════════════════
• empty test (3): 'test-plot-cbsem.R:1:1', 'test-plot-lavaan-cfa.R:1:1',
'test-plot-save-plot.R:1:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-bootstrap.R:41:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:41:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:56:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:57:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:58:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:83:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:83:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:98:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:99:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:100:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:123:1'): (code run outside of `test_that()`) ───────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:123:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:137:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:138:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:139:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:161:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_weighting) at test-bootstrap.R:161:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent-interactions.R:24:1'): (code run outside of `test_that()`) ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-consistent-interactions.R:24:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent.R:21:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_factorial) at test-consistent.R:21:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-descriptive-stats.R:20:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-descriptive-stats.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-measure.r:67:1'): (code run outside of `test_that()`) ──────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, measurement_model = mm, structural_model = sm) at test-measure.r:67:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-only-sm-composites-evaluated.R:30:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(happy_pls_lower) at test-only-sm-composites-evaluated.R:30:1
2. └─seminr:::summary.seminr_model(happy_pls_lower)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-plot-basics.R:27:4'): dot_graph does not fail for a demo data set ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:27:4
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-basics.R:65:3'): dot_graph can handle both composite measurement types ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:65:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-bootstrapped.R:20:3'): bootstrapped models work ───────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-bootstrapped.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-htmt.R:26:3'): Basic HTMT Plots work ──────────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-htmt.R:26:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-interaction.R:20:3'): interaction terms work ──────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-interaction.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-shape-offsets.R:20:3'): Testing different shapes for different constructs ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-shape-offsets.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-specifiedmodel.R:29:3'): dot_graph does not fail for a specified model ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, model = model) at test-plot-specifiedmodel.R:29:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-themes.R:31:3'): Modify theme edge multipliers ────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-themes.R:31:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
Error in `1:pls_boot$boots`: argument of length 0
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::boot_paths_df(group1_boot)
3. └─base::apply(...)
4. └─seminr (local) FUN(newX[, i], ...)
── Error ('test-plsc-fsquared.R:38:1'): (code run outside of `test_that()`) ────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plsc-fsquared.R:38:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-rerun.R:38:3'): rerun of pls_model with changed specification creates different results ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. ├─seminr::rerun(mobi_pls, measurement_model = as.reflective(mobi_mm)) at test-rerun.R:38:3
2. └─seminr:::rerun.pls_model(mobi_pls, measurement_model = as.reflective(mobi_mm))
3. └─seminr::estimate_pls(...)
4. └─seminr:::model_consistent(seminr_model)
5. └─seminr::PLSc(seminr_model)
── Error ('test-structure.r:98:1'): (code run outside of `test_that()`) ────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model1) at test-structure.r:98:1
2. └─seminr:::summary.seminr_model(seminr_model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-summary.R:20:1'): (code run outside of `test_that()`) ──────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-summary.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-validity.R:30:1'): (code run outside of `test_that()`) ─────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(model1) at test-validity.R:30:1
2. └─seminr:::summary.seminr_model(model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 2.3.3
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
--- re-building ‘SEMinR.Rmd’ using rmarkdown
Quitting from lines 458-459 [unnamed-chunk-27] (SEMinR.Rmd)
Error: processing vignette 'SEMinR.Rmd' failed with diagnostics:
replacement diagonal has wrong length
--- failed re-building ‘SEMinR.Rmd’
SUMMARY: processing the following file failed:
‘SEMinR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64
Version: 2.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [61s/169s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(seminr)
> Sys.unsetenv("R_TESTS")
> test_check("seminr")
[ FAIL 35 | WARN 17 | SKIP 0 | PASS 132 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-bootstrap.R:41:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:41:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:56:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:57:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:58:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:83:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:83:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:98:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:99:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:100:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:123:1'): (code run outside of `test_that()`) ───────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:123:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:137:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:138:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:139:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:161:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_weighting) at test-bootstrap.R:161:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent-interactions.R:24:1'): (code run outside of `test_that()`) ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-consistent-interactions.R:24:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent.R:21:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_factorial) at test-consistent.R:21:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-descriptive-stats.R:20:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-descriptive-stats.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-measure.r:67:1'): (code run outside of `test_that()`) ──────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, measurement_model = mm, structural_model = sm) at test-measure.r:67:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-only-sm-composites-evaluated.R:30:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(happy_pls_lower) at test-only-sm-composites-evaluated.R:30:1
2. └─seminr:::summary.seminr_model(happy_pls_lower)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-plot-basics.R:27:4'): dot_graph does not fail for a demo data set ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:27:4
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-basics.R:65:3'): dot_graph can handle both composite measurement types ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:65:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-bootstrapped.R:20:3'): bootstrapped models work ───────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-bootstrapped.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-htmt.R:26:3'): Basic HTMT Plots work ──────────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-htmt.R:26:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-interaction.R:20:3'): interaction terms work ──────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-interaction.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-save-plot.R:26:5'): Saving a plot works ───────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-save-plot.R:26:5
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-shape-offsets.R:20:3'): Testing different shapes for different constructs ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-shape-offsets.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-specifiedmodel.R:29:3'): dot_graph does not fail for a specified model ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, model = model) at test-plot-specifiedmodel.R:29:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-themes.R:31:3'): Modify theme edge multipliers ────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-themes.R:31:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
Error in `1:pls_boot$boots`: argument of length 0
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::boot_paths_df(group1_boot)
3. └─base::apply(...)
4. └─seminr (local) FUN(newX[, i], ...)
── Error ('test-plsc-fsquared.R:38:1'): (code run outside of `test_that()`) ────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plsc-fsquared.R:38:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-rerun.R:38:3'): rerun of pls_model with changed specification creates different results ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. ├─seminr::rerun(mobi_pls, measurement_model = as.reflective(mobi_mm)) at test-rerun.R:38:3
2. └─seminr:::rerun.pls_model(mobi_pls, measurement_model = as.reflective(mobi_mm))
3. └─seminr::estimate_pls(...)
4. └─seminr:::model_consistent(seminr_model)
5. └─seminr::PLSc(seminr_model)
── Error ('test-structure.r:98:1'): (code run outside of `test_that()`) ────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model1) at test-structure.r:98:1
2. └─seminr:::summary.seminr_model(seminr_model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-summary.R:20:1'): (code run outside of `test_that()`) ──────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-summary.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-validity.R:30:1'): (code run outside of `test_that()`) ─────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(model1) at test-validity.R:30:1
2. └─seminr:::summary.seminr_model(model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
[ FAIL 35 | WARN 17 | SKIP 0 | PASS 132 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 2.3.3
Check: tests
Result: ERROR
Running 'testthat.R' [65s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(seminr)
> Sys.unsetenv("R_TESTS")
> test_check("seminr")
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
══ Skipped tests (3) ═══════════════════════════════════════════════════════════
• empty test (3): 'test-plot-cbsem.R:1:1', 'test-plot-lavaan-cfa.R:1:1',
'test-plot-save-plot.R:1:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-bootstrap.R:41:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:41:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:56:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:57:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:58:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:83:1'): (code run outside of `test_that()`) ────────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:83:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:98:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:99:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:100:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:123:1'): (code run outside of `test_that()`) ───────
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::bootstrap_model(...) at test-bootstrap.R:123:1
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. ├─base (local) tryCatchOne(...)
5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
6. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
8. └─value[[3L]](cond)
── Failure ('test-bootstrap.R:137:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 1] not equal to bootmatrix_control[, 1].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:138:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 2] not equal to bootmatrix_control[, 2].
target is NULL, current is numeric
── Failure ('test-bootstrap.R:139:3'): Seminr performs the bootstrapping correctly ──
bootmatrix[, 3] not equal to bootmatrix_control[, 3].
target is NULL, current is numeric
── Error ('test-bootstrap.R:161:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_weighting) at test-bootstrap.R:161:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent-interactions.R:24:1'): (code run outside of `test_that()`) ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-consistent-interactions.R:24:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-consistent.R:21:1'): (code run outside of `test_that()`) ───────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(mobi, mobi_mm, mobi_sm, inner_weights = path_factorial) at test-consistent.R:21:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-descriptive-stats.R:20:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-descriptive-stats.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-measure.r:67:1'): (code run outside of `test_that()`) ──────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, measurement_model = mm, structural_model = sm) at test-measure.r:67:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-only-sm-composites-evaluated.R:30:1'): (code run outside of `test_that()`) ──
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(happy_pls_lower) at test-only-sm-composites-evaluated.R:30:1
2. └─seminr:::summary.seminr_model(happy_pls_lower)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-plot-basics.R:27:4'): dot_graph does not fail for a demo data set ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:27:4
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-basics.R:65:3'): dot_graph can handle both composite measurement types ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-basics.R:65:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-bootstrapped.R:20:3'): bootstrapped models work ───────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-bootstrapped.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-htmt.R:26:3'): Basic HTMT Plots work ──────────────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-htmt.R:26:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-interaction.R:20:3'): interaction terms work ──────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-interaction.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-shape-offsets.R:20:3'): Testing different shapes for different constructs ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-shape-offsets.R:20:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-specifiedmodel.R:29:3'): dot_graph does not fail for a specified model ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(data = mobi, model = model) at test-plot-specifiedmodel.R:29:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-plot-themes.R:31:3'): Modify theme edge multipliers ────────────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plot-themes.R:31:3
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
<subscriptOutOfBoundsError/error/condition>
Error in `bootmatrix[start:end, 1:nboot]`: subscript out of bounds
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::bootstrap_model(...)
3. └─base::tryCatch(...)
4. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
5. ├─base (local) tryCatchOne(...)
6. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
7. └─base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
8. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
9. └─value[[3L]](cond)
── Error ('test-pls-mga.R:36:3'): Seminr estimates the correct PLS-MGA p-values ──
Error in `1:pls_boot$boots`: argument of length 0
Backtrace:
▆
1. └─seminr::estimate_pls_mga(mobi_pls, rand_cond, nboot = 100, cores = 2) at test-pls-mga.R:36:3
2. └─seminr::boot_paths_df(group1_boot)
3. └─base::apply(...)
4. └─seminr (local) FUN(newX[, i], ...)
── Error ('test-plsc-fsquared.R:38:1'): (code run outside of `test_that()`) ────
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. └─seminr::estimate_pls(...) at test-plsc-fsquared.R:38:1
2. └─seminr:::model_consistent(seminr_model)
3. └─seminr::PLSc(seminr_model)
── Error ('test-rerun.R:38:3'): rerun of pls_model with changed specification creates different results ──
Error in `stats::cor(seminr_model$construct_scores)/adjustment`: non-conformable arrays
Backtrace:
▆
1. ├─seminr::rerun(mobi_pls, measurement_model = as.reflective(mobi_mm)) at test-rerun.R:38:3
2. └─seminr:::rerun.pls_model(mobi_pls, measurement_model = as.reflective(mobi_mm))
3. └─seminr::estimate_pls(...)
4. └─seminr:::model_consistent(seminr_model)
5. └─seminr::PLSc(seminr_model)
── Error ('test-structure.r:98:1'): (code run outside of `test_that()`) ────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model1) at test-structure.r:98:1
2. └─seminr:::summary.seminr_model(seminr_model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-summary.R:20:1'): (code run outside of `test_that()`) ──────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(seminr_model) at test-summary.R:20:1
2. └─seminr:::summary.seminr_model(seminr_model)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
── Error ('test-validity.R:30:1'): (code run outside of `test_that()`) ─────────
Error in ``diag<-`(`*tmp*`, value = sqrt(rhoC_AVE_pls_model(seminr_model,
model_constructs$construct_names)[, "AVE"]))`: replacement diagonal has wrong length
Backtrace:
▆
1. ├─base::summary(model1) at test-validity.R:30:1
2. └─seminr:::summary.seminr_model(model1)
3. └─seminr:::evaluate_model(object)
4. └─seminr:::validity(seminr_model)
5. └─seminr:::fl_criteria_table(seminr_model, model_constructs)
6. └─base::`diag<-`(...)
[ FAIL 34 | WARN 17 | SKIP 3 | PASS 127 ]
Error: Test failures
Execution halted
Flavor: r-devel-windows-x86_64