context("test-installed")
test_that("pharmr is installed", {
# requires Python
skip_on_cran()
model <- read_model_from_string("$PROBLEM base model\n$INPUT ID DV TIME\n$DATA file.csv IGNORE=@\n$PRED\nY=THETA(1)\n$THETA 0.1\n$EST METHOD=1\n")
expect_error(model, NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.