#Fagus sylvatica dynamics in Europe
tsl <- tsl_initialize(
x = fagus_dynamics,
name_column = "name",
time_column = "time"
)
#dissimilarity analysis
df <- momentum_ls(tsl = tsl)
#generate model frame
model_frame <- momentum_model_frame(
response_df = df,
predictors_df = fagus_coordinates,
scale = TRUE
)
head(model_frame)
#names of response and predictors
#and an additive formula
#are stored as attributes
attributes(model_frame)$predictors
Run the code above in your browser using DataLab