library(EstimateBreed)
Gen <- paste0("G", 1:20)
Var <- round(rnorm(20, mean = 3.5, sd = 0.8), 2)
Control <- rep(3.8, 20)
data <- data.frame(Gen,Var,Control)
transg_sel <- with(data,transg(Gen,Var,Control,verbose=FALSE,plot=TRUE))
Run the code above in your browser using DataLab