Upload New File

ee2b8042 · Rebecca Merrett · d8414ece · ee2b8042
Commit ee2b8042 authored Mar 07, 2019 by Rebecca Merrett
Show whitespace changes
Inline Side-by-side

Showing with 13 additions and 0 deletions

lm_model.R Getting Started/lm_model.R +13 -0

No files found.
--- a/Getting Started/lm_model.R
+++ b/Getting Started/lm_model.R
+setwd("path/to/project/folder")
+install.packages("ggplot2")
+library("ggplot2")
+input_data <- read.table("height.csv", sep=",", header=TRUE)
+attach(input_data)
+ggplot(input_data, aes(x,y)) + geom_point() + geom_smooth(method="lm")
+lm <- lm(y~x)
+predicted_heights <- predict(lm, data.frame(x), interval="predict")
+predicted_heights[0:6]
+y[0:6]
+summary(lm)$r.squared
+detach(input_data)
\ No newline at end of file