# \donttest{
library(metan)
# KW as dependent trait and all others as predictors
# PH, EH, NKE, and TKW as predictors
pcoeff <-
path_coeff(data_ge2,
resp = KW,
pred = c(PH, EH, NKE, TKW))
plot(pcoeff)
plot(pcoeff, which = "vif")
plot(pcoeff, which = "betas")
# }
Run the code above in your browser using DataLab