# NOT RUN {
ex <- simulate_tapnet(nlower=10, nhigher=50, ntraits_pem=3, ntraits_nopem=2, Nwebs = 3)
df <- tapnet2df(ex)
head(df)
# }
# NOT RUN {
library(ranger)
frf <- ranger(interactions ~ ., data=df[, -c(1:2)], importance="impurity")
sort(importance(frf), decreasing=TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab