acn <- cn(log10(pdg) ~
btensor( x = list(day, age)
, df = list(30, 4)
, bknots = list(c(-1, 1), c(44, 53))
)
, data = spdg)
str(acn, max.level = 1)
Run the code above in your browser using DataLab