मैं सोच रहा था कि gg के आउटपुट से degree = linear: शीर्षक वाले हिस्से को कैसे निकाला जाए?

library(emmeans)

dat <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/dat2.csv')

fit <- lm(math ~ time*ses + I(time^2)*ses, data = dat)

( gg <- emtrends(fit, ~ses, var= "time", max.degree= 2,at =list(ses=0,time=0)) )

degree = linear:
 ses time.trend      SE   df lower.CL upper.CL  
   0     0.3416 0.06084 1594   0.2222  0.46091  ##### Extract this part from `gg`

degree = quadratic:
 ses time.trend      SE   df lower.CL upper.CL
   0    -0.0221 0.00835 1594  -0.0385 -0.00572
0
rnorouzian 17 नवम्बर 2020, 05:10

2 जवाब

सबसे बढ़िया उत्तर

आप summary को gg पर लागू कर सकते हैं और इसे डेटाफ़्रेम में बदल सकते हैं।

data.frame(summary(gg))
#  ses    degree  time.trend          SE   df    lower.CL     upper.CL
#1   0    linear  0.34156633 0.060844787 1594  0.22222212  0.460910546
#2   0 quadratic -0.02209907 0.008349954 1594 -0.03847712 -0.005721024
1
Ronak Shah 17 नवम्बर 2020, 05:32

हम broom से tidy का उपयोग कर सकते हैं

library(broom)
tidy(gg)
1
akrun 17 नवम्बर 2020, 23:02