df <- data.frame(
Gen = paste0("G", 1:5),
GMP = c(1:5),
HM = c(6:10),
MP = c(11:15),
MRP = c(16:20),
PYR = c(21:25),
RSI = c(26:30),
SSPI = c(31:35),
STI = c(0.1, 0.2, 0.3, 0.4, 0.5),
TOL = c(41:45),
YI = c(0.6, 0.7, 0.8, 0.9, 1.0),
YSI = c(0.2, 0.3, 0.4, 0.5, 0.6)
)
WASI(df)
Run the code above in your browser using DataLab