library(EstimateBreed)
Gen <- c("G1", "G2", "G3", "G4", "G5")
PTN <- c(12.5, 14.2, 13.0, 11.8, 15.1)
RG <- c(3500, 4000, 3700, 3300, 4100)
data <- data.frame(Gen,PTN,RG)
iqptn <- with(data,is_ptnerg(Gen,PTN,RG))
Run the code above in your browser using DataLab