data(ozone1)
a <- earth(O3 ~ ., data = ozone1, degree = 2)
reorder(a, decomp = "none")
# yields:
# [1] 1 2 3 4 5 6 7 8 9 10 11
reorder(a) # defaults to decomp = "anova"
# yields:
# [1] 1 2 11 8 3 4 9 5 6 7 10
a$selected.terms[reorder(a)]
# yields:
# [1] 1 2 19 13 6 7 14 9 10 11 17
Run the code above in your browser using DataCamp Workspace