Nothing
library(aster)
aster:::setfam(fam.default())
.C(aster:::C_aster_check_model,
nind = as.integer(42),
nnode = as.integer(4),
pred = as.integer(c(0, 1, 2, 3)),
fam = as.integer(c(1, 1, 2, 3)))
options(error=dump.frames)
.C(aster:::C_aster_check_model,
nind = as.integer(0),
nnode = as.integer(4),
pred = as.integer(c(0, 1, 2, 3)),
fam = as.integer(c(1, 1, 2, 3)))
.C(aster:::C_aster_check_model,
nind = as.integer(42),
nnode = as.integer(-3),
pred = as.integer(c(0, 1, 2, 3)),
fam = as.integer(c(1, 1, 2, 3)))
.C(aster:::C_aster_check_model,
nind = as.integer(42),
nnode = as.integer(4),
pred = as.integer(c(0, 2, 2, 3)),
fam = as.integer(c(1, 1, 2, 3)))
.C(aster:::C_aster_check_model,
nind = as.integer(42),
nnode = as.integer(4),
pred = as.integer(c(0, 1, 2, 3)),
fam = as.integer(c(1, 1, 2, 25)))
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.