После выполнения повторного измерения ANOVA и присвоения имени выходу

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

Я посмотрел на внутреннюю структуру названного объекта, используяstr(RM_test) и получил следующее:

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 "*"

Я смог извлечь четвертую переменнуюF из первого кадра данных, используяRM_test[[1]][[4]][1] но не могу понять, как извлечь третью переменнуюp[GG] из фрейма данныхSphericity Corrections, Этот фрейм данных появляется дважды, так что извлечение любого из них будет хорошо.

Буду признателен за предложения о том, как сделать это, используя числа и имена в квадратных скобках.