HTML

jkdhxiskxjnsLncsklzczs smnkzxjkssssssssijcfklaidikmla> sm,dnhoqujwdiueasco;jm,zc.x

dataset <- ToothGrowth
head(dataset)

##    len supp dose
## 1  4.2   VC  0.5
## 2 11.5   VC  0.5
## 3  7.3   VC  0.5
## 4  5.8   VC  0.5
## 5  6.4   VC  0.5
## 6 10.0   VC  0.5

fn <- lm(len~dose, data=dataset)
b <- fn$coefficients
plot(len~dose, data=dataset)
abline(lm(len~dose, data=dataset))