set.seed(123)
df <- data.frame(
Gen = paste0("G", 1:5),
GMP = runif(5),
HM = runif(5),
MP = runif(5),
MRP = runif(5),
PYR = runif(5),
RSI = runif(5),
SSPI = runif(5),
STI = runif(5),
TOL = runif(5),
YI = runif(5),
YSI = runif(5)
)
WMFVST(df)
Run the code above in your browser using DataLab