第七次作业-R002线性回归

真·科研狗 2017-09-19 23:39:14 阅读: 1012

X <- c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)
Y <- c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)
plot(X,Y)
a=lm(Y~X)
b=summary(a)
abline(a)
#print(b$coefficients[2,1])
text=paste("Y=",round(b$coefficients[1,1],2),"+",round(b$coefficients[2,1],2),"*X")
print(text);
mtext(text)

data<- read.csv(file.choose())
y <-data$CON
x <-data$std_ave
a <-lm(y~x)
plot(x,y)
abline(a,col = 'green',lwd = 1,lty = 1)
sam <- data.frame(x = data$sam_ave)
sam_pred <- predict(a,sam,interval = "prediction",level = 0.95)
points(data$sam_ave,sam_pred[,1],col = "red",pch = c("A","B","C","D"),cex =3)

par(mfrow=c(2,2))
plot(a)

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01