Nothing
library(PELVIS)
data(CTscanDataBruzek)
extrait <- CTscanDataBruzek[1:2, -c(1:5)]
## Expected answer:
expected <- data.frame(extrait,
PrSu = factor(c('M', 'F')),
GrSN = factor(c('M', 'F')),
InfP = factor(c('M', 'F'))
)
test_that("add_metavars gives correct answers", {
expect_equal(add_metavars(extrait), expected)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.