data("fagus_dynamics")
#to time series list
fagus <- tsl_initialize(
x = fagus_dynamics,
name_column = "name",
time_column = "time"
)
#time series plot
if(interactive()){
tsl_plot(
tsl = fagus
)
}
Run the code above in your browser using DataLab