(R2adj <- RsquareAdj(spe.rda.signif)$adj.r.squared)