bike.csv <- read.csv("bike_sharing_data .csv")
head(bike.csv)
row(bike.csv)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
[1,] 1 1 1 1 1 1 1 1 1 1 1 1 1
[2,] 2 2 2 2 2 2 2 2 2 2 2 2 2
[3,] 3 3 3 3 3 3 3 3 3 3 3 3 3
[4,] 4 4 4 4 4 4 4 4 4 4 4 4 4
[5,] 5 5 5 5 5 5 5 5 5 5 5 5 5
[6,] 6 6 6 6 6 6 6 6 6 6 6 6 6
[7,] 7 7 7 7 7 7 7 7 7 7 7 7 7
[8,] 8 8 8 8 8 8 8 8 8 8 8 8 8
[9,] 9 9 9 9 9 9 9 9 9 9 9 9 9
[10,] 10 10 10 10 10 10 10 10 10 10 10 10 10
[11,] 11 11 11 11 11 11 11 11 11 11 11 11 11
[12,] 12 12 12 12 12 12 12 12 12 12 12 12 12
[13,] 13 13 13 13 13 13 13 13 13 13 13 13 13
[14,] 14 14 14 14 14 14 14 14 14 14 14 14 14
[15,] 15 15 15 15 15 15 15 15 15 15 15 15 15
[16,] 16 16 16 16 16 16 16 16 16 16 16 16 16
[17,] 17 17 17 17 17 17 17 17 17 17 17 17 17
[18,] 18 18 18 18 18 18 18 18 18 18 18 18 18
[19,] 19 19 19 19 19 19 19 19 19 19 19 19 19
[20,] 20 20 20 20 20 20 20 20 20 20 20 20 20
[21,] 21 21 21 21 21 21 21 21 21 21 21 21 21
[22,] 22 22 22 22 22 22 22 22 22 22 22 22 22
[23,] 23 23 23 23 23 23 23 23 23 23 23 23 23
[24,] 24 24 24 24 24 24 24 24 24 24 24 24 24
[25,] 25 25 25 25 25 25 25 25 25 25 25 25 25
[26,] 26 26 26 26 26 26 26 26 26 26 26 26 26
[27,] 27 27 27 27 27 27 27 27 27 27 27 27 27
[28,] 28 28 28 28 28 28 28 28 28 28 28 28 28
[29,] 29 29 29 29 29 29 29 29 29 29 29 29 29
[30,] 30 30 30 30 30 30 30 30 30 30 30 30 30
[31,] 31 31 31 31 31 31 31 31 31 31 31 31 31
[32,] 32 32 32 32 32 32 32 32 32 32 32 32 32
[33,] 33 33 33 33 33 33 33 33 33 33 33 33 33
[34,] 34 34 34 34 34 34 34 34 34 34 34 34 34
[35,] 35 35 35 35 35 35 35 35 35 35 35 35 35
[36,] 36 36 36 36 36 36 36 36 36 36 36 36 36
[37,] 37 37 37 37 37 37 37 37 37 37 37 37 37
[38,] 38 38 38 38 38 38 38 38 38 38 38 38 38
[39,] 39 39 39 39 39 39 39 39 39 39 39 39 39
[40,] 40 40 40 40 40 40 40 40 40 40 40 40 40
[41,] 41 41 41 41 41 41 41 41 41 41 41 41 41
[42,] 42 42 42 42 42 42 42 42 42 42 42 42 42
[43,] 43 43 43 43 43 43 43 43 43 43 43 43 43
[44,] 44 44 44 44 44 44 44 44 44 44 44 44 44
[45,] 45 45 45 45 45 45 45 45 45 45 45 45 45
[46,] 46 46 46 46 46 46 46 46 46 46 46 46 46
[47,] 47 47 47 47 47 47 47 47 47 47 47 47 47
[48,] 48 48 48 48 48 48 48 48 48 48 48 48 48
[49,] 49 49 49 49 49 49 49 49 49 49 49 49 49
[50,] 50 50 50 50 50 50 50 50 50 50 50 50 50
[51,] 51 51 51 51 51 51 51 51 51 51 51 51 51
[52,] 52 52 52 52 52 52 52 52 52 52 52 52 52
[53,] 53 53 53 53 53 53 53 53 53 53 53 53 53
[54,] 54 54 54 54 54 54 54 54 54 54 54 54 54
[55,] 55 55 55 55 55 55 55 55 55 55 55 55 55
[56,] 56 56 56 56 56 56 56 56 56 56 56 56 56
[57,] 57 57 57 57 57 57 57 57 57 57 57 57 57
[58,] 58 58 58 58 58 58 58 58 58 58 58 58 58
[59,] 59 59 59 59 59 59 59 59 59 59 59 59 59
[60,] 60 60 60 60 60 60 60 60 60 60 60 60 60
[61,] 61 61 61 61 61 61 61 61 61 61 61 61 61
[62,] 62 62 62 62 62 62 62 62 62 62 62 62 62
[63,] 63 63 63 63 63 63 63 63 63 63 63 63 63
[64,] 64 64 64 64 64 64 64 64 64 64 64 64 64
[65,] 65 65 65 65 65 65 65 65 65 65 65 65 65
[66,] 66 66 66 66 66 66 66 66 66 66 66 66 66
[67,] 67 67 67 67 67 67 67 67 67 67 67 67 67
[68,] 68 68 68 68 68 68 68 68 68 68 68 68 68
[69,] 69 69 69 69 69 69 69 69 69 69 69 69 69
[70,] 70 70 70 70 70 70 70 70 70 70 70 70 70
[71,] 71 71 71 71 71 71 71 71 71 71 71 71 71
[72,] 72 72 72 72 72 72 72 72 72 72 72 72 72
[73,] 73 73 73 73 73 73 73 73 73 73 73 73 73
[74,] 74 74 74 74 74 74 74 74 74 74 74 74 74
[75,] 75 75 75 75 75 75 75 75 75 75 75 75 75
[76,] 76 76 76 76 76 76 76 76 76 76 76 76 76
[ reached getOption("max.print") -- omitted 17304 rows ]
str(bike.csv)
'data.frame': 17380 obs. of 13 variables:
$ bike_sharing_data..5.: chr "datetime" "1/1/2011 0:00" "1/1/2011 1:00" "1/1/2011 2:00" ...
$ X : chr "season" "1" "1" "1" ...
$ X.1 : chr "holiday" "0" "0" "0" ...
$ X.2 : chr "workingday" "0" "0" "0" ...
$ X.3 : chr "weather" "1" "1" "1" ...
$ X.4 : chr "temp" "9.84" "9.02" "9.02" ...
$ X.5 : chr "atemp" "14.395" "13.635" "13.635" ...
$ X.6 : chr "humidity" "81" "80" "80" ...
$ X.7 : chr "windspeed" "0" "0" "0" ...
$ X.8 : chr "casual" "3" "8" "5" ...
$ X.9 : chr "registered" "13" "32" "27" ...
$ X.10 : chr "count" "16" "40" "32" ...
$ X.11 : chr "sources" "ad campaign" "www.yahoo.com" "www.google.fi" ...
summary(bike.csv)
bike_sharing_data..5. X X.1 X.2
Length:17380 Length:17380 Length:17380 Length:17380
Class :character Class :character Class :character Class :character
Mode :character Mode :character Mode :character Mode :character
X.3 X.4 X.5 X.6
Length:17380 Length:17380 Length:17380 Length:17380
Class :character Class :character Class :character Class :character
Mode :character Mode :character Mode :character Mode :character
X.7 X.8 X.9 X.10
Length:17380 Length:17380 Length:17380 Length:17380
Class :character Class :character Class :character Class :character
Mode :character Mode :character Mode :character Mode :character
X.11
Length:17380
Class :character
Mode :character
sort(table(bike.csv$humidity), decreasing=TRUE)
integer(0)
season_value <- bike.csv$season[6251]
cat("The value of season in row 6251 is: ", season_value, "\n")
The value of season in row 6251 is:
table(bike.csv$season)
< table of extent 0 >
bike.csv[(bike.csv$season %in% c(2, 4)) & (bike.csv$windspeed >+ 39.9), ]
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7cn0KYmlrZS5jc3YgPC0gcmVhZC5jc3YoImJpa2Vfc2hhcmluZ19kYXRhIC5jc3YiKQpgYGAKCmBgYHtyfQpoZWFkKGJpa2UuY3N2KSAKYGBgCgpgYGB7cn0Kcm93KGJpa2UuY3N2KQpgYGAKCmBgYHtyfQpzdHIoYmlrZS5jc3YpCmBgYAoKYGBge3J9CnN1bW1hcnkoYmlrZS5jc3YpCmBgYAoKYGBge3J9CnNvcnQodGFibGUoYmlrZS5jc3YkaHVtaWRpdHkpLCBkZWNyZWFzaW5nPVRSVUUpCmBgYAoKYGBge3J9CnNlYXNvbl92YWx1ZSA8LSBiaWtlLmNzdiRzZWFzb25bNjI1MV0KYGBgCgpgYGB7cn0KY2F0KCJUaGUgdmFsdWUgb2Ygc2Vhc29uIGluIHJvdyA2MjUxIGlzOiAiLCBzZWFzb25fdmFsdWUsICJcbiIpCmBgYAoKYGBge3J9CnRhYmxlKGJpa2UuY3N2JHNlYXNvbikKYGBgCgpgYGB7cn0KYmlrZS5jc3ZbKGJpa2UuY3N2JHNlYXNvbiAlaW4lIGMoMiwgNCkpICYgKGJpa2UuY3N2JHdpbmRzcGVlZCA+KyAzOS45KSwgXQpgYGAKCgo=