Displaying 4 results from an estimated 4 matches for "simplelinearreg1".
2018 Apr 20
1
Further questions
...7, 42, 67, 56, 64, 56, 59, 34, 42, 48, 45,
17, 20, 19, 36, 50, 39, 21, 44, 53, 63, 29, 25, 69)
BloodPressure <- c(144, 220, 138, 145, 162, 142, 170, 124, 158, 154, 162,
150, 140, 110, 128, 130, 135, 114, 116, 124, 136, 142, 120, 120, 160, 158,
144, 130, 125, 175)
mean(Age)
mean(BloodPressure)
SimpleLinearReg1 <- lm(BloodPressure ~ Age)
summary(SimpleLinearReg1)
coeff <-coefficients(SimpleLinearReg1)
coeff
eq <- as.formula(
paste0("y ~ ", round(coefficients(SimpleLinearReg1)[1],2), "",
paste(sprintf(" %+.2f*%s ",
coefficients(SimpleLinearRe...
2018 Apr 18
3
Problem with regression line
...<- c(39, 47, 45, 47, 65, 46, 67, 42, 67, 56, 64, 56, 59, 34, 42, 48, 45,
17, 20, 19, 36, 50, 39, 21, 44, 53, 63, 29, 25, 69)
BloodPressure <- c(144, 220, 138, 145, 162, 142, 170, 124, 158, 154, 162,
150, 140, 110, 128, 130, 135, 114, 116, 124, 136, 142, 120, 120, 160, 158,
144, 130, 125, 175)
SimpleLinearReg1=lm(Age ~ BloodPressure)
summary(SimpleLinearReg1)
eq = paste0("y = ", round(coeff[2],1), "*x ", round(coeff[1],1))
plot(Age, BloodPressure, pch = 16, cex = 1.3, col = "blue",
main = eq, xlab = "Age (Year)", ylab = "Blood Pressure (mmHg)")
abline(Sim...
2018 Apr 18
0
Problem with regression line
Hi, Anne,
assign Age and Bloodpressure in the correct order
to the axes in your call to plot as in:
plot(y = Age, x = BloodPressure)
abline(SimpleLinearReg1)
Hth -- Gerrit
---------------------------------------------------------------------
Dr. Gerrit Eichner Mathematical Institute, Room 212
gerrit.eichner at math.uni-giessen.de Justus-Liebig-University Giessen
Tel: +49-(0)641-99-32104 Arndtstr. 2, 35392 Giessen, Ge...
2018 Apr 18
1
Problem with regression line
...sured without error,
at least compared to error-prone bp measures.
Cheers
Am 18.04.2018 um 16:07 schrieb Gerrit Eichner:
> Hi, Anne,
>
> assign Age and Bloodpressure in the correct order
> to the axes in your call to plot as in:
>
> plot(y = Age, x = BloodPressure)
> abline(SimpleLinearReg1)
>
>
> ?Hth? --? Gerrit
>
> ---------------------------------------------------------------------
> Dr. Gerrit Eichner?????????????????? Mathematical Institute, Room 212
> gerrit.eichner at math.uni-giessen.de?? Justus-Liebig-University Giessen
> Tel: +49-(0)641-99-32104?...