library(aster)

 famlist <- fam.default()
 print(famlist)

 aster:::setfam(famlist)

 aster:::getfam()

 aster:::getsupfam()