https://github.com/cran/aster
Raw File
Tip revision: 30dd0361d35879f8979ff405c11271e23686d40f authored by Charles J. Geyer on 09 July 2007, 00:00:00 UTC
version 0.7-2
Tip revision: 30dd036
chk.R

 library(aster)

 aster:::setfam(fam.default())

 .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_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_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_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_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)))

back to top