Después de ejecutar un ANOVA de medidas repetidas y nombrar la salida

RM_test <- ezANOVA(data=test_data, dv=var_test, wid = .(subject),
within = .(water_year), type = 3)

Miré la estructura interna del objeto nombrado usandostr(RM_test) y recibió lo siguiente:

List of 3
$ ANOVA                        :List of 3
..$ ANOVA                        :'data.frame': 1 obs. of  7 variables:
.. ..$ Effect: chr "water_year"
.. ..$ DFn   : num 2
.. ..$ DFd   : num 22
.. ..$ F     : num 26.8
.. ..$ p     : num 1.26e-06
.. ..$ p<.05 : chr "*"
.. ..$ ges   : num 0.531
..$ Mauchly's Test for Sphericity:'data.frame': 1 obs. of  4 variables:
.. ..$ Effect: chr "water_year"
.. ..$ W     : num 0.875
.. ..$ p     : num 0.512
.. ..$ p<.05 : chr ""
..$ Sphericity Corrections       :'data.frame': 1 obs. of  7 variables:
.. ..$ Effect   : chr "water_year"
.. ..$ GGe      : num 0.889
.. ..$ p[GG]    : num 4.26e-06
.. ..$ p[GG]<.05: chr "*"
.. ..$ HFe      : num 1.05
.. ..$ p[HF]    : num 1.26e-06
.. ..$ p[HF]<.05: chr "*"
$ Mauchly's Test for Sphericity:'data.frame':   1 obs. of  4 variables:
..$ Effect: chr "wtr_yr"
..$ W     : num 0.875
..$ p     : num 0.512
..$ p<.05 : chr ""
$ Sphericity Corrections       :'data.frame':   1 obs. of  7 variables:
..$ Effect   : chr "wtr_yr"
..$ GGe      : num 0.889
..$ p[GG]    : num 4.26e-06
..$ p[GG]<.05: chr "*"
..$ HFe      : num 1.05
..$ p[HF]    : num 1.26e-06
..$ p[HF]<.05: chr "*"

Pude extraer la cuarta variableF desde el primer marco de datos usandoRM_test[[1]][[4]][1] pero no puedo entender cómo extraer la tercera variablep[GG] desde el marco de datosSphericity Corrections. Este marco de datos aparece dos veces, por lo que extraer cualquiera de los dos estaría bien.

Se agradecerán sugerencias sobre cómo hacer esto usando números entre corchetes y nombres.