#title: “ASSIGNMENT_2” #author: “Hiral Purohit” #date: “6/2/2020” #output: html_document
scores <- read.csv("C:/Users/files/scores.csv")
View(scores)
die <- c(scores$home_goals, scores$away_goals,scores$match_id)
die## [1] 3 1 1 3 3 2 1 1 2 3 2 0 4 1 2 1 0 0 0 2 2 0 2 0 2
## [26] 1 1 1 2 2 1 2 1 1 0 2 1 2 0 0 0 0 2 3 0 2 0 1 1 2
## [51] 2 1 2 2 1 2 2 0 0 1 1 0 0 1 1 0 5 1 0 1 3 2 1 0 1
## [76] 0 0 2 1 1 0 4 2 3 1 0 1 1 5 2 0 0 2 2 0 4 4 3 3 0
## [101] 4 1 1 0 3 0 3 1 1 1 1 1 1 0 1 1 0 1 0 1 1 1 0 0 7
## [126] 0 3 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
## [151] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
## [176] 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64is.vector(die)## [1] TRUElength(die)## [1] 192sum(die)## [1] 2251typeof(die)## [1] "integer"text <- c(scores$home_country, scores$home_code)
text## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "BRA" "MEX"
## [67] "ESP" "CHI" "COL"
## [70] "CIV" "URU" "ENG"
## [73] "SUI" "FRA" "ARG"
## [76] "IRN" "GER" "GHA"
## [79] "BEL" "RUS" "BRA"
## [82] "CMR" "ESP" "AUS"
## [85] "COL" "JPN" "URU"
## [88] "ITA" "SUI" "HON"
## [91] "ARG" "NGA" "GER"
## [94] "USA" "BEL" "KOR"
## [97] "CMR" "CRO" "AUS"
## [100] "NED" "JPN" "GRE"
## [103] "ITA" "CRC" "HON"
## [106] "ECU" "NGA" "BIH"
## [109] "USA" "POR" "KOR"
## [112] "ALG" "BRA" "COL"
## [115] "NED" "CRC" "FRA"
## [118] "GER" "ARG" "BEL"
## [121] "BRA" "FRA" "NED"
## [124] "ARG" "BRA" "NED"
## [127] "BRA" "GER"typeof(text)## [1] "character"typeof(scores$home_country)## [1] "character"raw(4)## [1] 00 00 00 00is.vector(die)## [1] TRUEattributes(text)## NULLnames(die)## NULLnames(text)## NULL#names(die) <- c(scores$home_country)
#names(die)
names(die) <- c(scores$home_country, scores$home_code)
names(die)## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "BRA" "MEX"
## [67] "ESP" "CHI" "COL"
## [70] "CIV" "URU" "ENG"
## [73] "SUI" "FRA" "ARG"
## [76] "IRN" "GER" "GHA"
## [79] "BEL" "RUS" "BRA"
## [82] "CMR" "ESP" "AUS"
## [85] "COL" "JPN" "URU"
## [88] "ITA" "SUI" "HON"
## [91] "ARG" "NGA" "GER"
## [94] "USA" "BEL" "KOR"
## [97] "CMR" "CRO" "AUS"
## [100] "NED" "JPN" "GRE"
## [103] "ITA" "CRC" "HON"
## [106] "ECU" "NGA" "BIH"
## [109] "USA" "POR" "KOR"
## [112] "ALG" "BRA" "COL"
## [115] "NED" "CRC" "FRA"
## [118] "GER" "ARG" "BEL"
## [121] "BRA" "FRA" "NED"
## [124] "ARG" "BRA" "NED"
## [127] "BRA" "GER" NA
## [130] NA NA NA
## [133] NA NA NA
## [136] NA NA NA
## [139] NA NA NA
## [142] NA NA NA
## [145] NA NA NA
## [148] NA NA NA
## [151] NA NA NA
## [154] NA NA NA
## [157] NA NA NA
## [160] NA NA NA
## [163] NA NA NA
## [166] NA NA NA
## [169] NA NA NA
## [172] NA NA NA
## [175] NA NA NA
## [178] NA NA NA
## [181] NA NA NA
## [184] NA NA NA
## [187] NA NA NA
## [190] NA NA NAattributes(die)## $names
## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "BRA" "MEX"
## [67] "ESP" "CHI" "COL"
## [70] "CIV" "URU" "ENG"
## [73] "SUI" "FRA" "ARG"
## [76] "IRN" "GER" "GHA"
## [79] "BEL" "RUS" "BRA"
## [82] "CMR" "ESP" "AUS"
## [85] "COL" "JPN" "URU"
## [88] "ITA" "SUI" "HON"
## [91] "ARG" "NGA" "GER"
## [94] "USA" "BEL" "KOR"
## [97] "CMR" "CRO" "AUS"
## [100] "NED" "JPN" "GRE"
## [103] "ITA" "CRC" "HON"
## [106] "ECU" "NGA" "BIH"
## [109] "USA" "POR" "KOR"
## [112] "ALG" "BRA" "COL"
## [115] "NED" "CRC" "FRA"
## [118] "GER" "ARG" "BEL"
## [121] "BRA" "FRA" "NED"
## [124] "ARG" "BRA" "NED"
## [127] "BRA" "GER" NA
## [130] NA NA NA
## [133] NA NA NA
## [136] NA NA NA
## [139] NA NA NA
## [142] NA NA NA
## [145] NA NA NA
## [148] NA NA NA
## [151] NA NA NA
## [154] NA NA NA
## [157] NA NA NA
## [160] NA NA NA
## [163] NA NA NA
## [166] NA NA NA
## [169] NA NA NA
## [172] NA NA NA
## [175] NA NA NA
## [178] NA NA NA
## [181] NA NA NA
## [184] NA NA NA
## [187] NA NA NA
## [190] NA NA NAdie## Brazil Mexico Spain
## 3 1 1
## Chile Colombia Ivory Coast
## 3 3 2
## Uruguay England Switzerland
## 1 1 2
## France Argentina Iran
## 3 2 0
## Germany Ghana Belgium
## 4 1 2
## Russia Brazil Cameroon
## 1 0 0
## Spain Australia Colombia
## 0 2 2
## Japan Uruguay Italy
## 0 2 0
## Switzerland Honduras Argentina
## 2 1 1
## Nigeria Germany USA
## 1 2 2
## Belgium Korea Republic Cameroon
## 1 2 1
## Croatia Australia Netherlands
## 1 0 2
## Japan Greece Italy
## 1 2 0
## Costa Rica Honduras Ecuador
## 0 0 0
## Nigeria Bosnia and Herzegovina USA
## 2 3 0
## Portugal Korea Republic Algeria
## 2 0 1
## Brazil Colombia Netherlands
## 1 2 2
## Costa Rica France Germany
## 1 2 2
## Argentina Belgium Brazil
## 1 2 2
## France Netherlands Argentina
## 0 0 1
## Brazil Netherlands Brazil
## 1 0 0
## Germany BRA MEX
## 1 1 0
## ESP CHI COL
## 5 1 0
## CIV URU ENG
## 1 3 2
## SUI FRA ARG
## 1 0 1
## IRN GER GHA
## 0 0 2
## BEL RUS BRA
## 1 1 0
## CMR ESP AUS
## 4 2 3
## COL JPN URU
## 1 0 1
## ITA SUI HON
## 1 5 2
## ARG NGA GER
## 0 0 2
## USA BEL KOR
## 2 0 4
## CMR CRO AUS
## 4 3 3
## NED JPN GRE
## 0 4 1
## ITA CRC HON
## 1 0 3
## ECU NGA BIH
## 0 3 1
## USA POR KOR
## 1 1 1
## ALG BRA COL
## 1 1 0
## NED CRC FRA
## 1 1 0
## GER ARG BEL
## 1 0 1
## BRA FRA NED
## 1 1 0
## ARG BRA NED
## 0 7 0
## BRA GER <NA>
## 3 0 1
## <NA> <NA> <NA>
## 2 3 4
## <NA> <NA> <NA>
## 5 6 7
## <NA> <NA> <NA>
## 8 9 10
## <NA> <NA> <NA>
## 11 12 13
## <NA> <NA> <NA>
## 14 15 16
## <NA> <NA> <NA>
## 17 18 19
## <NA> <NA> <NA>
## 20 21 22
## <NA> <NA> <NA>
## 23 24 25
## <NA> <NA> <NA>
## 26 27 28
## <NA> <NA> <NA>
## 29 30 31
## <NA> <NA> <NA>
## 32 33 34
## <NA> <NA> <NA>
## 35 36 37
## <NA> <NA> <NA>
## 38 39 40
## <NA> <NA> <NA>
## 41 42 43
## <NA> <NA> <NA>
## 44 45 46
## <NA> <NA> <NA>
## 47 48 49
## <NA> <NA> <NA>
## 50 51 52
## <NA> <NA> <NA>
## 53 54 55
## <NA> <NA> <NA>
## 56 57 58
## <NA> <NA> <NA>
## 59 60 61
## <NA> <NA> <NA>
## 62 63 64m <- matrix(die, nrow=2)
m <- matrix(die, nrow=2, byrow = TRUE)
m## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
## [1,] 3 1 1 3 3 2 1 1 2 3 2 0 4 1
## [2,] 4 3 3 0 4 1 1 0 3 0 3 1 1 1
## [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26]
## [1,] 2 1 0 0 0 2 2 0 2 0 2 1
## [2,] 1 1 1 0 1 1 0 1 0 1 1 1
## [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [,38]
## [1,] 1 1 2 2 1 2 1 1 0 2 1 2
## [2,] 0 0 7 0 3 0 1 2 3 4 5 6
## [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [,50]
## [1,] 0 0 0 0 2 3 0 2 0 1 1 2
## [2,] 7 8 9 10 11 12 13 14 15 16 17 18
## [,51] [,52] [,53] [,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] [,62]
## [1,] 2 1 2 2 1 2 2 0 0 1 1 0
## [2,] 19 20 21 22 23 24 25 26 27 28 29 30
## [,63] [,64] [,65] [,66] [,67] [,68] [,69] [,70] [,71] [,72] [,73] [,74]
## [1,] 0 1 1 0 5 1 0 1 3 2 1 0
## [2,] 31 32 33 34 35 36 37 38 39 40 41 42
## [,75] [,76] [,77] [,78] [,79] [,80] [,81] [,82] [,83] [,84] [,85] [,86]
## [1,] 1 0 0 2 1 1 0 4 2 3 1 0
## [2,] 43 44 45 46 47 48 49 50 51 52 53 54
## [,87] [,88] [,89] [,90] [,91] [,92] [,93] [,94] [,95] [,96]
## [1,] 1 1 5 2 0 0 2 2 0 4
## [2,] 55 56 57 58 59 60 61 62 63 64ar <- array(c(scores$match_id), dim = c(2,2,3))
ar## , , 1
##
## [,1] [,2]
## [1,] 1 3
## [2,] 2 4
##
## , , 2
##
## [,1] [,2]
## [1,] 5 7
## [2,] 6 8
##
## , , 3
##
## [,1] [,2]
## [1,] 9 11
## [2,] 10 12hand <- c(scores$home_country, scores$home_code)
hand## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "BRA" "MEX"
## [67] "ESP" "CHI" "COL"
## [70] "CIV" "URU" "ENG"
## [73] "SUI" "FRA" "ARG"
## [76] "IRN" "GER" "GHA"
## [79] "BEL" "RUS" "BRA"
## [82] "CMR" "ESP" "AUS"
## [85] "COL" "JPN" "URU"
## [88] "ITA" "SUI" "HON"
## [91] "ARG" "NGA" "GER"
## [94] "USA" "BEL" "KOR"
## [97] "CMR" "CRO" "AUS"
## [100] "NED" "JPN" "GRE"
## [103] "ITA" "CRC" "HON"
## [106] "ECU" "NGA" "BIH"
## [109] "USA" "POR" "KOR"
## [112] "ALG" "BRA" "COL"
## [115] "NED" "CRC" "FRA"
## [118] "GER" "ARG" "BEL"
## [121] "BRA" "FRA" "NED"
## [124] "ARG" "BRA" "NED"
## [127] "BRA" "GER"matrix(hand, nrow = 5)## Warning in matrix(hand, nrow = 5): data length [128] is not a sub-multiple or
## multiple of the number of rows [5]## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] "Brazil" "Ivory Coast" "Argentina" "Russia" "Colombia" "Honduras"
## [2,] "Mexico" "Uruguay" "Iran" "Brazil" "Japan" "Argentina"
## [3,] "Spain" "England" "Germany" "Cameroon" "Uruguay" "Nigeria"
## [4,] "Chile" "Switzerland" "Ghana" "Spain" "Italy" "Germany"
## [5,] "Colombia" "France" "Belgium" "Australia" "Switzerland" "USA"
## [,7] [,8] [,9] [,10]
## [1,] "Belgium" "Netherlands" "Honduras" "Portugal"
## [2,] "Korea Republic" "Japan" "Ecuador" "Korea Republic"
## [3,] "Cameroon" "Greece" "Nigeria" "Algeria"
## [4,] "Croatia" "Italy" "Bosnia and Herzegovina" "Brazil"
## [5,] "Australia" "Costa Rica" "USA" "Colombia"
## [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18]
## [1,] "Netherlands" "Belgium" "Brazil" "MEX" "URU" "IRN" "BRA" "JPN"
## [2,] "Costa Rica" "Brazil" "Netherlands" "ESP" "ENG" "GER" "CMR" "URU"
## [3,] "France" "France" "Brazil" "CHI" "SUI" "GHA" "ESP" "ITA"
## [4,] "Germany" "Netherlands" "Germany" "COL" "FRA" "BEL" "AUS" "SUI"
## [5,] "Argentina" "Argentina" "BRA" "CIV" "ARG" "RUS" "COL" "HON"
## [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26]
## [1,] "ARG" "KOR" "JPN" "ECU" "KOR" "CRC" "BRA" "NED"
## [2,] "NGA" "CMR" "GRE" "NGA" "ALG" "FRA" "FRA" "BRA"
## [3,] "GER" "CRO" "ITA" "BIH" "BRA" "GER" "NED" "GER"
## [4,] "USA" "AUS" "CRC" "USA" "COL" "ARG" "ARG" "Brazil"
## [5,] "BEL" "NED" "HON" "POR" "NED" "BEL" "BRA" "Mexico"matrix(hand, ncol = 5)## Warning in matrix(hand, ncol = 5): data length [128] is not a sub-multiple or
## multiple of the number of rows [26]## [,1] [,2] [,3] [,4] [,5]
## [1,] "Brazil" "Argentina" "France" "BEL" "HON"
## [2,] "Mexico" "Nigeria" "Germany" "RUS" "ECU"
## [3,] "Spain" "Germany" "Argentina" "BRA" "NGA"
## [4,] "Chile" "USA" "Belgium" "CMR" "BIH"
## [5,] "Colombia" "Belgium" "Brazil" "ESP" "USA"
## [6,] "Ivory Coast" "Korea Republic" "France" "AUS" "POR"
## [7,] "Uruguay" "Cameroon" "Netherlands" "COL" "KOR"
## [8,] "England" "Croatia" "Argentina" "JPN" "ALG"
## [9,] "Switzerland" "Australia" "Brazil" "URU" "BRA"
## [10,] "France" "Netherlands" "Netherlands" "ITA" "COL"
## [11,] "Argentina" "Japan" "Brazil" "SUI" "NED"
## [12,] "Iran" "Greece" "Germany" "HON" "CRC"
## [13,] "Germany" "Italy" "BRA" "ARG" "FRA"
## [14,] "Ghana" "Costa Rica" "MEX" "NGA" "GER"
## [15,] "Belgium" "Honduras" "ESP" "GER" "ARG"
## [16,] "Russia" "Ecuador" "CHI" "USA" "BEL"
## [17,] "Brazil" "Nigeria" "COL" "BEL" "BRA"
## [18,] "Cameroon" "Bosnia and Herzegovina" "CIV" "KOR" "FRA"
## [19,] "Spain" "USA" "URU" "CMR" "NED"
## [20,] "Australia" "Portugal" "ENG" "CRO" "ARG"
## [21,] "Colombia" "Korea Republic" "SUI" "AUS" "BRA"
## [22,] "Japan" "Algeria" "FRA" "NED" "NED"
## [23,] "Uruguay" "Brazil" "ARG" "JPN" "BRA"
## [24,] "Italy" "Colombia" "IRN" "GRE" "GER"
## [25,] "Switzerland" "Netherlands" "GER" "ITA" "Brazil"
## [26,] "Honduras" "Costa Rica" "GHA" "CRC" "Mexico"hand <- c(scores$home_country, scores$win_country)
hand## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "Brazil" "Mexico"
## [67] "Netherlands" "Chile" "Colombia"
## [70] "Ivory Coast" "Costa Rica" "Italy"
## [73] "Switzerland" "France" "Argentina"
## [76] "" "Germany" "USA"
## [79] "Belgium" "" ""
## [82] "Croatia" "Chile" "Netherlands"
## [85] "Colombia" "" "Uruguay"
## [88] "Costa Rica" "France" "Ecuador"
## [91] "Argentina" "Nigeria" ""
## [94] "" "Belgium" "Algeria"
## [97] "Brazil" "Mexico" "Spain"
## [100] "Netherlands" "Colombia" "Greece"
## [103] "Uruguay" "" "Switzerland"
## [106] "" "Argentina" "Bosnia and Herzegovina"
## [109] "Germany" "Portugal" "Belgium"
## [112] "" "Brazil" "Colombia"
## [115] "Netherlands" "Costa Rica" "France"
## [118] "Germany" "Argentina" "Belgium"
## [121] "Brazil" "Germany" "Netherlands"
## [124] "Argentina" "Germany" "Argentina"
## [127] "Netherlands" "Germany"matrix(hand, nrow = 5, byrow = TRUE)## Warning in matrix(hand, nrow = 5, byrow = TRUE): data length [128] is not a sub-
## multiple or multiple of the number of rows [5]## [,1] [,2] [,3] [,4] [,5]
## [1,] "Brazil" "Mexico" "Spain" "Chile" "Colombia"
## [2,] "Argentina" "Nigeria" "Germany" "USA" "Belgium"
## [3,] "France" "Germany" "Argentina" "Belgium" "Brazil"
## [4,] "Belgium" "" "" "Croatia" "Chile"
## [5,] "Switzerland" "" "Argentina" "Bosnia and Herzegovina" "Germany"
## [,6] [,7] [,8] [,9] [,10]
## [1,] "Ivory Coast" "Uruguay" "England" "Switzerland" "France"
## [2,] "Korea Republic" "Cameroon" "Croatia" "Australia" "Netherlands"
## [3,] "France" "Netherlands" "Argentina" "Brazil" "Netherlands"
## [4,] "Netherlands" "Colombia" "" "Uruguay" "Costa Rica"
## [5,] "Portugal" "Belgium" "" "Brazil" "Colombia"
## [,11] [,12] [,13] [,14] [,15]
## [1,] "Argentina" "Iran" "Germany" "Ghana" "Belgium"
## [2,] "Japan" "Greece" "Italy" "Costa Rica" "Honduras"
## [3,] "Brazil" "Germany" "Brazil" "Mexico" "Netherlands"
## [4,] "France" "Ecuador" "Argentina" "Nigeria" ""
## [5,] "Netherlands" "Costa Rica" "France" "Germany" "Argentina"
## [,16] [,17] [,18] [,19] [,20]
## [1,] "Russia" "Brazil" "Cameroon" "Spain" "Australia"
## [2,] "Ecuador" "Nigeria" "Bosnia and Herzegovina" "USA" "Portugal"
## [3,] "Chile" "Colombia" "Ivory Coast" "Costa Rica" "Italy"
## [4,] "" "Belgium" "Algeria" "Brazil" "Mexico"
## [5,] "Belgium" "Brazil" "Germany" "Netherlands" "Argentina"
## [,21] [,22] [,23] [,24] [,25]
## [1,] "Colombia" "Japan" "Uruguay" "Italy" "Switzerland"
## [2,] "Korea Republic" "Algeria" "Brazil" "Colombia" "Netherlands"
## [3,] "Switzerland" "France" "Argentina" "" "Germany"
## [4,] "Spain" "Netherlands" "Colombia" "Greece" "Uruguay"
## [5,] "Germany" "Argentina" "Netherlands" "Germany" "Brazil"
## [,26]
## [1,] "Honduras"
## [2,] "Costa Rica"
## [3,] "USA"
## [4,] ""
## [5,] "Mexico"matrix(hand, ncol = 5, byrow = TRUE)## Warning in matrix(hand, ncol = 5, byrow = TRUE): data length [128] is not a sub-
## multiple or multiple of the number of rows [26]## [,1] [,2] [,3]
## [1,] "Brazil" "Mexico" "Spain"
## [2,] "Ivory Coast" "Uruguay" "England"
## [3,] "Argentina" "Iran" "Germany"
## [4,] "Russia" "Brazil" "Cameroon"
## [5,] "Colombia" "Japan" "Uruguay"
## [6,] "Honduras" "Argentina" "Nigeria"
## [7,] "Belgium" "Korea Republic" "Cameroon"
## [8,] "Netherlands" "Japan" "Greece"
## [9,] "Honduras" "Ecuador" "Nigeria"
## [10,] "Portugal" "Korea Republic" "Algeria"
## [11,] "Netherlands" "Costa Rica" "France"
## [12,] "Belgium" "Brazil" "France"
## [13,] "Brazil" "Netherlands" "Brazil"
## [14,] "Mexico" "Netherlands" "Chile"
## [15,] "Costa Rica" "Italy" "Switzerland"
## [16,] "" "Germany" "USA"
## [17,] "" "Croatia" "Chile"
## [18,] "" "Uruguay" "Costa Rica"
## [19,] "Argentina" "Nigeria" ""
## [20,] "Algeria" "Brazil" "Mexico"
## [21,] "Colombia" "Greece" "Uruguay"
## [22,] "" "Argentina" "Bosnia and Herzegovina"
## [23,] "Belgium" "" "Brazil"
## [24,] "Costa Rica" "France" "Germany"
## [25,] "Brazil" "Germany" "Netherlands"
## [26,] "Argentina" "Netherlands" "Germany"
## [,4] [,5]
## [1,] "Chile" "Colombia"
## [2,] "Switzerland" "France"
## [3,] "Ghana" "Belgium"
## [4,] "Spain" "Australia"
## [5,] "Italy" "Switzerland"
## [6,] "Germany" "USA"
## [7,] "Croatia" "Australia"
## [8,] "Italy" "Costa Rica"
## [9,] "Bosnia and Herzegovina" "USA"
## [10,] "Brazil" "Colombia"
## [11,] "Germany" "Argentina"
## [12,] "Netherlands" "Argentina"
## [13,] "Germany" "Brazil"
## [14,] "Colombia" "Ivory Coast"
## [15,] "France" "Argentina"
## [16,] "Belgium" ""
## [17,] "Netherlands" "Colombia"
## [18,] "France" "Ecuador"
## [19,] "" "Belgium"
## [20,] "Spain" "Netherlands"
## [21,] "" "Switzerland"
## [22,] "Germany" "Portugal"
## [23,] "Colombia" "Netherlands"
## [24,] "Argentina" "Belgium"
## [25,] "Argentina" "Germany"
## [26,] "Brazil" "Mexico"class(die)## [1] "integer"attributes(die)## $names
## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany" "BRA" "MEX"
## [67] "ESP" "CHI" "COL"
## [70] "CIV" "URU" "ENG"
## [73] "SUI" "FRA" "ARG"
## [76] "IRN" "GER" "GHA"
## [79] "BEL" "RUS" "BRA"
## [82] "CMR" "ESP" "AUS"
## [85] "COL" "JPN" "URU"
## [88] "ITA" "SUI" "HON"
## [91] "ARG" "NGA" "GER"
## [94] "USA" "BEL" "KOR"
## [97] "CMR" "CRO" "AUS"
## [100] "NED" "JPN" "GRE"
## [103] "ITA" "CRC" "HON"
## [106] "ECU" "NGA" "BIH"
## [109] "USA" "POR" "KOR"
## [112] "ALG" "BRA" "COL"
## [115] "NED" "CRC" "FRA"
## [118] "GER" "ARG" "BEL"
## [121] "BRA" "FRA" "NED"
## [124] "ARG" "BRA" "NED"
## [127] "BRA" "GER" NA
## [130] NA NA NA
## [133] NA NA NA
## [136] NA NA NA
## [139] NA NA NA
## [142] NA NA NA
## [145] NA NA NA
## [148] NA NA NA
## [151] NA NA NA
## [154] NA NA NA
## [157] NA NA NA
## [160] NA NA NA
## [163] NA NA NA
## [166] NA NA NA
## [169] NA NA NA
## [172] NA NA NA
## [175] NA NA NA
## [178] NA NA NA
## [181] NA NA NA
## [184] NA NA NA
## [187] NA NA NA
## [190] NA NA NAclass(scores$home_code)## [1] "character"class(5)## [1] "numeric"now <- Sys.time()
now## [1] "2020-06-02 21:37:27 CDT"typeof(now)## [1] "double"class(now)## [1] "POSIXct" "POSIXt"unclass(now)## [1] 1591151847list <- list(100:130, "R", list(TRUE,FALSE))
list## [[1]]
## [1] 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
## [20] 119 120 121 122 123 124 125 126 127 128 129 130
##
## [[2]]
## [1] "R"
##
## [[3]]
## [[3]][[1]]
## [1] TRUE
##
## [[3]][[2]]
## [1] FALSEcard <- list(scores$home_country, scores$home_code, 1)
card## [[1]]
## [1] "Brazil" "Mexico" "Spain"
## [4] "Chile" "Colombia" "Ivory Coast"
## [7] "Uruguay" "England" "Switzerland"
## [10] "France" "Argentina" "Iran"
## [13] "Germany" "Ghana" "Belgium"
## [16] "Russia" "Brazil" "Cameroon"
## [19] "Spain" "Australia" "Colombia"
## [22] "Japan" "Uruguay" "Italy"
## [25] "Switzerland" "Honduras" "Argentina"
## [28] "Nigeria" "Germany" "USA"
## [31] "Belgium" "Korea Republic" "Cameroon"
## [34] "Croatia" "Australia" "Netherlands"
## [37] "Japan" "Greece" "Italy"
## [40] "Costa Rica" "Honduras" "Ecuador"
## [43] "Nigeria" "Bosnia and Herzegovina" "USA"
## [46] "Portugal" "Korea Republic" "Algeria"
## [49] "Brazil" "Colombia" "Netherlands"
## [52] "Costa Rica" "France" "Germany"
## [55] "Argentina" "Belgium" "Brazil"
## [58] "France" "Netherlands" "Argentina"
## [61] "Brazil" "Netherlands" "Brazil"
## [64] "Germany"
##
## [[2]]
## [1] "BRA" "MEX" "ESP" "CHI" "COL" "CIV" "URU" "ENG" "SUI" "FRA" "ARG" "IRN"
## [13] "GER" "GHA" "BEL" "RUS" "BRA" "CMR" "ESP" "AUS" "COL" "JPN" "URU" "ITA"
## [25] "SUI" "HON" "ARG" "NGA" "GER" "USA" "BEL" "KOR" "CMR" "CRO" "AUS" "NED"
## [37] "JPN" "GRE" "ITA" "CRC" "HON" "ECU" "NGA" "BIH" "USA" "POR" "KOR" "ALG"
## [49] "BRA" "COL" "NED" "CRC" "FRA" "GER" "ARG" "BEL" "BRA" "FRA" "NED" "ARG"
## [61] "BRA" "NED" "BRA" "GER"
##
## [[3]]
## [1] 1df <- data.frame(home=c(scores$home_country, scores$home_code), away=c(scores$away_country,scores$home_goals))
df## home away
## 1 Brazil Croatia
## 2 Mexico Cameroon
## 3 Spain Netherlands
## 4 Chile Australia
## 5 Colombia Greece
## 6 Ivory Coast Japan
## 7 Uruguay Costa Rica
## 8 England Italy
## 9 Switzerland Ecuador
## 10 France Honduras
## 11 Argentina Bosnia and Herzegovina
## 12 Iran Nigeria
## 13 Germany Portugal
## 14 Ghana USA
## 15 Belgium Algeria
## 16 Russia Korea Republic
## 17 Brazil Mexico
## 18 Cameroon Croatia
## 19 Spain Chile
## 20 Australia Netherlands
## 21 Colombia Ivory Coast
## 22 Japan Greece
## 23 Uruguay England
## 24 Italy Costa Rica
## 25 Switzerland France
## 26 Honduras Ecuador
## 27 Argentina Iran
## 28 Nigeria Bosnia and Herzegovina
## 29 Germany Ghana
## 30 USA Portugal
## 31 Belgium Russia
## 32 Korea Republic Algeria
## 33 Cameroon Brazil
## 34 Croatia Mexico
## 35 Australia Spain
## 36 Netherlands Chile
## 37 Japan Colombia
## 38 Greece Ivory Coast
## 39 Italy Uruguay
## 40 Costa Rica England
## 41 Honduras Switzerland
## 42 Ecuador France
## 43 Nigeria Argentina
## 44 Bosnia and Herzegovina Iran
## 45 USA Germany
## 46 Portugal Ghana
## 47 Korea Republic Belgium
## 48 Algeria Russia
## 49 Brazil Chile
## 50 Colombia Uruguay
## 51 Netherlands Mexico
## 52 Costa Rica Greece
## 53 France Nigeria
## 54 Germany Algeria
## 55 Argentina Switzerland
## 56 Belgium USA
## 57 Brazil Colombia
## 58 France Germany
## 59 Netherlands Costa Rica
## 60 Argentina Belgium
## 61 Brazil Germany
## 62 Netherlands Argentina
## 63 Brazil Netherlands
## 64 Germany Argentina
## 65 BRA 3
## 66 MEX 1
## 67 ESP 1
## 68 CHI 3
## 69 COL 3
## 70 CIV 2
## 71 URU 1
## 72 ENG 1
## 73 SUI 2
## 74 FRA 3
## 75 ARG 2
## 76 IRN 0
## 77 GER 4
## 78 GHA 1
## 79 BEL 2
## 80 RUS 1
## 81 BRA 0
## 82 CMR 0
## 83 ESP 0
## 84 AUS 2
## 85 COL 2
## 86 JPN 0
## 87 URU 2
## 88 ITA 0
## 89 SUI 2
## 90 HON 1
## 91 ARG 1
## 92 NGA 1
## 93 GER 2
## 94 USA 2
## 95 BEL 1
## 96 KOR 2
## 97 CMR 1
## 98 CRO 1
## 99 AUS 0
## 100 NED 2
## 101 JPN 1
## 102 GRE 2
## 103 ITA 0
## 104 CRC 0
## 105 HON 0
## 106 ECU 0
## 107 NGA 2
## 108 BIH 3
## 109 USA 0
## 110 POR 2
## 111 KOR 0
## 112 ALG 1
## 113 BRA 1
## 114 COL 2
## 115 NED 2
## 116 CRC 1
## 117 FRA 2
## 118 GER 2
## 119 ARG 1
## 120 BEL 2
## 121 BRA 2
## 122 FRA 0
## 123 NED 0
## 124 ARG 1
## 125 BRA 1
## 126 NED 0
## 127 BRA 0
## 128 GER 1typeof(df)## [1] "list"class(df)## [1] "data.frame"str(df)## 'data.frame': 128 obs. of 2 variables:
## $ home: chr "Brazil" "Mexico" "Spain" "Chile" ...
## $ away: chr "Croatia" "Cameroon" "Netherlands" "Australia" ...df <- data.frame(home=c(scores$home_country, scores$home_code), away=c(scores$away_country,scores$home_goals), stringsAsFactors = FALSE)
df## home away
## 1 Brazil Croatia
## 2 Mexico Cameroon
## 3 Spain Netherlands
## 4 Chile Australia
## 5 Colombia Greece
## 6 Ivory Coast Japan
## 7 Uruguay Costa Rica
## 8 England Italy
## 9 Switzerland Ecuador
## 10 France Honduras
## 11 Argentina Bosnia and Herzegovina
## 12 Iran Nigeria
## 13 Germany Portugal
## 14 Ghana USA
## 15 Belgium Algeria
## 16 Russia Korea Republic
## 17 Brazil Mexico
## 18 Cameroon Croatia
## 19 Spain Chile
## 20 Australia Netherlands
## 21 Colombia Ivory Coast
## 22 Japan Greece
## 23 Uruguay England
## 24 Italy Costa Rica
## 25 Switzerland France
## 26 Honduras Ecuador
## 27 Argentina Iran
## 28 Nigeria Bosnia and Herzegovina
## 29 Germany Ghana
## 30 USA Portugal
## 31 Belgium Russia
## 32 Korea Republic Algeria
## 33 Cameroon Brazil
## 34 Croatia Mexico
## 35 Australia Spain
## 36 Netherlands Chile
## 37 Japan Colombia
## 38 Greece Ivory Coast
## 39 Italy Uruguay
## 40 Costa Rica England
## 41 Honduras Switzerland
## 42 Ecuador France
## 43 Nigeria Argentina
## 44 Bosnia and Herzegovina Iran
## 45 USA Germany
## 46 Portugal Ghana
## 47 Korea Republic Belgium
## 48 Algeria Russia
## 49 Brazil Chile
## 50 Colombia Uruguay
## 51 Netherlands Mexico
## 52 Costa Rica Greece
## 53 France Nigeria
## 54 Germany Algeria
## 55 Argentina Switzerland
## 56 Belgium USA
## 57 Brazil Colombia
## 58 France Germany
## 59 Netherlands Costa Rica
## 60 Argentina Belgium
## 61 Brazil Germany
## 62 Netherlands Argentina
## 63 Brazil Netherlands
## 64 Germany Argentina
## 65 BRA 3
## 66 MEX 1
## 67 ESP 1
## 68 CHI 3
## 69 COL 3
## 70 CIV 2
## 71 URU 1
## 72 ENG 1
## 73 SUI 2
## 74 FRA 3
## 75 ARG 2
## 76 IRN 0
## 77 GER 4
## 78 GHA 1
## 79 BEL 2
## 80 RUS 1
## 81 BRA 0
## 82 CMR 0
## 83 ESP 0
## 84 AUS 2
## 85 COL 2
## 86 JPN 0
## 87 URU 2
## 88 ITA 0
## 89 SUI 2
## 90 HON 1
## 91 ARG 1
## 92 NGA 1
## 93 GER 2
## 94 USA 2
## 95 BEL 1
## 96 KOR 2
## 97 CMR 1
## 98 CRO 1
## 99 AUS 0
## 100 NED 2
## 101 JPN 1
## 102 GRE 2
## 103 ITA 0
## 104 CRC 0
## 105 HON 0
## 106 ECU 0
## 107 NGA 2
## 108 BIH 3
## 109 USA 0
## 110 POR 2
## 111 KOR 0
## 112 ALG 1
## 113 BRA 1
## 114 COL 2
## 115 NED 2
## 116 CRC 1
## 117 FRA 2
## 118 GER 2
## 119 ARG 1
## 120 BEL 2
## 121 BRA 2
## 122 FRA 0
## 123 NED 0
## 124 ARG 1
## 125 BRA 1
## 126 NED 0
## 127 BRA 0
## 128 GER 1