R Script for Stability Analysis

install.packages("metan")  
library(metan)  

install.packages("ggplot2")  
library(ggplot2)  

install.packages("writexl")  
library(writexl)  

options(max.print = 10000) 

reg <- ge_reg(stability, ENV, GEN, REP, C1) 
reg 

regaov <- reg$C1$anova 
regaov 

regpara <- reg$C1$regression 
regpara 

plot(reg) 

sheets <- list(
  "regressionanova" = regaov,
  "regressions" = regpara
) 

write_xlsx(sheets, "regressionStabilitytp.xlsx")