Nothing
context('lcModel without data')
rngReset()
setClass('lcModelWithoutData', contains = 'lcModel')
model = new('lcModelWithoutData',
method = new('lcMethod'),
id = 'Subject',
time = 'Month',
response = 'Meas',
data = NULL,
model = list(),
clusterNames = LETTERS[1:3]
)
test_that('responseVariable', {
out = responseVariable(model)
expect_is(out, 'character')
})
test_that('idVariable', {
out = idVariable(model)
expect_is(out, 'character')
})
test_that('timeVariable', {
out = timeVariable(model)
expect_is(out, 'character')
})
test_that('getName', {
out = getName(model)
expect_is(out, 'character')
})
test_that('getShortName', {
out = getShortName(model)
expect_is(out, 'character')
})
test_that('getLabel', {
out = getLabel(model)
expect_is(out, 'character')
})
test_that('model.data', {
expect_warning({
out = model.data(model)
})
expect_null(out)
})
test_that('time', {
expect_error(suppressWarnings(time(model)))
})
test_that('postprob', {
expect_warning({
out = postprob(model)
})
expect_true(nrow(out) == 0)
})
test_that('clusterProportions', {
expect_error(suppressWarnings(clusterProportions(model)))
})
test_that('clusterSizes', {
out = clusterSizes(model)
ref = rep(0, nClusters(model))
names(ref) = clusterNames(model)
expect_equal(out, ref)
})
test_that('trajectoryAssignments', {
out = trajectoryAssignments(model)
expect_length(out, 0)
})
test_that('fitted', {
expect_warning({
out = fitted(model)
})
expect_length(out, 0)
})
test_that('residuals', {
expect_warning({
out = residuals(model)
})
expect_length(out, 0)
})
test_that('summary', {
out = summary(model)
expect_is(out, 'lcSummary')
})
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.