# \donttest{
library(metan)
# KW as dependent trait and all others as predictors
pcoeff <- path_coeff(data_ge2, resp = KW)
print(pcoeff)
# Call the algorithm for selecting a set of predictors
# With minimal multicollinearity (no VIF larger than 5)
pcoeff2 <- path_coeff(data_ge2,
resp = KW,
brutstep = TRUE,
maxvif = 5)
print(pcoeff2)
# }
Run the code above in your browser using DataLab