str(speedpower1)
List of 12
coefficients : Named num [1:2] 8.92 2.45
..- attr(*, "names")= chr [1:2] "(Intercept)" "power"
residuals : Named num [1:2544] -6.016 -1.316 2.153 0.378 0.333 ...
..- attr(, "names")= chr [1:2544] "1" "2" "3" "4" ...
effects : Named num [1:2544] -891.842 373.019 2.287 0.499 0.454 ...
..- attr(*, "names")= chr [1:2544] "(Intercept)" "power" "" "" ...
rank : int 2
fitted.values: Named num [1:2544] 8.92 8.92 12.35 16.02 16.27 ...
..- attr(*, "names")= chr [1:2544] "1" "2" "3" "4" ...
assign : int [1:2] 0 1
qr :List of 5
.. qr : num [1:2544, 1:2] -50.4381 0.0198 0.0198 0.0198 0.0198 ...
.. ..- attr(, "dimnames")=List of 2
.. .. .. : chr [1:2544] "1" "2" "3" "4" ...
.. .. .. : chr [1:2] "(Intercept)" "power"
.. ..- attr(, "assign")= int [1:2] 0 1
.. qraux: num [1:2] 1.02 1.02
.. pivot: int [1:2] 1 2
.. tol : num 1e-07
.. rank : int 2
..- attr(, "class")= chr "qr"
df.residual : int 2542
xlevels : Named list()
call : language lm(formula = speed ~ power, data = data)
terms :Classes 'terms', 'formula' language speed ~ power
.. ..- attr(, "variables")= language list(speed, power)
.. ..- attr(, "factors")= int [1:2, 1] 0 1
.. .. ..- attr(, "dimnames")=List of 2
.. .. .. .. : chr [1:2] "speed" "power"
.. .. .. .. : chr "power"
.. ..- attr(, "term.labels")= chr "power"
.. ..- attr(, "order")= int 1
.. ..- attr(, "intercept")= int 1
.. ..- attr(, "response")= int 1
.. ..- attr(, ".Environment")=<environment: R_GlobalEnv>
.. ..- attr(, "predvars")= language list(speed, power)
.. ..- attr(, "dataClasses")= Named chr [1:2] "numeric" "numeric"
.. .. ..- attr(, "names")= chr [1:2] "speed" "power"
model :'data.frame': 2544 obs. of 2 variables:
.. speed: num [1:2544] 2.9 7.6 14.5 16.4 16.6 1.6 10.1 23.8 42.4 18.9 ...
.. power: num [1:2544] 0 0 1.4 2.9 3 0 0.2 6.2 7.4 3.5 ...
..- attr(*, "terms")=Classes 'terms', 'formula' language speed ~ power
.. .. ..- attr(*, "variables")= language list(speed, power)
.. .. ..- attr(*, "factors")= int [1:2, 1] 0 1
.. .. .. ..- attr(*, "dimnames")=List of 2
.. .. .. .. .. : chr [1:2] "speed" "power"
.. .. .. .. ..$ : chr "power"
.. .. ..- attr(, "term.labels")= chr "power"
.. .. ..- attr(, "order")= int 1
.. .. ..- attr(, "intercept")= int 1
.. .. ..- attr(, "response")= int 1
.. .. ..- attr(, ".Environment")=<environment: R_GlobalEnv>
.. .. ..- attr(, "predvars")= language list(speed, power)
.. .. ..- attr(, "dataClasses")= Named chr [1:2] "numeric" "numeric"
.. .. .. ..- attr(*, "names")= chr [1:2] "speed" "power"
- attr(*, "class")= chr "lm"
Thanks for the help!!!