tests/testthat/test-pathwayPredict.R

test_that("Check if pathwayPredict output is list", {
    x <- netSEMp1(acrylic)
    paths <- pathwayRMSE(x, maxlen=3)
    expect_type(pathwayPredict(x, paths[10,2]), "list")
  })

Try the netSEM package in your browser

Any scripts or data that you put into this service are public.

netSEM documentation built on Sept. 8, 2023, 5:26 p.m.