получить строку итогового объекта

Question

Я пытаюсь получить числовые значения для оценки и Std. Err для объекта summary, но я обращаюсь к строкам неправильно в применении (я думаю). Как я могу это исправить?

require(MASS) 
colnames(Cars93) 
ll<-lm(Fuel.tank.capacity~Length*Passengers,data=Cars93) 
s<-summary(ll)$coeff 
apply(s,1,function(x){ 
    paste(x[1]+3,x[2]+3) #trying to return intercept and length for each row 
    }) 

Цель:

-8.18 17.93 
0.11 0.09 
..... 

Answer 1

Этот код должен делать то, что вы ищете:

t(apply(s,1,function(x){ 
    c(x[1],x[2]) 
})) 


        Estimate Std. Error 
(Intercept)  -8.180069747 17.93108069 
Length    0.119717136 0.09943864 
Passengers  -0.008363972 3.55247973 
Length:Passengers 0.003146143 0.01941267 

Answer 2

Следующий код возвращает список (именованных) строк, содержащих Эстимейт, пробел и перехватывать:

> apply(s[,c(1,2)],1,paste,collapse = " ") 
          (Intercept)         Length 
    "-8.18006974657324 17.9310806930227" "0.119717136183204 0.0994386410426733" 
          Passengers      Length:Passengers 
"-0.00836397172098245 3.55247972849905" "0.00314614268107023 0.019412665227971" 

Это не совсем то, вы просили, так как он по-прежнему является именованным вектором, но вы можете вставить остальные части вместе, используя другой paste(collapse="\n"), как требуется. Обратите внимание: \n в строке является возвратом каретки, но при отображении в интерпретаторе он просто печатается как \ n.

Answer 3

Объект 's' является матрицей

is.matrix (s)

[1] TRUE 

Таким образом, вы извлекаете перехват и стандартная ошибка от этого объекта с помощью:

s[,1:2] 

        Estimate Std. Error 
(Intercept)  -8.180069747 17.93108069 
Length    0.119717136 0.09943864 
Passengers  -0.008363972 3.55247973 
Length:Passengers 0.003146143 0.01941267