R Under development (unstable) (2023-12-13 r85679 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
>  library(aster)
> 
>  famlist <- fam.default()
>  print(famlist)
[[1]]
[1] "bernoulli"

[[2]]
[1] "poisson"

[[3]]
[1] "truncated.poisson(truncation = 0)"

[[4]]
[1] "truncated.poisson(truncation = 2)"

> 
>  aster:::setfam(famlist)
> 
>  aster:::getfam()
[[1]]
[[1]]$name
[1] "bernoulli"

[[1]]$origin
[1] 0


[[2]]
[[2]]$name
[1] "poisson"

[[2]]$origin
[1] 0


[[3]]
[[3]]$name
[1] "truncated.poisson"

[[3]]$truncation
[1] 0

[[3]]$origin
[1] 0


[[4]]
[[4]]$name
[1] "truncated.poisson"

[[4]]$truncation
[1] 2

[[4]]$origin
[1] 0


> 
>  aster:::getsupfam()
[[1]]
[[1]]$name
[1] "bernoulli"


[[2]]
[[2]]$name
[1] "poisson"


[[3]]
[[3]]$name
[1] "truncated.poisson"

[[3]]$truncation
[1] NA


[[4]]
[[4]]$name
[1] "negative.binomial"

[[4]]$size
[1] NA


[[5]]
[[5]]$name
[1] "truncated.negative.binomial"

[[5]]$size
[1] NA

[[5]]$truncation
[1] NA


[[6]]
[[6]]$name
[1] "normal.location"

[[6]]$sd
[1] NA


> 
> 
> proc.time()
   user  system elapsed 
   0.23    0.01    0.18