Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
1 contributor

Users who have contributed to this file

17 lines (13 sloc) 582 Bytes
## Here's the data from the video
mouse.data <- data.frame(
weight=c(0.9, 1.8, 2.4, 3.5, 3.9, 4.4, 5.1, 5.6, 6.3),
size=c(1.4, 2.6, 1.0, 3.7, 5.5, 3.2, 3.0, 4.9, 6.3))
mouse.data # print the data to the screen in a nice format
## plot a x/y scatter plot with the data
plot(mouse.data$weight, mouse.data$size)
## create a "linear model" - that is, do the regression
mouse.regression <- lm(size ~ weight, data=mouse.data)
## generate a summary of the regression
summary(mouse.regression)
## add the regression line to our x/y scatter plot
abline(mouse.regression, col="blue")
You can’t perform that action at this time.