R Programming Assignment Solution on BirthWeight

• 22nd Jul, 2022
• 16:47 PM

bwt <- read.csv("~/Bwt.txt", sep="")
lm1<-lm(bwt~diameter, data=bwt)

#1
summary(lm1)
coef(lm1)
#bwt = -28657.916 + 55.122*diameter

#2
#95% confidence interval
c(55.122 - qt(0.975,df=105)*3.004, 55.122 + qt(0.975,df=105)*3.004)

#3
var(residuals(lm1))

#4
sd(residuals(lm1))

#5
summary(lm1)$r.squared

#76.224% of variance in bwt is explained by diameter

#6
as.numeric(sum(coef(lm1)*c(1,90)))

bwt_1<-data.frame(diameter=90)
predict(lm1, bwt_1,interval = "predict")

#7 & 8
plot(lm1)

#The two plots in the first row are the reqd plots

#9
body <- read.delim("~/Body.txt")
body$weight2<-body$weight * 2.2
body$height2<-body$height / 2.54

summary(body)
lm2<-lm(weight ~ height, data=body)
lm3<-lm(weight2 ~ height2, data=body)

coef(lm2)
coef(lm3)

#10

bwt$diameter2<-bwt$diameter/10
bwt$bwt2<-bwt$bwt / 1000

lm4<-lm(bwt2~diameter2, data=bwt)
summary(lm4)

coef(lm1)
coef(lm4)