require(rainbow)
class(Australiasmoothfertility)
x_funts1 <- as.funts(Australiasmoothfertility)
plot(x_funts1, main = "Australians Fertility")
require(fda)
bs <- create.bspline.basis(rangeval = c(15, 49), nbasis = 13)
fd_obj <- smooth.basis(argvals = Australiasmoothfertility$x, Australiasmoothfertility$y, bs)$fd
x_funts <- as.funts(fd_obj)
plotly_funts(x_funts,
main = "Australians Fertility",
ylab = "Fertility rate",
xlab = "Age"
)
Run the code above in your browser using DataLab