fds(x = 1:20, y = Simulationdata$y, xname = "x", yname = "Simulated values")
fts(x = 0:100, y = Francesmoothmortality$y, xname = "Age",
yname = "Log mortality rates")
sfts(ts(as.numeric(ElNino$y), frequency = 12), xname = "Month",
yname = "Sea surface temperatures")
Run the code above in your browser using DataLab