This server is intended for use for Academic Classwork related Git repositories only. Projects/repositories will generally be removed after 6 months following close of the semester. Inactive repositories from previous semester are now being archived when no activity for 365 days. They are renamed and marked as 'archived'. After 90 days in that state they will be removed from the system completely.

Commit 7c315830 authored by Nathaniel Skelton's avatar Nathaniel Skelton

fiddling with linear regressions

parent da51e709
source("../src/utils.R")
mlb_complete <- read.csv(
file = "../data/mlb_games_and_weather_full_dataset.csv",
stringsAsFactors = TRUE
)
#mlb_complete <- subset(mlb_complete, venue=='Busch Stadium')
#mlb_complete <- subset(mlb_complete, venue=='Coors Field')
#mlb_complete <- subset(mlb_complete, venue=='Wrigley Field')
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$temperature_f)
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~wind_dir_to_batter_azimuth(mlb_complete$wind_direction))
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$hourly_dry_bulb_temperature)
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$hourly_sea_level_pressure)
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$hourly_dew_point_temperature)
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$hourly_relative_humidity)
summary(relation)
relation <- lm(mlb_complete$total_e_per_9~mlb_complete$hourly_wind_speed)
summary(relation)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment