Emily Trainor

library(readr)
bike_sharing_data <- read_csv("~/Downloads/bike_sharing_data.csv")
Warning: One or more parsing issues, call `problems()` on your data frame for details, e.g.:
  dat <- vroom(...)
  problems(dat)Rows: 17379 Columns: 13── Column specification ─────────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (2): datetime, sources
dbl (11): season, holiday, workingday, weather, temp, atemp, humidity, windspeed, casual,...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(bike_sharing_data)

Question 4

Error in read_csv("~/Downloads/bike_sharing_data.csv", sep = "\t", header = TRUE) : 
  unused arguments (sep = "\t", header = TRUE)

Question 5

summary(bike_sharing_data)
   datetime             season         holiday       
 Length:17379       Min.   :1.000   Min.   :0.00000  
 Class :character   1st Qu.:2.000   1st Qu.:0.00000  
 Mode  :character   Median :3.000   Median :0.00000  
                    Mean   :2.502   Mean   :0.02877  
                    3rd Qu.:3.000   3rd Qu.:0.00000  
                    Max.   :4.000   Max.   :1.00000  
                                                     
   workingday        weather           temp      
 Min.   :0.0000   Min.   :1.000   Min.   : 0.82  
 1st Qu.:0.0000   1st Qu.:1.000   1st Qu.:13.94  
 Median :1.0000   Median :1.000   Median :20.50  
 Mean   :0.6827   Mean   :1.425   Mean   :20.38  
 3rd Qu.:1.0000   3rd Qu.:2.000   3rd Qu.:27.06  
 Max.   :1.0000   Max.   :4.000   Max.   :41.00  
                                                 
     atemp          humidity        windspeed     
 Min.   : 0.00   Min.   :  0.00   Min.   : 0.000  
 1st Qu.:16.66   1st Qu.: 48.00   1st Qu.: 7.002  
 Median :24.24   Median : 63.00   Median :12.998  
 Mean   :23.79   Mean   : 62.72   Mean   :12.737  
 3rd Qu.:31.06   3rd Qu.: 78.00   3rd Qu.:16.998  
 Max.   :50.00   Max.   :100.00   Max.   :56.997  
                 NA's   :1                        
     casual         registered        count    
 Min.   :  0.00   Min.   :  0.0   Min.   :  1  
 1st Qu.:  4.00   1st Qu.: 36.0   1st Qu.: 42  
 Median : 16.00   Median :116.0   Median :141  
 Mean   : 34.48   Mean   :152.5   Mean   :187  
 3rd Qu.: 46.00   3rd Qu.:217.0   3rd Qu.:277  
 Max.   :367.00   Max.   :886.0   Max.   :977  
                                               
   sources         
 Length:17379      
 Class :character  
 Mode  :character

Question 7

season_value <- bike_sharing_data[6251, "season"]

season_value

Question 8

season_counts <- table(bike_sharing_data$season)
print(season_counts)

   1    2    3    4 
4242 4409 4496 4232

Question 10

high_wind_conditions <- subset(bike_sharing_data, windspeed >= 40 & (season == 1 | season == 2))

num_high_wind_observations <- nrow(high_wind_conditions)

num_high_wind_observations
[1] 48
LS0tCnRpdGxlOiAiQXNzaWdubWVudCAxIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCioqRW1pbHkgVHJhaW5vcioqCgpgYGB7cn0KbGlicmFyeShyZWFkcikKYmlrZV9zaGFyaW5nX2RhdGEgPC0gcmVhZF9jc3YoIn4vRG93bmxvYWRzL2Jpa2Vfc2hhcmluZ19kYXRhLmNzdiIpClZpZXcoYmlrZV9zaGFyaW5nX2RhdGEpCgpgYGAKCiMgUXVlc3Rpb24gNApgYGB7ciAsIGVjaG89RkFMU0V9CgpiaWtlMiA8LSByZWFkX2Nzdigifi9Eb3dubG9hZHMvYmlrZV9zaGFyaW5nX2RhdGEuY3N2Iiwgc2VwPSJcdCIsIGhlYWRlcj1UUlVFKQoKYmlrZTEgPC0gcmVhZC50YWJsZSgifi9Eb3dubG9hZHMvYmlrZV9zaGFyaW5nX2RhdGEuY3N2Iiwgc2VwPSIsIiwgaGVhZGVyPVRSVUUpCgpiaWtlNCA8LSByZWFkLmRlbGltKCJ+L0Rvd25sb2Fkcy9iaWtlX3NoYXJpbmdfZGF0YS5jc3YiKQoKYmlrZTMgPC0gcmVhZC5jc3YoIn4vRG93bmxvYWRzL2Jpa2Vfc2hhcmluZ19kYXRhLmNzdiIpCmBgYAoKIyBRdWVzdGlvbiA1CmBgYHtyfQpzdW1tYXJ5KGJpa2Vfc2hhcmluZ19kYXRhKQpgYGAKCiMgUXVlc3Rpb24gNwpgYGB7cn0Kc2Vhc29uX3ZhbHVlIDwtIGJpa2Vfc2hhcmluZ19kYXRhWzYyNTEsICJzZWFzb24iXQoKc2Vhc29uX3ZhbHVlCmBgYAoKIyBRdWVzdGlvbiA4CmBgYHtyfQpzZWFzb25fY291bnRzIDwtIHRhYmxlKGJpa2Vfc2hhcmluZ19kYXRhJHNlYXNvbikKcHJpbnQoc2Vhc29uX2NvdW50cykKYGBgCgojIFF1ZXN0aW9uIDEwCmBgYHtyfQpoaWdoX3dpbmRfY29uZGl0aW9ucyA8LSBzdWJzZXQoYmlrZV9zaGFyaW5nX2RhdGEsIHdpbmRzcGVlZCA+PSA0MCAmIChzZWFzb24gPT0gMSB8IHNlYXNvbiA9PSAyKSkKCm51bV9oaWdoX3dpbmRfb2JzZXJ2YXRpb25zIDwtIG5yb3coaGlnaF93aW5kX2NvbmRpdGlvbnMpCgpudW1faGlnaF93aW5kX29ic2VydmF0aW9ucwpgYGAKCgoKCg==