Objective
The object of this project is to take a poorly constructed text file and turn it into a nicely structured csv file that can easily be parsed for analyzation.
Connections and data
First aspect is to connect to the data and read it. The conn variable connects to the tournament text file. Chess_data then reads the text file. The y variable does a minor cleaning of the data by removing quotes.
conn <-url('https://raw.githubusercontent.com/uriahman/607/main/tournament_info.txt','r')
chess_data <- readLines(conn)
y <- strsplit(chess_data, split = "\\\"")Cleaning the tournament text file
This for loop matches the dotted lines of the text and skips them. It then removes minus marks and replaces it with no space. Then it removes the pipe symbols and replaces them with a comma instead. In the last line it writes a new text in the working directory called cleaned.txt. This new text file will be easier to parse further.
for (i in 1:length(y)){
if (y[[i]] != "-----------------------------------------------------------------------------------------"){
m <- gsub('\\-','',y[[i]][1])
l <- gsub("\\|",",",m)
write(l, "./cleaned.txt",append=T)
}
}
close.connection(conn)New formatted dataframe for easier cleaning
I now create a list of new names for the columns of the data frame that will be created. The cleaned.txt file is read in as a dataframe and I remove an erroneous column of NA values. Then I rename all the columns.
new_names <- c('Rank','Player','Total','Round_1','Round_2','Round_3','Round_4','Round_5','Round_6','Round_7')
df <- as.data.frame(read.csv('./cleaned.txt',header=T,sep = ","))
df<- df[-c(11)]
colnames(df) <- new_names
head(df,10)## Rank Player Total Round_1 Round_2 Round_3
## 1 Num USCF ID / Rtg (Pre>Post) Pts 1 2 3
## 2 1 GARY HUA 6.0 W 39 W 21 W 18
## 3 ON 15445895 / R: 1794 >1817 N:2 W B W
## 4 2 DAKSHESH DARURI 6.0 W 63 W 58 L 4
## 5 MI 14598900 / R: 1553 >1663 N:2 B W B
## 6 3 ADITYA BAJAJ 6.0 L 8 W 61 W 25
## 7 MI 14959604 / R: 1384 >1640 N:2 W B W
## 8 4 PATRICK H SCHILLING 5.5 W 23 D 28 W 2
## 9 MI 12616049 / R: 1716 >1744 N:2 W B W
## 10 5 HANSHI ZUO 5.5 W 45 W 37 D 12
## Round_4 Round_5 Round_6 Round_7
## 1 4 5 6 7
## 2 W 14 W 7 D 12 D 4
## 3 B W B W
## 4 W 17 W 16 W 20 W 7
## 5 W B W B
## 6 W 21 W 11 W 13 W 12
## 7 B W B W
## 8 W 26 D 5 W 19 D 1
## 9 B W B B
## 10 D 13 D 4 W 14 W 17Further munging
This is where most of the munging occurs. From looking at the dataframe I can see that there are two rows of data for each player. The odd rows contain the pre and post match rating, player id number and the state.
By doing an if statement with a modulo operation by 2, I can cycle through the data and make the i variable represent every even or odd row because if i modulo 2 equals zero, then the row is even, if it equals one, then it is odd.
The second if statement is for the header of the new csv, which is why it checks if i equals 1. I create a list of new header names to represent the new columns that will be added to the csv. Then I paste them together with variable new_names and have a comma separating them. The paste0 function did not add a comma between the last word of the l vector and the first word of the new_names, so a gsub was performed to separate the two words and add a comma between them. I then create a new text file and add the header line to it. With that action the first line of the of the new csv is completed.
The else statement to i not equaling one is where all the munging is done on all the other rows. The purpse is to get the player id and the pre and post match rankings. This is all done with the gsub function. First I remove all the white spaces and replace them with empty spaces. Next I look for anything that is not numbers and replace it with a comma. This creates a group of commas, so I look for groups of commas and replace them with only one comma. Some rows have extra numbers so the last two gsub statements looks for those and removes them. I printed this so each steps changes could be seen.
The next steps in the loop are getting the data for each respective column and row. The i variable is manipulated depending on which row of the dataframe the needed data is at. If the data is in the odd row then the respective column name uses the [i]. If the data for the corresponding column is in even then I use [i-1], which gets the previous rows data in that column. All of the values are put into a variable called combo and pasted together. Those are then pasted together with the str4 variable that holds player id, pre and post match ratings data.
With this the data is now in a format that it can be parsed easily and analyzed, so the data is then appended to the new_touranment_data file that was created at the beginning of the for loop.
for(i in 1:length(df$Player)){
if(i%%2 != 0){
if(i == 1){
l = c("id","pre","post",'state,')
new_header <-paste0(paste0(l,collapse=','),paste0(new_names,collapse=','),collapse=',')
new_header <-gsub('tP','t,P',new_header)
write(new_header, "./new_tournament_data.txt",append=T)
}else{
k <- gsub(" ", "", df$Player[i])
str1 <- gsub('[^0-9.-]', ',',k)
str2 <- gsub('(,,*)',',',str1)
str3 <- gsub('(,\\d,|,\\d\\d,)',",",str2)
str4 <- gsub('(,\\d?\\d$)',"",str3)
print(c(df$Player[i],k,str1,str2,str3,str4))
state_name <- df$Rank[i]
state_name <- gsub(" ", "", state_name)
pair <- df$Rank[i-1]
pair <- gsub(" ", "", pair)
player <- df$Player[i-1]
player <-gsub("[[:space:]]*$","",player)
total <- df$Total[i-1]
combo<-c(state_name,pair,player,total,df$Round_1[i-1],df$Round_2[i-1],df$Round_3[i-1],
df$Round_4[i-1],df$Round_5[i-1],df$Round_6[i-1],df$Round_7[i-1])
tourn_data <- paste0(paste0(str4,collapse=','),paste0(",",collapse=''),
paste0(combo,collapse=','),collapse=',')
write(tourn_data, "./new_tournament_data.txt",append=T)
}
}
}## [1] " 15445895 / R: 1794 >1817 " "15445895/R:1794>1817"
## [3] "15445895,,,1794,,,,1817" "15445895,1794,1817"
## [5] "15445895,1794,1817" "15445895,1794,1817"
## [1] " 14598900 / R: 1553 >1663 " "14598900/R:1553>1663"
## [3] "14598900,,,1553,,,,1663" "14598900,1553,1663"
## [5] "14598900,1553,1663" "14598900,1553,1663"
## [1] " 14959604 / R: 1384 >1640 " "14959604/R:1384>1640"
## [3] "14959604,,,1384,,,,1640" "14959604,1384,1640"
## [5] "14959604,1384,1640" "14959604,1384,1640"
## [1] " 12616049 / R: 1716 >1744 " "12616049/R:1716>1744"
## [3] "12616049,,,1716,,,,1744" "12616049,1716,1744"
## [5] "12616049,1716,1744" "12616049,1716,1744"
## [1] " 14601533 / R: 1655 >1690 " "14601533/R:1655>1690"
## [3] "14601533,,,1655,,,,1690" "14601533,1655,1690"
## [5] "14601533,1655,1690" "14601533,1655,1690"
## [1] " 15055204 / R: 1686 >1687 " "15055204/R:1686>1687"
## [3] "15055204,,,1686,,,,1687" "15055204,1686,1687"
## [5] "15055204,1686,1687" "15055204,1686,1687"
## [1] " 11146376 / R: 1649 >1673 " "11146376/R:1649>1673"
## [3] "11146376,,,1649,,,,1673" "11146376,1649,1673"
## [5] "11146376,1649,1673" "11146376,1649,1673"
## [1] " 15142253 / R: 1641P17>1657P24 " "15142253/R:1641P17>1657P24"
## [3] "15142253,,,1641,17,,,,1657,24" "15142253,1641,17,1657,24"
## [5] "15142253,1641,1657,24" "15142253,1641,1657"
## [1] " 14954524 / R: 1411 >1564 " "14954524/R:1411>1564"
## [3] "14954524,,,1411,,,,1564" "14954524,1411,1564"
## [5] "14954524,1411,1564" "14954524,1411,1564"
## [1] " 14150362 / R: 1365 >1544 " "14150362/R:1365>1544"
## [3] "14150362,,,1365,,,,1544" "14150362,1365,1544"
## [5] "14150362,1365,1544" "14150362,1365,1544"
## [1] " 12581589 / R: 1712 >1696 " "12581589/R:1712>1696"
## [3] "12581589,,,1712,,,,1696" "12581589,1712,1696"
## [5] "12581589,1712,1696" "12581589,1712,1696"
## [1] " 12681257 / R: 1663 >1670 " "12681257/R:1663>1670"
## [3] "12681257,,,1663,,,,1670" "12681257,1663,1670"
## [5] "12681257,1663,1670" "12681257,1663,1670"
## [1] " 15082995 / R: 1666 >1662 " "15082995/R:1666>1662"
## [3] "15082995,,,1666,,,,1662" "15082995,1666,1662"
## [5] "15082995,1666,1662" "15082995,1666,1662"
## [1] " 10131499 / R: 1610 >1618 " "10131499/R:1610>1618"
## [3] "10131499,,,1610,,,,1618" "10131499,1610,1618"
## [5] "10131499,1610,1618" "10131499,1610,1618"
## [1] " 15619130 / R: 1220P13>1416P20 " "15619130/R:1220P13>1416P20"
## [3] "15619130,,,1220,13,,,,1416,20" "15619130,1220,13,1416,20"
## [5] "15619130,1220,1416,20" "15619130,1220,1416"
## [1] " 10295068 / R: 1604 >1613 " "10295068/R:1604>1613"
## [3] "10295068,,,1604,,,,1613" "10295068,1604,1613"
## [5] "10295068,1604,1613" "10295068,1604,1613"
## [1] " 10297702 / R: 1629 >1610 " "10297702/R:1629>1610"
## [3] "10297702,,,1629,,,,1610" "10297702,1629,1610"
## [5] "10297702,1629,1610" "10297702,1629,1610"
## [1] " 11342094 / R: 1600 >1600 " "11342094/R:1600>1600"
## [3] "11342094,,,1600,,,,1600" "11342094,1600,1600"
## [5] "11342094,1600,1600" "11342094,1600,1600"
## [1] " 14862333 / R: 1564 >1570 " "14862333/R:1564>1570"
## [3] "14862333,,,1564,,,,1570" "14862333,1564,1570"
## [5] "14862333,1564,1570" "14862333,1564,1570"
## [1] " 14529060 / R: 1595 >1569 " "14529060/R:1595>1569"
## [3] "14529060,,,1595,,,,1569" "14529060,1595,1569"
## [5] "14529060,1595,1569" "14529060,1595,1569"
## [1] " 15495066 / R: 1563P22>1562 " "15495066/R:1563P22>1562"
## [3] "15495066,,,1563,22,,,,1562" "15495066,1563,22,1562"
## [5] "15495066,1563,1562" "15495066,1563,1562"
## [1] " 12405534 / R: 1555 >1529 " "12405534/R:1555>1529"
## [3] "12405534,,,1555,,,,1529" "12405534,1555,1529"
## [5] "12405534,1555,1529" "12405534,1555,1529"
## [1] " 15030142 / R: 1363 >1371 " "15030142/R:1363>1371"
## [3] "15030142,,,1363,,,,1371" "15030142,1363,1371"
## [5] "15030142,1363,1371" "15030142,1363,1371"
## [1] " 13469010 / R: 1229 >1300 " "13469010/R:1229>1300"
## [3] "13469010,,,1229,,,,1300" "13469010,1229,1300"
## [5] "13469010,1229,1300" "13469010,1229,1300"
## [1] " 12486656 / R: 1745 >1681 " "12486656/R:1745>1681"
## [3] "12486656,,,1745,,,,1681" "12486656,1745,1681"
## [5] "12486656,1745,1681" "12486656,1745,1681"
## [1] " 15131520 / R: 1579 >1564 " "15131520/R:1579>1564"
## [3] "15131520,,,1579,,,,1564" "15131520,1579,1564"
## [5] "15131520,1579,1564" "15131520,1579,1564"
## [1] " 14476567 / R: 1552 >1539 " "14476567/R:1552>1539"
## [3] "14476567,,,1552,,,,1539" "14476567,1552,1539"
## [5] "14476567,1552,1539" "14476567,1552,1539"
## [1] " 14882954 / R: 1507 >1513 " "14882954/R:1507>1513"
## [3] "14882954,,,1507,,,,1513" "14882954,1507,1513"
## [5] "14882954,1507,1513" "14882954,1507,1513"
## [1] " 15323285 / R: 1602P6 >1508P12 " "15323285/R:1602P6>1508P12"
## [3] "15323285,,,1602,6,,,,1508,12" "15323285,1602,6,1508,12"
## [5] "15323285,1602,1508,12" "15323285,1602,1508"
## [1] " 12577178 / R: 1522 >1444 " "12577178/R:1522>1444"
## [3] "12577178,,,1522,,,,1444" "12577178,1522,1444"
## [5] "12577178,1522,1444" "12577178,1522,1444"
## [1] " 15131618 / R: 1494 >1444 " "15131618/R:1494>1444"
## [3] "15131618,,,1494,,,,1444" "15131618,1494,1444"
## [5] "15131618,1494,1444" "15131618,1494,1444"
## [1] " 14073750 / R: 1441 >1433 " "14073750/R:1441>1433"
## [3] "14073750,,,1441,,,,1433" "14073750,1441,1433"
## [5] "14073750,1441,1433" "14073750,1441,1433"
## [1] " 14691842 / R: 1449 >1421 " "14691842/R:1449>1421"
## [3] "14691842,,,1449,,,,1421" "14691842,1449,1421"
## [5] "14691842,1449,1421" "14691842,1449,1421"
## [1] " 15051807 / R: 1399 >1400 " "15051807/R:1399>1400"
## [3] "15051807,,,1399,,,,1400" "15051807,1399,1400"
## [5] "15051807,1399,1400" "15051807,1399,1400"
## [1] " 14601397 / R: 1438 >1392 " "14601397/R:1438>1392"
## [3] "14601397,,,1438,,,,1392" "14601397,1438,1392"
## [5] "14601397,1438,1392" "14601397,1438,1392"
## [1] " 14773163 / R: 1355 >1367 " "14773163/R:1355>1367"
## [3] "14773163,,,1355,,,,1367" "14773163,1355,1367"
## [5] "14773163,1355,1367" "14773163,1355,1367"
## [1] " 15489571 / R: 980P12>1077P17 " "15489571/R:980P12>1077P17"
## [3] "15489571,,,980,12,,,,1077,17" "15489571,980,12,1077,17"
## [5] "15489571,980,1077,17" "15489571,980,1077"
## [1] " 15108523 / R: 1423 >1439 " "15108523/R:1423>1439"
## [3] "15108523,,,1423,,,,1439" "15108523,1423,1439"
## [5] "15108523,1423,1439" "15108523,1423,1439"
## [1] " 12923035 / R: 1436P23>1413 " "12923035/R:1436P23>1413"
## [3] "12923035,,,1436,23,,,,1413" "12923035,1436,23,1413"
## [5] "12923035,1436,1413" "12923035,1436,1413"
## [1] " 14892710 / R: 1348 >1346 " "14892710/R:1348>1346"
## [3] "14892710,,,1348,,,,1346" "14892710,1348,1346"
## [5] "14892710,1348,1346" "14892710,1348,1346"
## [1] " 15761443 / R: 1403P5 >1341P9 " "15761443/R:1403P5>1341P9"
## [3] "15761443,,,1403,5,,,,1341,9" "15761443,1403,5,1341,9"
## [5] "15761443,1403,1341,9" "15761443,1403,1341"
## [1] " 14462326 / R: 1332 >1256 " "14462326/R:1332>1256"
## [3] "14462326,,,1332,,,,1256" "14462326,1332,1256"
## [5] "14462326,1332,1256" "14462326,1332,1256"
## [1] " 14101068 / R: 1283 >1244 " "14101068/R:1283>1244"
## [3] "14101068,,,1283,,,,1244" "14101068,1283,1244"
## [5] "14101068,1283,1244" "14101068,1283,1244"
## [1] " 15323504 / R: 1199 >1199 " "15323504/R:1199>1199"
## [3] "15323504,,,1199,,,,1199" "15323504,1199,1199"
## [5] "15323504,1199,1199" "15323504,1199,1199"
## [1] " 15372807 / R: 1242 >1191 " "15372807/R:1242>1191"
## [3] "15372807,,,1242,,,,1191" "15372807,1242,1191"
## [5] "15372807,1242,1191" "15372807,1242,1191"
## [1] " 15490981 / R: 377P3 >1076P10 " "15490981/R:377P3>1076P10"
## [3] "15490981,,,377,3,,,,1076,10" "15490981,377,3,1076,10"
## [5] "15490981,377,1076,10" "15490981,377,1076"
## [1] " 12533115 / R: 1362 >1341 " "12533115/R:1362>1341"
## [3] "12533115,,,1362,,,,1341" "12533115,1362,1341"
## [5] "12533115,1362,1341" "12533115,1362,1341"
## [1] " 14369165 / R: 1382 >1335 " "14369165/R:1382>1335"
## [3] "14369165,,,1382,,,,1335" "14369165,1382,1335"
## [5] "14369165,1382,1335" "14369165,1382,1335"
## [1] " 12531685 / R: 1291P12>1259P17 " "12531685/R:1291P12>1259P17"
## [3] "12531685,,,1291,12,,,,1259,17" "12531685,1291,12,1259,17"
## [5] "12531685,1291,1259,17" "12531685,1291,1259"
## [1] " 14773178 / R: 1056 >1111 " "14773178/R:1056>1111"
## [3] "14773178,,,1056,,,,1111" "14773178,1056,1111"
## [5] "14773178,1056,1111" "14773178,1056,1111"
## [1] " 15205474 / R: 1011 >1097 " "15205474/R:1011>1097"
## [3] "15205474,,,1011,,,,1097" "15205474,1011,1097"
## [5] "15205474,1011,1097" "15205474,1011,1097"
## [1] " 14918803 / R: 935 >1092 " "14918803/R:935>1092"
## [3] "14918803,,,935,,,,1092" "14918803,935,1092"
## [5] "14918803,935,1092" "14918803,935,1092"
## [1] " 12578849 / R: 1393 >1359 " "12578849/R:1393>1359"
## [3] "12578849,,,1393,,,,1359" "12578849,1393,1359"
## [5] "12578849,1393,1359" "12578849,1393,1359"
## [1] " 12836773 / R: 1270 >1200 " "12836773/R:1270>1200"
## [3] "12836773,,,1270,,,,1200" "12836773,1270,1200"
## [5] "12836773,1270,1200" "12836773,1270,1200"
## [1] " 15412571 / R: 1186 >1163 " "15412571/R:1186>1163"
## [3] "15412571,,,1186,,,,1163" "15412571,1186,1163"
## [5] "15412571,1186,1163" "15412571,1186,1163"
## [1] " 14679887 / R: 1153 >1140 " "14679887/R:1153>1140"
## [3] "14679887,,,1153,,,,1140" "14679887,1153,1140"
## [5] "14679887,1153,1140" "14679887,1153,1140"
## [1] " 15113330 / R: 1092 >1079 " "15113330/R:1092>1079"
## [3] "15113330,,,1092,,,,1079" "15113330,1092,1079"
## [5] "15113330,1092,1079" "15113330,1092,1079"
## [1] " 14700365 / R: 917 > 941 " "14700365/R:917>941"
## [3] "14700365,,,917,,,,941" "14700365,917,941"
## [5] "14700365,917,941" "14700365,917,941"
## [1] " 12841036 / R: 853 > 878 " "12841036/R:853>878"
## [3] "12841036,,,853,,,,878" "12841036,853,878"
## [5] "12841036,853,878" "12841036,853,878"
## [1] " 14579262 / R: 967 > 984 " "14579262/R:967>984"
## [3] "14579262,,,967,,,,984" "14579262,967,984"
## [5] "14579262,967,984" "14579262,967,984"
## [1] " 15771592 / R: 955P11> 979P18 " "15771592/R:955P11>979P18"
## [3] "15771592,,,955,11,,,,979,18" "15771592,955,11,979,18"
## [5] "15771592,955,979,18" "15771592,955,979"
## [1] " 15219542 / R: 1530 >1535 " "15219542/R:1530>1535"
## [3] "15219542,,,1530,,,,1535" "15219542,1530,1535"
## [5] "15219542,1530,1535" "15219542,1530,1535"
## [1] " 15057092 / R: 1175 >1125 " "15057092/R:1175>1125"
## [3] "15057092,,,1175,,,,1125" "15057092,1175,1125"
## [5] "15057092,1175,1125" "15057092,1175,1125"
## [1] " 15006561 / R: 1163 >1112 " "15006561/R:1163>1112"
## [3] "15006561,,,1163,,,,1112" "15006561,1163,1112"
## [5] "15006561,1163,1112" "15006561,1163,1112"Getting the average oppenents ranking
To get the average opponents ranking we have to go through each round and get the opponents ranking. Now I have to get all of the pre tournament rankings for each opponent and add them all together and average it.
To do this I first read in the new_tournament_data text that has all of the tournament data and create an empty vector that will hold each players opponents average ranking.
I then create a for loop that cycles through each row of the data frame and extract the data for each round. Since the cell has the outcome of the match represented by a letter and the opponents ranking a gsub has to be performed to get only the numbers. Then each number is matched to the opponents pre ranking. Ever rounds variable is then added to a vector where the mean is calculated with an argument of na.rm set to true, so only the na’s are removed. The returned mean is then rounded to zero places and the data is added to the average_op vector, that was created just before the for loop.
tournament_data <- read.csv('./new_tournament_data.txt')
average_op <- vector()
for (i in 1:length(tournament_data$Rank)){
r1 <- tournament_data$Round_1[i]
r1<- gsub('[A-Z]([0-9]*)','\\1',r1)
r1<- gsub(" ", "",r1, fixed = TRUE)
op1 <- tournament_data$pre[as.double(r1)]
r2 <- tournament_data$Round_2[i]
r2<- gsub('[A-Z]([0-9]*)','\\1',r2)
r2<- gsub(" ", "",r2, fixed = TRUE)
op2 <- tournament_data$pre[as.double(r2)]
r3 <- tournament_data$Round_3[i]
r3<- gsub('[A-Z]([0-9]*)','\\1',r3)
r3<- gsub(" ", "",r3, fixed = TRUE)
op3 <- tournament_data$pre[as.double(r3)]
r4 <- tournament_data$Round_4[i]
r4<- gsub('[A-Z]([0-9]*)','\\1',r4)
r4<- gsub(" ", "",r4, fixed = TRUE)
op4 <- tournament_data$pre[as.double(r4)]
r5 <- tournament_data$Round_5[i]
r5<- gsub('[A-Z]([0-9]*)','\\1',r5)
r5<- gsub(" ", "",r5, fixed = TRUE)
op5 <- tournament_data$pre[as.double(r5)]
r6 <- tournament_data$Round_6[i]
r6<- gsub('[A-Z]([0-9]*)','\\1',r6)
r6<- gsub(" ", "",r6, fixed = TRUE)
op6 <- tournament_data$pre[as.double(r6)]
r7 <- tournament_data$Round_7[i]
r7<- gsub('[A-Z]([0-9]*)','\\1',r7)
r7<- gsub(" ", "",r7, fixed = TRUE)
op7 <- tournament_data$pre[as.double(r7)]
#print(c(as.double(r1),as.double(r2),as.double(r3),as.double(r4),as.double(r5),as.double(r6),as.double(r7)))
average_op[i]<-round(mean(c(as.double(op1),as.double(op2),as.double(op3),as.double(op4),
as.double(op5),as.double(op6),as.double(op7)),na.rm=TRUE),0)
}Writing the final csv
This section created and writes the final csv in the form wanted, as shown in the output of the final_df.
tournament_data$avg_op <- average_op
final_df <- tournament_data %>% select(Player, state,Total,pre,avg_op)
final_df## Player state Total pre avg_op
## 1 GARY HUA ON 6.0 1794 1605
## 2 DAKSHESH DARURI MI 6.0 1553 1469
## 3 ADITYA BAJAJ MI 6.0 1384 1564
## 4 PATRICK H SCHILLING MI 5.5 1716 1574
## 5 HANSHI ZUO MI 5.5 1655 1501
## 6 HANSEN SONG OH 5.0 1686 1519
## 7 GARY DEE SWATHELL MI 5.0 1649 1372
## 8 EZEKIEL HOUGHTON MI 5.0 1641 1468
## 9 STEFANO LEE ON 5.0 1411 1523
## 10 ANVIT RAO MI 5.0 1365 1554
## 11 CAMERON WILLIAM MC LEMAN MI 4.5 1712 1468
## 12 KENNETH J TACK MI 4.5 1663 1506
## 13 TORRANCE HENRY JR MI 4.5 1666 1498
## 14 BRADLEY SHAW MI 4.5 1610 1515
## 15 ZACHARY JAMES HOUGHTON MI 4.5 1220 1484
## 16 MIKE NIKITIN MI 4.0 1604 1386
## 17 RONALD GRZEGORCZYK MI 4.0 1629 1499
## 18 DAVID SUNDEEN MI 4.0 1600 1480
## 19 DIPANKAR ROY MI 4.0 1564 1426
## 20 JASON ZHENG MI 4.0 1595 1411
## 21 DINH DANG BUI ON 4.0 1563 1470
## 22 EUGENE L MCCLURE MI 4.0 1555 1300
## 23 ALAN BUI ON 4.0 1363 1214
## 24 MICHAEL R ALDRICH MI 4.0 1229 1357
## 25 LOREN SCHWIEBERT MI 3.5 1745 1363
## 26 MAX ZHU ON 3.5 1579 1507
## 27 GAURAV GIDWANI MI 3.5 1552 1222
## 28 SOFIA ADINA STANESCUBELLU MI 3.5 1507 1522
## 29 CHIEDOZIE OKORIE MI 3.5 1602 1314
## 30 GEORGE AVERY JONES ON 3.5 1522 1144
## 31 RISHI SHETTY MI 3.5 1494 1260
## 32 JOSHUA PHILIP MATHEWS ON 3.5 1441 1379
## 33 JADE GE MI 3.5 1449 1277
## 34 MICHAEL JEFFERY THOMAS MI 3.5 1399 1375
## 35 JOSHUA DAVID LEE MI 3.5 1438 1150
## 36 SIDDHARTH JHA MI 3.5 1355 1388
## 37 AMIYATOSH PWNANANDAM MI 3.5 980 1385
## 38 BRIAN LIU MI 3.0 1423 1539
## 39 JOEL R HENDON MI 3.0 1436 1430
## 40 FOREST ZHANG MI 3.0 1348 1391
## 41 KYLE WILLIAM MURPHY MI 3.0 1403 1248
## 42 JARED GE MI 3.0 1332 1150
## 43 ROBERT GLEN VASEY MI 3.0 1283 1107
## 44 JUSTIN D SCHILLING MI 3.0 1199 1327
## 45 DEREK YAN MI 3.0 1242 1152
## 46 JACOB ALEXANDER LAVALLEY MI 3.0 377 1358
## 47 ERIC WRIGHT MI 2.5 1362 1392
## 48 DANIEL KHAIN MI 2.5 1382 1356
## 49 MICHAEL J MARTIN MI 2.5 1291 1286
## 50 SHIVAM JHA MI 2.5 1056 1296
## 51 TEJAS AYYAGARI MI 2.5 1011 1356
## 52 ETHAN GUO MI 2.5 935 1495
## 53 JOSE C YBARRA MI 2.0 1393 1345
## 54 LARRY HODGE MI 2.0 1270 1206
## 55 ALEX KONG MI 2.0 1186 1406
## 56 MARISA RICCI MI 2.0 1153 1414
## 57 MICHAEL LU MI 2.0 1092 1363
## 58 VIRAJ MOHILE MI 2.0 917 1391
## 59 SEAN M MC CORMICK MI 2.0 853 1319
## 60 JULIA SHEN MI 1.5 967 1330
## 61 JEZZEL FARKAS ON 1.5 955 1327
## 62 ASHWIN BALAJI MI 1.0 1530 1186
## 63 THOMAS JOSEPH HOSMER MI 1.0 1175 1350
## 64 BEN LI MI 1.0 1163 1263write.csv(final_df,'./chess_summary.csv',row.names = FALSE)ELO
I wasn’t exactly sure where(df or csv) the Elo was supposed to be put so I just printed out the results. Also, I wasn’t sure about what k value to use. From what I read different tournaments use different values. I chose a value of twenty because from reading it says the higher values such as k=40 is used for the younger players and the lower values are used for the more established professionals. So I thought twenty represented a choice based on the the top players ranking.
Using Garry Hua as an example of the difference between expected score with all wins of 1829 and the actual score of 1817. We can see that the two are only different by 12 points. So the two draws that he had did not cost him that much.
elo_if_all_W <- function(p1_rating,p2_rating){
k=20
score = 1
ex_score <- 1/(1+10^((p2_rating - p1_rating)/400))
new_rating <-p1_rating + k * (score - ex_score)
return (new_rating)
}
rounds_df <- tournament_data[8:14]
t_r <- t(rounds_df)
for(i in 1:length(tournament_data$pre)){
p1 <- tournament_data$pre[i]
ls <- as.double(p1)
for(j in 1:length(t_r[,1])){
p2 <- gsub('[A-Z]([0-9]*)','\\1',t_r[j])
p2 <- gsub(" ", "",p2, fixed = TRUE)
player_2 <- tournament_data$pre[as.double(p2)]
exp <- round(elo_if_all_W(ls,player_2),0)
print(c("Round:",j,"P1 rating:",p1,"P2 rating:",player_2,"Expected:",exp))
ls <- exp
}
}## [1] "Round:" "1" "P1 rating:" "1794" "P2 rating:"
## [6] "1436" "Expected:" "1796"
## [1] "Round:" "2" "P1 rating:" "1794" "P2 rating:"
## [6] "1563" "Expected:" "1800"
## [1] "Round:" "3" "P1 rating:" "1794" "P2 rating:"
## [6] "1600" "Expected:" "1805"
## [1] "Round:" "4" "P1 rating:" "1794" "P2 rating:"
## [6] "1610" "Expected:" "1810"
## [1] "Round:" "5" "P1 rating:" "1794" "P2 rating:"
## [6] "1649" "Expected:" "1816"
## [1] "Round:" "6" "P1 rating:" "1794" "P2 rating:"
## [6] "1663" "Expected:" "1822"
## [1] "Round:" "7" "P1 rating:" "1794" "P2 rating:"
## [6] "1716" "Expected:" "1829"
## [1] "Round:" "1" "P1 rating:" "1553" "P2 rating:"
## [6] "1436" "Expected:" "1560"
## [1] "Round:" "2" "P1 rating:" "1553" "P2 rating:"
## [6] "1563" "Expected:" "1570"
## [1] "Round:" "3" "P1 rating:" "1553" "P2 rating:"
## [6] "1600" "Expected:" "1581"
## [1] "Round:" "4" "P1 rating:" "1553" "P2 rating:"
## [6] "1610" "Expected:" "1592"
## [1] "Round:" "5" "P1 rating:" "1553" "P2 rating:"
## [6] "1649" "Expected:" "1604"
## [1] "Round:" "6" "P1 rating:" "1553" "P2 rating:"
## [6] "1663" "Expected:" "1616"
## [1] "Round:" "7" "P1 rating:" "1553" "P2 rating:"
## [6] "1716" "Expected:" "1629"
## [1] "Round:" "1" "P1 rating:" "1384" "P2 rating:"
## [6] "1436" "Expected:" "1395"
## [1] "Round:" "2" "P1 rating:" "1384" "P2 rating:"
## [6] "1563" "Expected:" "1409"
## [1] "Round:" "3" "P1 rating:" "1384" "P2 rating:"
## [6] "1600" "Expected:" "1424"
## [1] "Round:" "4" "P1 rating:" "1384" "P2 rating:"
## [6] "1610" "Expected:" "1439"
## [1] "Round:" "5" "P1 rating:" "1384" "P2 rating:"
## [6] "1649" "Expected:" "1454"
## [1] "Round:" "6" "P1 rating:" "1384" "P2 rating:"
## [6] "1663" "Expected:" "1469"
## [1] "Round:" "7" "P1 rating:" "1384" "P2 rating:"
## [6] "1716" "Expected:" "1485"
## [1] "Round:" "1" "P1 rating:" "1716" "P2 rating:"
## [6] "1436" "Expected:" "1719"
## [1] "Round:" "2" "P1 rating:" "1716" "P2 rating:"
## [6] "1563" "Expected:" "1725"
## [1] "Round:" "3" "P1 rating:" "1716" "P2 rating:"
## [6] "1600" "Expected:" "1732"
## [1] "Round:" "4" "P1 rating:" "1716" "P2 rating:"
## [6] "1610" "Expected:" "1739"
## [1] "Round:" "5" "P1 rating:" "1716" "P2 rating:"
## [6] "1649" "Expected:" "1746"
## [1] "Round:" "6" "P1 rating:" "1716" "P2 rating:"
## [6] "1663" "Expected:" "1754"
## [1] "Round:" "7" "P1 rating:" "1716" "P2 rating:"
## [6] "1716" "Expected:" "1763"
## [1] "Round:" "1" "P1 rating:" "1655" "P2 rating:"
## [6] "1436" "Expected:" "1659"
## [1] "Round:" "2" "P1 rating:" "1655" "P2 rating:"
## [6] "1563" "Expected:" "1666"
## [1] "Round:" "3" "P1 rating:" "1655" "P2 rating:"
## [6] "1600" "Expected:" "1674"
## [1] "Round:" "4" "P1 rating:" "1655" "P2 rating:"
## [6] "1610" "Expected:" "1682"
## [1] "Round:" "5" "P1 rating:" "1655" "P2 rating:"
## [6] "1649" "Expected:" "1691"
## [1] "Round:" "6" "P1 rating:" "1655" "P2 rating:"
## [6] "1663" "Expected:" "1700"
## [1] "Round:" "7" "P1 rating:" "1655" "P2 rating:"
## [6] "1716" "Expected:" "1710"
## [1] "Round:" "1" "P1 rating:" "1686" "P2 rating:"
## [6] "1436" "Expected:" "1690"
## [1] "Round:" "2" "P1 rating:" "1686" "P2 rating:"
## [6] "1563" "Expected:" "1696"
## [1] "Round:" "3" "P1 rating:" "1686" "P2 rating:"
## [6] "1600" "Expected:" "1703"
## [1] "Round:" "4" "P1 rating:" "1686" "P2 rating:"
## [6] "1610" "Expected:" "1710"
## [1] "Round:" "5" "P1 rating:" "1686" "P2 rating:"
## [6] "1649" "Expected:" "1718"
## [1] "Round:" "6" "P1 rating:" "1686" "P2 rating:"
## [6] "1663" "Expected:" "1726"
## [1] "Round:" "7" "P1 rating:" "1686" "P2 rating:"
## [6] "1716" "Expected:" "1736"
## [1] "Round:" "1" "P1 rating:" "1649" "P2 rating:"
## [6] "1436" "Expected:" "1654"
## [1] "Round:" "2" "P1 rating:" "1649" "P2 rating:"
## [6] "1563" "Expected:" "1661"
## [1] "Round:" "3" "P1 rating:" "1649" "P2 rating:"
## [6] "1600" "Expected:" "1669"
## [1] "Round:" "4" "P1 rating:" "1649" "P2 rating:"
## [6] "1610" "Expected:" "1677"
## [1] "Round:" "5" "P1 rating:" "1649" "P2 rating:"
## [6] "1649" "Expected:" "1686"
## [1] "Round:" "6" "P1 rating:" "1649" "P2 rating:"
## [6] "1663" "Expected:" "1695"
## [1] "Round:" "7" "P1 rating:" "1649" "P2 rating:"
## [6] "1716" "Expected:" "1706"
## [1] "Round:" "1" "P1 rating:" "1641" "P2 rating:"
## [6] "1436" "Expected:" "1646"
## [1] "Round:" "2" "P1 rating:" "1641" "P2 rating:"
## [6] "1563" "Expected:" "1654"
## [1] "Round:" "3" "P1 rating:" "1641" "P2 rating:"
## [6] "1600" "Expected:" "1662"
## [1] "Round:" "4" "P1 rating:" "1641" "P2 rating:"
## [6] "1610" "Expected:" "1671"
## [1] "Round:" "5" "P1 rating:" "1641" "P2 rating:"
## [6] "1649" "Expected:" "1680"
## [1] "Round:" "6" "P1 rating:" "1641" "P2 rating:"
## [6] "1663" "Expected:" "1690"
## [1] "Round:" "7" "P1 rating:" "1641" "P2 rating:"
## [6] "1716" "Expected:" "1701"
## [1] "Round:" "1" "P1 rating:" "1411" "P2 rating:"
## [6] "1436" "Expected:" "1422"
## [1] "Round:" "2" "P1 rating:" "1411" "P2 rating:"
## [6] "1563" "Expected:" "1436"
## [1] "Round:" "3" "P1 rating:" "1411" "P2 rating:"
## [6] "1600" "Expected:" "1450"
## [1] "Round:" "4" "P1 rating:" "1411" "P2 rating:"
## [6] "1610" "Expected:" "1464"
## [1] "Round:" "5" "P1 rating:" "1411" "P2 rating:"
## [6] "1649" "Expected:" "1479"
## [1] "Round:" "6" "P1 rating:" "1411" "P2 rating:"
## [6] "1663" "Expected:" "1494"
## [1] "Round:" "7" "P1 rating:" "1411" "P2 rating:"
## [6] "1716" "Expected:" "1510"
## [1] "Round:" "1" "P1 rating:" "1365" "P2 rating:"
## [6] "1436" "Expected:" "1377"
## [1] "Round:" "2" "P1 rating:" "1365" "P2 rating:"
## [6] "1563" "Expected:" "1392"
## [1] "Round:" "3" "P1 rating:" "1365" "P2 rating:"
## [6] "1600" "Expected:" "1407"
## [1] "Round:" "4" "P1 rating:" "1365" "P2 rating:"
## [6] "1610" "Expected:" "1422"
## [1] "Round:" "5" "P1 rating:" "1365" "P2 rating:"
## [6] "1649" "Expected:" "1438"
## [1] "Round:" "6" "P1 rating:" "1365" "P2 rating:"
## [6] "1663" "Expected:" "1454"
## [1] "Round:" "7" "P1 rating:" "1365" "P2 rating:"
## [6] "1716" "Expected:" "1470"
## [1] "Round:" "1" "P1 rating:" "1712" "P2 rating:"
## [6] "1436" "Expected:" "1715"
## [1] "Round:" "2" "P1 rating:" "1712" "P2 rating:"
## [6] "1563" "Expected:" "1721"
## [1] "Round:" "3" "P1 rating:" "1712" "P2 rating:"
## [6] "1600" "Expected:" "1728"
## [1] "Round:" "4" "P1 rating:" "1712" "P2 rating:"
## [6] "1610" "Expected:" "1735"
## [1] "Round:" "5" "P1 rating:" "1712" "P2 rating:"
## [6] "1649" "Expected:" "1743"
## [1] "Round:" "6" "P1 rating:" "1712" "P2 rating:"
## [6] "1663" "Expected:" "1751"
## [1] "Round:" "7" "P1 rating:" "1712" "P2 rating:"
## [6] "1716" "Expected:" "1760"
## [1] "Round:" "1" "P1 rating:" "1663" "P2 rating:"
## [6] "1436" "Expected:" "1667"
## [1] "Round:" "2" "P1 rating:" "1663" "P2 rating:"
## [6] "1563" "Expected:" "1674"
## [1] "Round:" "3" "P1 rating:" "1663" "P2 rating:"
## [6] "1600" "Expected:" "1682"
## [1] "Round:" "4" "P1 rating:" "1663" "P2 rating:"
## [6] "1610" "Expected:" "1690"
## [1] "Round:" "5" "P1 rating:" "1663" "P2 rating:"
## [6] "1649" "Expected:" "1699"
## [1] "Round:" "6" "P1 rating:" "1663" "P2 rating:"
## [6] "1663" "Expected:" "1708"
## [1] "Round:" "7" "P1 rating:" "1663" "P2 rating:"
## [6] "1716" "Expected:" "1718"
## [1] "Round:" "1" "P1 rating:" "1666" "P2 rating:"
## [6] "1436" "Expected:" "1670"
## [1] "Round:" "2" "P1 rating:" "1666" "P2 rating:"
## [6] "1563" "Expected:" "1677"
## [1] "Round:" "3" "P1 rating:" "1666" "P2 rating:"
## [6] "1600" "Expected:" "1685"
## [1] "Round:" "4" "P1 rating:" "1666" "P2 rating:"
## [6] "1610" "Expected:" "1693"
## [1] "Round:" "5" "P1 rating:" "1666" "P2 rating:"
## [6] "1649" "Expected:" "1702"
## [1] "Round:" "6" "P1 rating:" "1666" "P2 rating:"
## [6] "1663" "Expected:" "1711"
## [1] "Round:" "7" "P1 rating:" "1666" "P2 rating:"
## [6] "1716" "Expected:" "1721"
## [1] "Round:" "1" "P1 rating:" "1610" "P2 rating:"
## [6] "1436" "Expected:" "1615"
## [1] "Round:" "2" "P1 rating:" "1610" "P2 rating:"
## [6] "1563" "Expected:" "1624"
## [1] "Round:" "3" "P1 rating:" "1610" "P2 rating:"
## [6] "1600" "Expected:" "1633"
## [1] "Round:" "4" "P1 rating:" "1610" "P2 rating:"
## [6] "1610" "Expected:" "1642"
## [1] "Round:" "5" "P1 rating:" "1610" "P2 rating:"
## [6] "1649" "Expected:" "1652"
## [1] "Round:" "6" "P1 rating:" "1610" "P2 rating:"
## [6] "1663" "Expected:" "1662"
## [1] "Round:" "7" "P1 rating:" "1610" "P2 rating:"
## [6] "1716" "Expected:" "1674"
## [1] "Round:" "1" "P1 rating:" "1220" "P2 rating:"
## [6] "1436" "Expected:" "1236"
## [1] "Round:" "2" "P1 rating:" "1220" "P2 rating:"
## [6] "1563" "Expected:" "1253"
## [1] "Round:" "3" "P1 rating:" "1220" "P2 rating:"
## [6] "1600" "Expected:" "1271"
## [1] "Round:" "4" "P1 rating:" "1220" "P2 rating:"
## [6] "1610" "Expected:" "1289"
## [1] "Round:" "5" "P1 rating:" "1220" "P2 rating:"
## [6] "1649" "Expected:" "1307"
## [1] "Round:" "6" "P1 rating:" "1220" "P2 rating:"
## [6] "1663" "Expected:" "1325"
## [1] "Round:" "7" "P1 rating:" "1220" "P2 rating:"
## [6] "1716" "Expected:" "1343"
## [1] "Round:" "1" "P1 rating:" "1604" "P2 rating:"
## [6] "1436" "Expected:" "1610"
## [1] "Round:" "2" "P1 rating:" "1604" "P2 rating:"
## [6] "1563" "Expected:" "1619"
## [1] "Round:" "3" "P1 rating:" "1604" "P2 rating:"
## [6] "1600" "Expected:" "1628"
## [1] "Round:" "4" "P1 rating:" "1604" "P2 rating:"
## [6] "1610" "Expected:" "1637"
## [1] "Round:" "5" "P1 rating:" "1604" "P2 rating:"
## [6] "1649" "Expected:" "1647"
## [1] "Round:" "6" "P1 rating:" "1604" "P2 rating:"
## [6] "1663" "Expected:" "1657"
## [1] "Round:" "7" "P1 rating:" "1604" "P2 rating:"
## [6] "1716" "Expected:" "1669"
## [1] "Round:" "1" "P1 rating:" "1629" "P2 rating:"
## [6] "1436" "Expected:" "1634"
## [1] "Round:" "2" "P1 rating:" "1629" "P2 rating:"
## [6] "1563" "Expected:" "1642"
## [1] "Round:" "3" "P1 rating:" "1629" "P2 rating:"
## [6] "1600" "Expected:" "1651"
## [1] "Round:" "4" "P1 rating:" "1629" "P2 rating:"
## [6] "1610" "Expected:" "1660"
## [1] "Round:" "5" "P1 rating:" "1629" "P2 rating:"
## [6] "1649" "Expected:" "1670"
## [1] "Round:" "6" "P1 rating:" "1629" "P2 rating:"
## [6] "1663" "Expected:" "1680"
## [1] "Round:" "7" "P1 rating:" "1629" "P2 rating:"
## [6] "1716" "Expected:" "1691"
## [1] "Round:" "1" "P1 rating:" "1600" "P2 rating:"
## [6] "1436" "Expected:" "1606"
## [1] "Round:" "2" "P1 rating:" "1600" "P2 rating:"
## [6] "1563" "Expected:" "1615"
## [1] "Round:" "3" "P1 rating:" "1600" "P2 rating:"
## [6] "1600" "Expected:" "1625"
## [1] "Round:" "4" "P1 rating:" "1600" "P2 rating:"
## [6] "1610" "Expected:" "1635"
## [1] "Round:" "5" "P1 rating:" "1600" "P2 rating:"
## [6] "1649" "Expected:" "1645"
## [1] "Round:" "6" "P1 rating:" "1600" "P2 rating:"
## [6] "1663" "Expected:" "1656"
## [1] "Round:" "7" "P1 rating:" "1600" "P2 rating:"
## [6] "1716" "Expected:" "1668"
## [1] "Round:" "1" "P1 rating:" "1564" "P2 rating:"
## [6] "1436" "Expected:" "1570"
## [1] "Round:" "2" "P1 rating:" "1564" "P2 rating:"
## [6] "1563" "Expected:" "1580"
## [1] "Round:" "3" "P1 rating:" "1564" "P2 rating:"
## [6] "1600" "Expected:" "1591"
## [1] "Round:" "4" "P1 rating:" "1564" "P2 rating:"
## [6] "1610" "Expected:" "1602"
## [1] "Round:" "5" "P1 rating:" "1564" "P2 rating:"
## [6] "1649" "Expected:" "1613"
## [1] "Round:" "6" "P1 rating:" "1564" "P2 rating:"
## [6] "1663" "Expected:" "1624"
## [1] "Round:" "7" "P1 rating:" "1564" "P2 rating:"
## [6] "1716" "Expected:" "1637"
## [1] "Round:" "1" "P1 rating:" "1595" "P2 rating:"
## [6] "1436" "Expected:" "1601"
## [1] "Round:" "2" "P1 rating:" "1595" "P2 rating:"
## [6] "1563" "Expected:" "1610"
## [1] "Round:" "3" "P1 rating:" "1595" "P2 rating:"
## [6] "1600" "Expected:" "1620"
## [1] "Round:" "4" "P1 rating:" "1595" "P2 rating:"
## [6] "1610" "Expected:" "1630"
## [1] "Round:" "5" "P1 rating:" "1595" "P2 rating:"
## [6] "1649" "Expected:" "1641"
## [1] "Round:" "6" "P1 rating:" "1595" "P2 rating:"
## [6] "1663" "Expected:" "1652"
## [1] "Round:" "7" "P1 rating:" "1595" "P2 rating:"
## [6] "1716" "Expected:" "1664"
## [1] "Round:" "1" "P1 rating:" "1563" "P2 rating:"
## [6] "1436" "Expected:" "1569"
## [1] "Round:" "2" "P1 rating:" "1563" "P2 rating:"
## [6] "1563" "Expected:" "1579"
## [1] "Round:" "3" "P1 rating:" "1563" "P2 rating:"
## [6] "1600" "Expected:" "1590"
## [1] "Round:" "4" "P1 rating:" "1563" "P2 rating:"
## [6] "1610" "Expected:" "1601"
## [1] "Round:" "5" "P1 rating:" "1563" "P2 rating:"
## [6] "1649" "Expected:" "1612"
## [1] "Round:" "6" "P1 rating:" "1563" "P2 rating:"
## [6] "1663" "Expected:" "1623"
## [1] "Round:" "7" "P1 rating:" "1563" "P2 rating:"
## [6] "1716" "Expected:" "1636"
## [1] "Round:" "1" "P1 rating:" "1555" "P2 rating:"
## [6] "1436" "Expected:" "1562"
## [1] "Round:" "2" "P1 rating:" "1555" "P2 rating:"
## [6] "1563" "Expected:" "1572"
## [1] "Round:" "3" "P1 rating:" "1555" "P2 rating:"
## [6] "1600" "Expected:" "1583"
## [1] "Round:" "4" "P1 rating:" "1555" "P2 rating:"
## [6] "1610" "Expected:" "1594"
## [1] "Round:" "5" "P1 rating:" "1555" "P2 rating:"
## [6] "1649" "Expected:" "1606"
## [1] "Round:" "6" "P1 rating:" "1555" "P2 rating:"
## [6] "1663" "Expected:" "1618"
## [1] "Round:" "7" "P1 rating:" "1555" "P2 rating:"
## [6] "1716" "Expected:" "1631"
## [1] "Round:" "1" "P1 rating:" "1363" "P2 rating:"
## [6] "1436" "Expected:" "1375"
## [1] "Round:" "2" "P1 rating:" "1363" "P2 rating:"
## [6] "1563" "Expected:" "1390"
## [1] "Round:" "3" "P1 rating:" "1363" "P2 rating:"
## [6] "1600" "Expected:" "1405"
## [1] "Round:" "4" "P1 rating:" "1363" "P2 rating:"
## [6] "1610" "Expected:" "1420"
## [1] "Round:" "5" "P1 rating:" "1363" "P2 rating:"
## [6] "1649" "Expected:" "1436"
## [1] "Round:" "6" "P1 rating:" "1363" "P2 rating:"
## [6] "1663" "Expected:" "1452"
## [1] "Round:" "7" "P1 rating:" "1363" "P2 rating:"
## [6] "1716" "Expected:" "1468"
## [1] "Round:" "1" "P1 rating:" "1229" "P2 rating:"
## [6] "1436" "Expected:" "1244"
## [1] "Round:" "2" "P1 rating:" "1229" "P2 rating:"
## [6] "1563" "Expected:" "1261"
## [1] "Round:" "3" "P1 rating:" "1229" "P2 rating:"
## [6] "1600" "Expected:" "1279"
## [1] "Round:" "4" "P1 rating:" "1229" "P2 rating:"
## [6] "1610" "Expected:" "1296"
## [1] "Round:" "5" "P1 rating:" "1229" "P2 rating:"
## [6] "1649" "Expected:" "1314"
## [1] "Round:" "6" "P1 rating:" "1229" "P2 rating:"
## [6] "1663" "Expected:" "1332"
## [1] "Round:" "7" "P1 rating:" "1229" "P2 rating:"
## [6] "1716" "Expected:" "1350"
## [1] "Round:" "1" "P1 rating:" "1745" "P2 rating:"
## [6] "1436" "Expected:" "1748"
## [1] "Round:" "2" "P1 rating:" "1745" "P2 rating:"
## [6] "1563" "Expected:" "1753"
## [1] "Round:" "3" "P1 rating:" "1745" "P2 rating:"
## [6] "1600" "Expected:" "1759"
## [1] "Round:" "4" "P1 rating:" "1745" "P2 rating:"
## [6] "1610" "Expected:" "1765"
## [1] "Round:" "5" "P1 rating:" "1745" "P2 rating:"
## [6] "1649" "Expected:" "1772"
## [1] "Round:" "6" "P1 rating:" "1745" "P2 rating:"
## [6] "1663" "Expected:" "1779"
## [1] "Round:" "7" "P1 rating:" "1745" "P2 rating:"
## [6] "1716" "Expected:" "1787"
## [1] "Round:" "1" "P1 rating:" "1579" "P2 rating:"
## [6] "1436" "Expected:" "1585"
## [1] "Round:" "2" "P1 rating:" "1579" "P2 rating:"
## [6] "1563" "Expected:" "1594"
## [1] "Round:" "3" "P1 rating:" "1579" "P2 rating:"
## [6] "1600" "Expected:" "1604"
## [1] "Round:" "4" "P1 rating:" "1579" "P2 rating:"
## [6] "1610" "Expected:" "1614"
## [1] "Round:" "5" "P1 rating:" "1579" "P2 rating:"
## [6] "1649" "Expected:" "1625"
## [1] "Round:" "6" "P1 rating:" "1579" "P2 rating:"
## [6] "1663" "Expected:" "1636"
## [1] "Round:" "7" "P1 rating:" "1579" "P2 rating:"
## [6] "1716" "Expected:" "1648"
## [1] "Round:" "1" "P1 rating:" "1552" "P2 rating:"
## [6] "1436" "Expected:" "1559"
## [1] "Round:" "2" "P1 rating:" "1552" "P2 rating:"
## [6] "1563" "Expected:" "1569"
## [1] "Round:" "3" "P1 rating:" "1552" "P2 rating:"
## [6] "1600" "Expected:" "1580"
## [1] "Round:" "4" "P1 rating:" "1552" "P2 rating:"
## [6] "1610" "Expected:" "1591"
## [1] "Round:" "5" "P1 rating:" "1552" "P2 rating:"
## [6] "1649" "Expected:" "1603"
## [1] "Round:" "6" "P1 rating:" "1552" "P2 rating:"
## [6] "1663" "Expected:" "1615"
## [1] "Round:" "7" "P1 rating:" "1552" "P2 rating:"
## [6] "1716" "Expected:" "1628"
## [1] "Round:" "1" "P1 rating:" "1507" "P2 rating:"
## [6] "1436" "Expected:" "1515"
## [1] "Round:" "2" "P1 rating:" "1507" "P2 rating:"
## [6] "1563" "Expected:" "1526"
## [1] "Round:" "3" "P1 rating:" "1507" "P2 rating:"
## [6] "1600" "Expected:" "1538"
## [1] "Round:" "4" "P1 rating:" "1507" "P2 rating:"
## [6] "1610" "Expected:" "1550"
## [1] "Round:" "5" "P1 rating:" "1507" "P2 rating:"
## [6] "1649" "Expected:" "1563"
## [1] "Round:" "6" "P1 rating:" "1507" "P2 rating:"
## [6] "1663" "Expected:" "1576"
## [1] "Round:" "7" "P1 rating:" "1507" "P2 rating:"
## [6] "1716" "Expected:" "1590"
## [1] "Round:" "1" "P1 rating:" "1602" "P2 rating:"
## [6] "1436" "Expected:" "1608"
## [1] "Round:" "2" "P1 rating:" "1602" "P2 rating:"
## [6] "1563" "Expected:" "1617"
## [1] "Round:" "3" "P1 rating:" "1602" "P2 rating:"
## [6] "1600" "Expected:" "1627"
## [1] "Round:" "4" "P1 rating:" "1602" "P2 rating:"
## [6] "1610" "Expected:" "1637"
## [1] "Round:" "5" "P1 rating:" "1602" "P2 rating:"
## [6] "1649" "Expected:" "1647"
## [1] "Round:" "6" "P1 rating:" "1602" "P2 rating:"
## [6] "1663" "Expected:" "1657"
## [1] "Round:" "7" "P1 rating:" "1602" "P2 rating:"
## [6] "1716" "Expected:" "1669"
## [1] "Round:" "1" "P1 rating:" "1522" "P2 rating:"
## [6] "1436" "Expected:" "1530"
## [1] "Round:" "2" "P1 rating:" "1522" "P2 rating:"
## [6] "1563" "Expected:" "1541"
## [1] "Round:" "3" "P1 rating:" "1522" "P2 rating:"
## [6] "1600" "Expected:" "1553"
## [1] "Round:" "4" "P1 rating:" "1522" "P2 rating:"
## [6] "1610" "Expected:" "1565"
## [1] "Round:" "5" "P1 rating:" "1522" "P2 rating:"
## [6] "1649" "Expected:" "1577"
## [1] "Round:" "6" "P1 rating:" "1522" "P2 rating:"
## [6] "1663" "Expected:" "1589"
## [1] "Round:" "7" "P1 rating:" "1522" "P2 rating:"
## [6] "1716" "Expected:" "1603"
## [1] "Round:" "1" "P1 rating:" "1494" "P2 rating:"
## [6] "1436" "Expected:" "1502"
## [1] "Round:" "2" "P1 rating:" "1494" "P2 rating:"
## [6] "1563" "Expected:" "1514"
## [1] "Round:" "3" "P1 rating:" "1494" "P2 rating:"
## [6] "1600" "Expected:" "1526"
## [1] "Round:" "4" "P1 rating:" "1494" "P2 rating:"
## [6] "1610" "Expected:" "1538"
## [1] "Round:" "5" "P1 rating:" "1494" "P2 rating:"
## [6] "1649" "Expected:" "1551"
## [1] "Round:" "6" "P1 rating:" "1494" "P2 rating:"
## [6] "1663" "Expected:" "1564"
## [1] "Round:" "7" "P1 rating:" "1494" "P2 rating:"
## [6] "1716" "Expected:" "1578"
## [1] "Round:" "1" "P1 rating:" "1441" "P2 rating:"
## [6] "1436" "Expected:" "1451"
## [1] "Round:" "2" "P1 rating:" "1441" "P2 rating:"
## [6] "1563" "Expected:" "1464"
## [1] "Round:" "3" "P1 rating:" "1441" "P2 rating:"
## [6] "1600" "Expected:" "1478"
## [1] "Round:" "4" "P1 rating:" "1441" "P2 rating:"
## [6] "1610" "Expected:" "1492"
## [1] "Round:" "5" "P1 rating:" "1441" "P2 rating:"
## [6] "1649" "Expected:" "1506"
## [1] "Round:" "6" "P1 rating:" "1441" "P2 rating:"
## [6] "1663" "Expected:" "1520"
## [1] "Round:" "7" "P1 rating:" "1441" "P2 rating:"
## [6] "1716" "Expected:" "1535"
## [1] "Round:" "1" "P1 rating:" "1449" "P2 rating:"
## [6] "1436" "Expected:" "1459"
## [1] "Round:" "2" "P1 rating:" "1449" "P2 rating:"
## [6] "1563" "Expected:" "1472"
## [1] "Round:" "3" "P1 rating:" "1449" "P2 rating:"
## [6] "1600" "Expected:" "1486"
## [1] "Round:" "4" "P1 rating:" "1449" "P2 rating:"
## [6] "1610" "Expected:" "1499"
## [1] "Round:" "5" "P1 rating:" "1449" "P2 rating:"
## [6] "1649" "Expected:" "1513"
## [1] "Round:" "6" "P1 rating:" "1449" "P2 rating:"
## [6] "1663" "Expected:" "1527"
## [1] "Round:" "7" "P1 rating:" "1449" "P2 rating:"
## [6] "1716" "Expected:" "1542"
## [1] "Round:" "1" "P1 rating:" "1399" "P2 rating:"
## [6] "1436" "Expected:" "1410"
## [1] "Round:" "2" "P1 rating:" "1399" "P2 rating:"
## [6] "1563" "Expected:" "1424"
## [1] "Round:" "3" "P1 rating:" "1399" "P2 rating:"
## [6] "1600" "Expected:" "1439"
## [1] "Round:" "4" "P1 rating:" "1399" "P2 rating:"
## [6] "1610" "Expected:" "1454"
## [1] "Round:" "5" "P1 rating:" "1399" "P2 rating:"
## [6] "1649" "Expected:" "1469"
## [1] "Round:" "6" "P1 rating:" "1399" "P2 rating:"
## [6] "1663" "Expected:" "1484"
## [1] "Round:" "7" "P1 rating:" "1399" "P2 rating:"
## [6] "1716" "Expected:" "1500"
## [1] "Round:" "1" "P1 rating:" "1438" "P2 rating:"
## [6] "1436" "Expected:" "1448"
## [1] "Round:" "2" "P1 rating:" "1438" "P2 rating:"
## [6] "1563" "Expected:" "1461"
## [1] "Round:" "3" "P1 rating:" "1438" "P2 rating:"
## [6] "1600" "Expected:" "1475"
## [1] "Round:" "4" "P1 rating:" "1438" "P2 rating:"
## [6] "1610" "Expected:" "1489"
## [1] "Round:" "5" "P1 rating:" "1438" "P2 rating:"
## [6] "1649" "Expected:" "1503"
## [1] "Round:" "6" "P1 rating:" "1438" "P2 rating:"
## [6] "1663" "Expected:" "1517"
## [1] "Round:" "7" "P1 rating:" "1438" "P2 rating:"
## [6] "1716" "Expected:" "1532"
## [1] "Round:" "1" "P1 rating:" "1355" "P2 rating:"
## [6] "1436" "Expected:" "1367"
## [1] "Round:" "2" "P1 rating:" "1355" "P2 rating:"
## [6] "1563" "Expected:" "1382"
## [1] "Round:" "3" "P1 rating:" "1355" "P2 rating:"
## [6] "1600" "Expected:" "1398"
## [1] "Round:" "4" "P1 rating:" "1355" "P2 rating:"
## [6] "1610" "Expected:" "1413"
## [1] "Round:" "5" "P1 rating:" "1355" "P2 rating:"
## [6] "1649" "Expected:" "1429"
## [1] "Round:" "6" "P1 rating:" "1355" "P2 rating:"
## [6] "1663" "Expected:" "1445"
## [1] "Round:" "7" "P1 rating:" "1355" "P2 rating:"
## [6] "1716" "Expected:" "1462"
## [1] "Round:" "1" "P1 rating:" "980" "P2 rating:"
## [6] "1436" "Expected:" "999"
## [1] "Round:" "2" "P1 rating:" "980" "P2 rating:"
## [6] "1563" "Expected:" "1018"
## [1] "Round:" "3" "P1 rating:" "980" "P2 rating:"
## [6] "1600" "Expected:" "1037"
## [1] "Round:" "4" "P1 rating:" "980" "P2 rating:"
## [6] "1610" "Expected:" "1056"
## [1] "Round:" "5" "P1 rating:" "980" "P2 rating:"
## [6] "1649" "Expected:" "1075"
## [1] "Round:" "6" "P1 rating:" "980" "P2 rating:"
## [6] "1663" "Expected:" "1094"
## [1] "Round:" "7" "P1 rating:" "980" "P2 rating:"
## [6] "1716" "Expected:" "1113"
## [1] "Round:" "1" "P1 rating:" "1423" "P2 rating:"
## [6] "1436" "Expected:" "1433"
## [1] "Round:" "2" "P1 rating:" "1423" "P2 rating:"
## [6] "1563" "Expected:" "1447"
## [1] "Round:" "3" "P1 rating:" "1423" "P2 rating:"
## [6] "1600" "Expected:" "1461"
## [1] "Round:" "4" "P1 rating:" "1423" "P2 rating:"
## [6] "1610" "Expected:" "1475"
## [1] "Round:" "5" "P1 rating:" "1423" "P2 rating:"
## [6] "1649" "Expected:" "1490"
## [1] "Round:" "6" "P1 rating:" "1423" "P2 rating:"
## [6] "1663" "Expected:" "1505"
## [1] "Round:" "7" "P1 rating:" "1423" "P2 rating:"
## [6] "1716" "Expected:" "1520"
## [1] "Round:" "1" "P1 rating:" "1436" "P2 rating:"
## [6] "1436" "Expected:" "1446"
## [1] "Round:" "2" "P1 rating:" "1436" "P2 rating:"
## [6] "1563" "Expected:" "1459"
## [1] "Round:" "3" "P1 rating:" "1436" "P2 rating:"
## [6] "1600" "Expected:" "1473"
## [1] "Round:" "4" "P1 rating:" "1436" "P2 rating:"
## [6] "1610" "Expected:" "1487"
## [1] "Round:" "5" "P1 rating:" "1436" "P2 rating:"
## [6] "1649" "Expected:" "1501"
## [1] "Round:" "6" "P1 rating:" "1436" "P2 rating:"
## [6] "1663" "Expected:" "1515"
## [1] "Round:" "7" "P1 rating:" "1436" "P2 rating:"
## [6] "1716" "Expected:" "1530"
## [1] "Round:" "1" "P1 rating:" "1348" "P2 rating:"
## [6] "1436" "Expected:" "1360"
## [1] "Round:" "2" "P1 rating:" "1348" "P2 rating:"
## [6] "1563" "Expected:" "1375"
## [1] "Round:" "3" "P1 rating:" "1348" "P2 rating:"
## [6] "1600" "Expected:" "1391"
## [1] "Round:" "4" "P1 rating:" "1348" "P2 rating:"
## [6] "1610" "Expected:" "1407"
## [1] "Round:" "5" "P1 rating:" "1348" "P2 rating:"
## [6] "1649" "Expected:" "1423"
## [1] "Round:" "6" "P1 rating:" "1348" "P2 rating:"
## [6] "1663" "Expected:" "1439"
## [1] "Round:" "7" "P1 rating:" "1348" "P2 rating:"
## [6] "1716" "Expected:" "1456"
## [1] "Round:" "1" "P1 rating:" "1403" "P2 rating:"
## [6] "1436" "Expected:" "1414"
## [1] "Round:" "2" "P1 rating:" "1403" "P2 rating:"
## [6] "1563" "Expected:" "1428"
## [1] "Round:" "3" "P1 rating:" "1403" "P2 rating:"
## [6] "1600" "Expected:" "1443"
## [1] "Round:" "4" "P1 rating:" "1403" "P2 rating:"
## [6] "1610" "Expected:" "1457"
## [1] "Round:" "5" "P1 rating:" "1403" "P2 rating:"
## [6] "1649" "Expected:" "1472"
## [1] "Round:" "6" "P1 rating:" "1403" "P2 rating:"
## [6] "1663" "Expected:" "1487"
## [1] "Round:" "7" "P1 rating:" "1403" "P2 rating:"
## [6] "1716" "Expected:" "1503"
## [1] "Round:" "1" "P1 rating:" "1332" "P2 rating:"
## [6] "1436" "Expected:" "1345"
## [1] "Round:" "2" "P1 rating:" "1332" "P2 rating:"
## [6] "1563" "Expected:" "1361"
## [1] "Round:" "3" "P1 rating:" "1332" "P2 rating:"
## [6] "1600" "Expected:" "1377"
## [1] "Round:" "4" "P1 rating:" "1332" "P2 rating:"
## [6] "1610" "Expected:" "1393"
## [1] "Round:" "5" "P1 rating:" "1332" "P2 rating:"
## [6] "1649" "Expected:" "1409"
## [1] "Round:" "6" "P1 rating:" "1332" "P2 rating:"
## [6] "1663" "Expected:" "1425"
## [1] "Round:" "7" "P1 rating:" "1332" "P2 rating:"
## [6] "1716" "Expected:" "1442"
## [1] "Round:" "1" "P1 rating:" "1283" "P2 rating:"
## [6] "1436" "Expected:" "1297"
## [1] "Round:" "2" "P1 rating:" "1283" "P2 rating:"
## [6] "1563" "Expected:" "1313"
## [1] "Round:" "3" "P1 rating:" "1283" "P2 rating:"
## [6] "1600" "Expected:" "1330"
## [1] "Round:" "4" "P1 rating:" "1283" "P2 rating:"
## [6] "1610" "Expected:" "1347"
## [1] "Round:" "5" "P1 rating:" "1283" "P2 rating:"
## [6] "1649" "Expected:" "1364"
## [1] "Round:" "6" "P1 rating:" "1283" "P2 rating:"
## [6] "1663" "Expected:" "1381"
## [1] "Round:" "7" "P1 rating:" "1283" "P2 rating:"
## [6] "1716" "Expected:" "1398"
## [1] "Round:" "1" "P1 rating:" "1199" "P2 rating:"
## [6] "1436" "Expected:" "1215"
## [1] "Round:" "2" "P1 rating:" "1199" "P2 rating:"
## [6] "1563" "Expected:" "1233"
## [1] "Round:" "3" "P1 rating:" "1199" "P2 rating:"
## [6] "1600" "Expected:" "1251"
## [1] "Round:" "4" "P1 rating:" "1199" "P2 rating:"
## [6] "1610" "Expected:" "1269"
## [1] "Round:" "5" "P1 rating:" "1199" "P2 rating:"
## [6] "1649" "Expected:" "1287"
## [1] "Round:" "6" "P1 rating:" "1199" "P2 rating:"
## [6] "1663" "Expected:" "1305"
## [1] "Round:" "7" "P1 rating:" "1199" "P2 rating:"
## [6] "1716" "Expected:" "1323"
## [1] "Round:" "1" "P1 rating:" "1242" "P2 rating:"
## [6] "1436" "Expected:" "1257"
## [1] "Round:" "2" "P1 rating:" "1242" "P2 rating:"
## [6] "1563" "Expected:" "1274"
## [1] "Round:" "3" "P1 rating:" "1242" "P2 rating:"
## [6] "1600" "Expected:" "1291"
## [1] "Round:" "4" "P1 rating:" "1242" "P2 rating:"
## [6] "1610" "Expected:" "1308"
## [1] "Round:" "5" "P1 rating:" "1242" "P2 rating:"
## [6] "1649" "Expected:" "1326"
## [1] "Round:" "6" "P1 rating:" "1242" "P2 rating:"
## [6] "1663" "Expected:" "1343"
## [1] "Round:" "7" "P1 rating:" "1242" "P2 rating:"
## [6] "1716" "Expected:" "1361"
## [1] "Round:" "1" "P1 rating:" "377" "P2 rating:"
## [6] "1436" "Expected:" "397"
## [1] "Round:" "2" "P1 rating:" "377" "P2 rating:"
## [6] "1563" "Expected:" "417"
## [1] "Round:" "3" "P1 rating:" "377" "P2 rating:"
## [6] "1600" "Expected:" "437"
## [1] "Round:" "4" "P1 rating:" "377" "P2 rating:"
## [6] "1610" "Expected:" "457"
## [1] "Round:" "5" "P1 rating:" "377" "P2 rating:"
## [6] "1649" "Expected:" "477"
## [1] "Round:" "6" "P1 rating:" "377" "P2 rating:"
## [6] "1663" "Expected:" "497"
## [1] "Round:" "7" "P1 rating:" "377" "P2 rating:"
## [6] "1716" "Expected:" "517"
## [1] "Round:" "1" "P1 rating:" "1362" "P2 rating:"
## [6] "1436" "Expected:" "1374"
## [1] "Round:" "2" "P1 rating:" "1362" "P2 rating:"
## [6] "1563" "Expected:" "1389"
## [1] "Round:" "3" "P1 rating:" "1362" "P2 rating:"
## [6] "1600" "Expected:" "1404"
## [1] "Round:" "4" "P1 rating:" "1362" "P2 rating:"
## [6] "1610" "Expected:" "1419"
## [1] "Round:" "5" "P1 rating:" "1362" "P2 rating:"
## [6] "1649" "Expected:" "1435"
## [1] "Round:" "6" "P1 rating:" "1362" "P2 rating:"
## [6] "1663" "Expected:" "1451"
## [1] "Round:" "7" "P1 rating:" "1362" "P2 rating:"
## [6] "1716" "Expected:" "1467"
## [1] "Round:" "1" "P1 rating:" "1382" "P2 rating:"
## [6] "1436" "Expected:" "1394"
## [1] "Round:" "2" "P1 rating:" "1382" "P2 rating:"
## [6] "1563" "Expected:" "1409"
## [1] "Round:" "3" "P1 rating:" "1382" "P2 rating:"
## [6] "1600" "Expected:" "1424"
## [1] "Round:" "4" "P1 rating:" "1382" "P2 rating:"
## [6] "1610" "Expected:" "1439"
## [1] "Round:" "5" "P1 rating:" "1382" "P2 rating:"
## [6] "1649" "Expected:" "1454"
## [1] "Round:" "6" "P1 rating:" "1382" "P2 rating:"
## [6] "1663" "Expected:" "1469"
## [1] "Round:" "7" "P1 rating:" "1382" "P2 rating:"
## [6] "1716" "Expected:" "1485"
## [1] "Round:" "1" "P1 rating:" "1291" "P2 rating:"
## [6] "1436" "Expected:" "1305"
## [1] "Round:" "2" "P1 rating:" "1291" "P2 rating:"
## [6] "1563" "Expected:" "1321"
## [1] "Round:" "3" "P1 rating:" "1291" "P2 rating:"
## [6] "1600" "Expected:" "1338"
## [1] "Round:" "4" "P1 rating:" "1291" "P2 rating:"
## [6] "1610" "Expected:" "1355"
## [1] "Round:" "5" "P1 rating:" "1291" "P2 rating:"
## [6] "1649" "Expected:" "1372"
## [1] "Round:" "6" "P1 rating:" "1291" "P2 rating:"
## [6] "1663" "Expected:" "1389"
## [1] "Round:" "7" "P1 rating:" "1291" "P2 rating:"
## [6] "1716" "Expected:" "1406"
## [1] "Round:" "1" "P1 rating:" "1056" "P2 rating:"
## [6] "1436" "Expected:" "1074"
## [1] "Round:" "2" "P1 rating:" "1056" "P2 rating:"
## [6] "1563" "Expected:" "1093"
## [1] "Round:" "3" "P1 rating:" "1056" "P2 rating:"
## [6] "1600" "Expected:" "1112"
## [1] "Round:" "4" "P1 rating:" "1056" "P2 rating:"
## [6] "1610" "Expected:" "1131"
## [1] "Round:" "5" "P1 rating:" "1056" "P2 rating:"
## [6] "1649" "Expected:" "1150"
## [1] "Round:" "6" "P1 rating:" "1056" "P2 rating:"
## [6] "1663" "Expected:" "1169"
## [1] "Round:" "7" "P1 rating:" "1056" "P2 rating:"
## [6] "1716" "Expected:" "1188"
## [1] "Round:" "1" "P1 rating:" "1011" "P2 rating:"
## [6] "1436" "Expected:" "1029"
## [1] "Round:" "2" "P1 rating:" "1011" "P2 rating:"
## [6] "1563" "Expected:" "1048"
## [1] "Round:" "3" "P1 rating:" "1011" "P2 rating:"
## [6] "1600" "Expected:" "1067"
## [1] "Round:" "4" "P1 rating:" "1011" "P2 rating:"
## [6] "1610" "Expected:" "1086"
## [1] "Round:" "5" "P1 rating:" "1011" "P2 rating:"
## [6] "1649" "Expected:" "1105"
## [1] "Round:" "6" "P1 rating:" "1011" "P2 rating:"
## [6] "1663" "Expected:" "1124"
## [1] "Round:" "7" "P1 rating:" "1011" "P2 rating:"
## [6] "1716" "Expected:" "1143"
## [1] "Round:" "1" "P1 rating:" "935" "P2 rating:"
## [6] "1436" "Expected:" "954"
## [1] "Round:" "2" "P1 rating:" "935" "P2 rating:"
## [6] "1563" "Expected:" "973"
## [1] "Round:" "3" "P1 rating:" "935" "P2 rating:"
## [6] "1600" "Expected:" "992"
## [1] "Round:" "4" "P1 rating:" "935" "P2 rating:"
## [6] "1610" "Expected:" "1011"
## [1] "Round:" "5" "P1 rating:" "935" "P2 rating:"
## [6] "1649" "Expected:" "1031"
## [1] "Round:" "6" "P1 rating:" "935" "P2 rating:"
## [6] "1663" "Expected:" "1050"
## [1] "Round:" "7" "P1 rating:" "935" "P2 rating:"
## [6] "1716" "Expected:" "1070"
## [1] "Round:" "1" "P1 rating:" "1393" "P2 rating:"
## [6] "1436" "Expected:" "1404"
## [1] "Round:" "2" "P1 rating:" "1393" "P2 rating:"
## [6] "1563" "Expected:" "1418"
## [1] "Round:" "3" "P1 rating:" "1393" "P2 rating:"
## [6] "1600" "Expected:" "1433"
## [1] "Round:" "4" "P1 rating:" "1393" "P2 rating:"
## [6] "1610" "Expected:" "1448"
## [1] "Round:" "5" "P1 rating:" "1393" "P2 rating:"
## [6] "1649" "Expected:" "1463"
## [1] "Round:" "6" "P1 rating:" "1393" "P2 rating:"
## [6] "1663" "Expected:" "1478"
## [1] "Round:" "7" "P1 rating:" "1393" "P2 rating:"
## [6] "1716" "Expected:" "1494"
## [1] "Round:" "1" "P1 rating:" "1270" "P2 rating:"
## [6] "1436" "Expected:" "1284"
## [1] "Round:" "2" "P1 rating:" "1270" "P2 rating:"
## [6] "1563" "Expected:" "1301"
## [1] "Round:" "3" "P1 rating:" "1270" "P2 rating:"
## [6] "1600" "Expected:" "1318"
## [1] "Round:" "4" "P1 rating:" "1270" "P2 rating:"
## [6] "1610" "Expected:" "1335"
## [1] "Round:" "5" "P1 rating:" "1270" "P2 rating:"
## [6] "1649" "Expected:" "1352"
## [1] "Round:" "6" "P1 rating:" "1270" "P2 rating:"
## [6] "1663" "Expected:" "1369"
## [1] "Round:" "7" "P1 rating:" "1270" "P2 rating:"
## [6] "1716" "Expected:" "1387"
## [1] "Round:" "1" "P1 rating:" "1186" "P2 rating:"
## [6] "1436" "Expected:" "1202"
## [1] "Round:" "2" "P1 rating:" "1186" "P2 rating:"
## [6] "1563" "Expected:" "1220"
## [1] "Round:" "3" "P1 rating:" "1186" "P2 rating:"
## [6] "1600" "Expected:" "1238"
## [1] "Round:" "4" "P1 rating:" "1186" "P2 rating:"
## [6] "1610" "Expected:" "1256"
## [1] "Round:" "5" "P1 rating:" "1186" "P2 rating:"
## [6] "1649" "Expected:" "1274"
## [1] "Round:" "6" "P1 rating:" "1186" "P2 rating:"
## [6] "1663" "Expected:" "1292"
## [1] "Round:" "7" "P1 rating:" "1186" "P2 rating:"
## [6] "1716" "Expected:" "1310"
## [1] "Round:" "1" "P1 rating:" "1153" "P2 rating:"
## [6] "1436" "Expected:" "1170"
## [1] "Round:" "2" "P1 rating:" "1153" "P2 rating:"
## [6] "1563" "Expected:" "1188"
## [1] "Round:" "3" "P1 rating:" "1153" "P2 rating:"
## [6] "1600" "Expected:" "1206"
## [1] "Round:" "4" "P1 rating:" "1153" "P2 rating:"
## [6] "1610" "Expected:" "1224"
## [1] "Round:" "5" "P1 rating:" "1153" "P2 rating:"
## [6] "1649" "Expected:" "1242"
## [1] "Round:" "6" "P1 rating:" "1153" "P2 rating:"
## [6] "1663" "Expected:" "1260"
## [1] "Round:" "7" "P1 rating:" "1153" "P2 rating:"
## [6] "1716" "Expected:" "1279"
## [1] "Round:" "1" "P1 rating:" "1092" "P2 rating:"
## [6] "1436" "Expected:" "1110"
## [1] "Round:" "2" "P1 rating:" "1092" "P2 rating:"
## [6] "1563" "Expected:" "1129"
## [1] "Round:" "3" "P1 rating:" "1092" "P2 rating:"
## [6] "1600" "Expected:" "1148"
## [1] "Round:" "4" "P1 rating:" "1092" "P2 rating:"
## [6] "1610" "Expected:" "1167"
## [1] "Round:" "5" "P1 rating:" "1092" "P2 rating:"
## [6] "1649" "Expected:" "1186"
## [1] "Round:" "6" "P1 rating:" "1092" "P2 rating:"
## [6] "1663" "Expected:" "1205"
## [1] "Round:" "7" "P1 rating:" "1092" "P2 rating:"
## [6] "1716" "Expected:" "1224"
## [1] "Round:" "1" "P1 rating:" "917" "P2 rating:"
## [6] "1436" "Expected:" "936"
## [1] "Round:" "2" "P1 rating:" "917" "P2 rating:"
## [6] "1563" "Expected:" "955"
## [1] "Round:" "3" "P1 rating:" "917" "P2 rating:"
## [6] "1600" "Expected:" "975"
## [1] "Round:" "4" "P1 rating:" "917" "P2 rating:"
## [6] "1610" "Expected:" "994"
## [1] "Round:" "5" "P1 rating:" "917" "P2 rating:"
## [6] "1649" "Expected:" "1014"
## [1] "Round:" "6" "P1 rating:" "917" "P2 rating:"
## [6] "1663" "Expected:" "1034"
## [1] "Round:" "7" "P1 rating:" "917" "P2 rating:"
## [6] "1716" "Expected:" "1054"
## [1] "Round:" "1" "P1 rating:" "853" "P2 rating:"
## [6] "1436" "Expected:" "872"
## [1] "Round:" "2" "P1 rating:" "853" "P2 rating:"
## [6] "1563" "Expected:" "892"
## [1] "Round:" "3" "P1 rating:" "853" "P2 rating:"
## [6] "1600" "Expected:" "912"
## [1] "Round:" "4" "P1 rating:" "853" "P2 rating:"
## [6] "1610" "Expected:" "932"
## [1] "Round:" "5" "P1 rating:" "853" "P2 rating:"
## [6] "1649" "Expected:" "952"
## [1] "Round:" "6" "P1 rating:" "853" "P2 rating:"
## [6] "1663" "Expected:" "972"
## [1] "Round:" "7" "P1 rating:" "853" "P2 rating:"
## [6] "1716" "Expected:" "992"
## [1] "Round:" "1" "P1 rating:" "967" "P2 rating:"
## [6] "1436" "Expected:" "986"
## [1] "Round:" "2" "P1 rating:" "967" "P2 rating:"
## [6] "1563" "Expected:" "1005"
## [1] "Round:" "3" "P1 rating:" "967" "P2 rating:"
## [6] "1600" "Expected:" "1024"
## [1] "Round:" "4" "P1 rating:" "967" "P2 rating:"
## [6] "1610" "Expected:" "1043"
## [1] "Round:" "5" "P1 rating:" "967" "P2 rating:"
## [6] "1649" "Expected:" "1062"
## [1] "Round:" "6" "P1 rating:" "967" "P2 rating:"
## [6] "1663" "Expected:" "1081"
## [1] "Round:" "7" "P1 rating:" "967" "P2 rating:"
## [6] "1716" "Expected:" "1100"
## [1] "Round:" "1" "P1 rating:" "955" "P2 rating:"
## [6] "1436" "Expected:" "974"
## [1] "Round:" "2" "P1 rating:" "955" "P2 rating:"
## [6] "1563" "Expected:" "993"
## [1] "Round:" "3" "P1 rating:" "955" "P2 rating:"
## [6] "1600" "Expected:" "1012"
## [1] "Round:" "4" "P1 rating:" "955" "P2 rating:"
## [6] "1610" "Expected:" "1031"
## [1] "Round:" "5" "P1 rating:" "955" "P2 rating:"
## [6] "1649" "Expected:" "1050"
## [1] "Round:" "6" "P1 rating:" "955" "P2 rating:"
## [6] "1663" "Expected:" "1069"
## [1] "Round:" "7" "P1 rating:" "955" "P2 rating:"
## [6] "1716" "Expected:" "1089"
## [1] "Round:" "1" "P1 rating:" "1530" "P2 rating:"
## [6] "1436" "Expected:" "1537"
## [1] "Round:" "2" "P1 rating:" "1530" "P2 rating:"
## [6] "1563" "Expected:" "1548"
## [1] "Round:" "3" "P1 rating:" "1530" "P2 rating:"
## [6] "1600" "Expected:" "1559"
## [1] "Round:" "4" "P1 rating:" "1530" "P2 rating:"
## [6] "1610" "Expected:" "1570"
## [1] "Round:" "5" "P1 rating:" "1530" "P2 rating:"
## [6] "1649" "Expected:" "1582"
## [1] "Round:" "6" "P1 rating:" "1530" "P2 rating:"
## [6] "1663" "Expected:" "1594"
## [1] "Round:" "7" "P1 rating:" "1530" "P2 rating:"
## [6] "1716" "Expected:" "1607"
## [1] "Round:" "1" "P1 rating:" "1175" "P2 rating:"
## [6] "1436" "Expected:" "1191"
## [1] "Round:" "2" "P1 rating:" "1175" "P2 rating:"
## [6] "1563" "Expected:" "1209"
## [1] "Round:" "3" "P1 rating:" "1175" "P2 rating:"
## [6] "1600" "Expected:" "1227"
## [1] "Round:" "4" "P1 rating:" "1175" "P2 rating:"
## [6] "1610" "Expected:" "1245"
## [1] "Round:" "5" "P1 rating:" "1175" "P2 rating:"
## [6] "1649" "Expected:" "1263"
## [1] "Round:" "6" "P1 rating:" "1175" "P2 rating:"
## [6] "1663" "Expected:" "1281"
## [1] "Round:" "7" "P1 rating:" "1175" "P2 rating:"
## [6] "1716" "Expected:" "1299"
## [1] "Round:" "1" "P1 rating:" "1163" "P2 rating:"
## [6] "1436" "Expected:" "1180"
## [1] "Round:" "2" "P1 rating:" "1163" "P2 rating:"
## [6] "1563" "Expected:" "1198"
## [1] "Round:" "3" "P1 rating:" "1163" "P2 rating:"
## [6] "1600" "Expected:" "1216"
## [1] "Round:" "4" "P1 rating:" "1163" "P2 rating:"
## [6] "1610" "Expected:" "1234"
## [1] "Round:" "5" "P1 rating:" "1163" "P2 rating:"
## [6] "1649" "Expected:" "1252"
## [1] "Round:" "6" "P1 rating:" "1163" "P2 rating:"
## [6] "1663" "Expected:" "1270"
## [1] "Round:" "7" "P1 rating:" "1163" "P2 rating:"
## [6] "1716" "Expected:" "1289"