Извлечение элементов из emmGrid пакета emmeans R
Интересно, как извлечь emmean
а также SE
столбцы из emmGrid
из emmeans
R
пакет. MWE приведен ниже.
library(emmeans)
warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)
Test <- emmeans(warp.lm, specs = "wool")
Test
wool emmean SE df lower.CL upper.CL
A 31.03704 2.105459 48 26.80373 35.27035
B 25.25926 2.105459 48 21.02595 29.49257
Results are averaged over the levels of: tension
Confidence level used: 0.95
class(Test)
[1] "emmGrid"
attr(,"package")
[1] "emmeans"
1 ответ
Решение
summary(Test)
вместо этого дает data.frame.
class(summary(Test))
[1] "summary_emm" "data.frame"
Так что можно сделать:
summary(Test)$emmean
[1] 31.03704 25.25926
А также
summary(Test)$SE
[1] 2.105459 2.105459
Чтобы получить новый поднабор data.frame, вам нужно явно привести к классу data.frame:
as.data.frame(summary(Test))[c('emmean', 'SE')]
emmean SE 1 31.03704 2.105459 2 25.25926 2.105459