简单线性回归

分析化学实验 -> 分光光度计测定蜂蜜中的微量铁含量(p173) -> 绘制标准曲线

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/env Rscript

#input
x <- c(0.4, 0.8, 1.2, 1.6, 2)
y <- c(0.084, 0.146, 0.244, 0.318, 0.378)

#Linear regression
m <- lm(y~x)

#save to svg
svg(filename="plot.svg",
width=5,
height=4,
pointsize=12)

#plot
plot(y~x)
abline(m)

dev.off()

print(summary(m))

效果如图