library(EstimateBreed)
data("trigo")
#Ear viability index
index1 <- with(trigo,indviab(TEST,NGE,NEE))
#Ear harvest index
index2 <- with(trigo,indviab(TEST,MGE,ME))
#Spikelet deposition index in the ear
index3 <- with(trigo,indviab(TEST,NEE,CE))
Run the code above in your browser using DataLab