kn <- knowledge(
tpc_example,
tier(
child ~ starts_with("child"),
youth ~ starts_with("youth"),
old ~ starts_with("old")
)
)
print(kn)
print(kn, wide_vars = TRUE)
print(kn, compact = TRUE)
Run the code above in your browser using DataLab