# Week 1
week1 <- cbind(justinWeek1,ryanWeek1,clarkWeek1,howellWeek1,
nicWeek1,josiahWeek1,erockWeek1,waldronWeek1)
week1 <- as.matrix(week1)
week1 <- t(week1)
colnames(week1) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week1) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
week1
Runs HR RBI SB OBP K W S ERA WHIP
justin 82 21 76 8 0.3677 129 4 6 4.476 1.280
ryan 56 18 53 7 0.3089 124 7 4 4.706 1.303
clark 70 15 70 10 0.3517 76 4 4 4.017 1.302
howell 62 19 61 9 0.3238 118 11 5 2.136 1.120
nic 61 13 52 6 0.3108 83 4 10 3.207 1.253
josiah 49 17 40 7 0.3166 104 6 7 3.240 1.056
erock 65 14 45 11 0.3429 96 5 10 2.234 1.034
waldron 62 16 56 7 0.3451 119 5 2 3.203 1.246
sort(week1[,1], decreasing = TRUE)
justin clark erock howell waldron nic ryan josiah
82 70 65 62 62 61 56 49
sort(week1[,2], decreasing = TRUE)
justin howell ryan josiah waldron clark erock nic
21 19 18 17 16 15 14 13
sort(week1[,3], decreasing = TRUE)
justin clark howell waldron ryan nic erock josiah
76 70 61 56 53 52 45 40
sort(week1[,4], decreasing = TRUE)
erock clark howell justin ryan josiah waldron nic
11 10 9 8 7 7 7 6
sort(week1[,5], decreasing = TRUE)
justin clark waldron erock howell josiah nic ryan
0.3677 0.3517 0.3451 0.3429 0.3238 0.3166 0.3108 0.3089
sort(week1[,6], decreasing = TRUE)
justin ryan waldron howell josiah erock nic clark
129 124 119 118 104 96 83 76
sort(week1[,7], decreasing = TRUE)
howell ryan josiah erock waldron justin clark nic
11 7 6 5 5 4 4 4
sort(week1[,8], decreasing = TRUE)
nic erock josiah justin howell ryan clark waldron
10 10 7 6 5 4 4 2
sort(week1[,9], decreasing = FALSE)
howell erock waldron nic josiah clark justin ryan
2.136 2.234 3.203 3.207 3.240 4.017 4.476 4.706
sort(week1[,10], decreasing = FALSE)
erock josiah howell waldron nic justin clark ryan
1.034 1.056 1.120 1.246 1.253 1.280 1.302 1.303
## 4 ties
justin1 <- c(7,3,0)
ryan1 <- c(3,7,0)
clark1 <- c(4,6,0)
howell1 <- c(7,2,1)
nic1 <- c(2,8,0)
josiah1 <- c(3,7,0)
erock1 <- c(6,3,1)
waldron1 <- c(5,3,2)
# Week 2
week2 <- cbind(justinWeek2,ryanWeek2,clarkWeek2,howellWeek2,
nicWeek2,josiahWeek2,erockWeek2,waldronWeek2)
week2 <- as.matrix(week2)
week2 <- t(week2)
colnames(week2) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week2) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week2
#
# sort(week2[,1], decreasing = TRUE)
# sort(week2[,2], decreasing = TRUE)
# sort(week2[,3], decreasing = TRUE)
# sort(week2[,4], decreasing = TRUE)
# sort(week2[,5], decreasing = TRUE)
# sort(week2[,6], decreasing = TRUE)
# sort(week2[,7], decreasing = TRUE)
# sort(week2[,8], decreasing = TRUE)
# sort(week2[,9], decreasing = FALSE)
# sort(week2[,10], decreasing = FALSE)
## 8 ties
justin2 <- c(5,4,1)
ryan2 <- c(6,3,1)
clark2 <- c(4,5,1)
howell2 <- c(2,8,0)
nic2 <- c(8,1,1)
josiah2 <- c(3,5,2)
erock2 <- c(5,4,1)
waldron2 <- c(3,6,1)
# Week 3
week3 <- cbind(justinWeek3,ryanWeek3,clarkWeek3,howellWeek3,
nicWeek3, josiahWeek3,erockWeek3,waldronWeek3)
week3 <- as.matrix(week3)
week3 <- t(week3)
colnames(week3) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week3) <- c("justin", "ryan", "clark","howell",
"nic", "josiah", "erock", "waldron")
# week3
#
# sort(week3[,1], decreasing = TRUE)
# sort(week3[,2], decreasing = TRUE)
# sort(week3[,3], decreasing = TRUE)
# sort(week3[,4], decreasing = TRUE)
# sort(week3[,5], decreasing = TRUE)
# sort(week3[,6], decreasing = TRUE)
# sort(week3[,7], decreasing = TRUE)
# sort(week3[,8], decreasing = TRUE)
# sort(week3[,9], decreasing = FALSE)
# sort(week3[,10], decreasing = FALSE)
# 5 ties
justin3 <- c(5,4,1)
ryan3 <- c(7,2,1)
clark3 <- c(0,10,0)
howell3 <- c(7,2,1)
nic3 <- c(6,4,0)
josiah3 <- c(5,5,0)
erock3 <- c(6,3,1)
waldron3 <- c(1,8,1)
# Week 4
week4 <- cbind(justinWeek4,ryanWeek4,clarkWeek4,howellWeek4,
nicWeek4,josiahWeek4, erockWeek4,waldronWeek4)
week4 <- as.matrix(week4)
week4 <- t(week4)
colnames(week4) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week4) <- c("justin", "ryan", "clark","howell",
"nic", "josiah","erock", "waldron")
# week4
#
# sort(week4[,1], decreasing = TRUE)
# sort(week4[,2], decreasing = TRUE)
# sort(week4[,3], decreasing = TRUE)
# sort(week4[,4], decreasing = TRUE)
# sort(week4[,5], decreasing = TRUE)
# sort(week4[,6], decreasing = TRUE)
# sort(week4[,7], decreasing = TRUE)
# sort(week4[,8], decreasing = TRUE)
# sort(week4[,9], decreasing = FALSE)
# sort(week4[,10], decreasing = FALSE)
# 2 ties
justin4 <- c(7,2,1)
ryan4 <- c(3,7,0)
clark4 <- c(6,4,0)
howell4 <- c(1,9,0)
nic4 <- c(7,3,0)
josiah4 <- c(5,5,0)
erock4 <- c(6,3,1)
waldron4 <- c(4,6,0)
# Week 5
week5 <- cbind(justinWeek5,ryanWeek5,clarkWeek5,howellWeek5,
nicWeek5, josiahWeek5,erockWeek5,waldronWeek5)
week5 <- as.matrix(week5)
week5 <- t(week5)
colnames(week5) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week5) <- c("justin", "ryan", "clark","howell",
"nic", "josiah", "erock", "waldron")
# week5
#
#
# sort(week5[,1], decreasing = TRUE)
# sort(week5[,2], decreasing = TRUE)
# sort(week5[,3], decreasing = TRUE)
# sort(week5[,4], decreasing = TRUE)
# sort(week5[,5], decreasing = TRUE)
# sort(week5[,6], decreasing = TRUE)
# sort(week5[,7], decreasing = TRUE)
# sort(week5[,8], decreasing = TRUE)
# sort(week5[,9], decreasing = FALSE)
# sort(week5[,10], decreasing = FALSE)
# 4 ties
justin5 <- c(3,7,0)
ryan5 <- c(6,4,0)
clark5 <- c(4,5,1)
howell5 <- c(6,3,1)
nic5 <- c(5,4,1)
josiah5 <- c(3,6,1)
erock5 <- c(5,5,0)
waldron5 <- c(5,5,0)
# Week 6
week6 <- cbind(justinWeek6,ryanWeek6,clarkWeek6,howellWeek6,
nicWeek6,josiahWeek6, erockWeek6,waldronWeek6)
week6 <- as.matrix(week6)
week6 <- t(week6)
colnames(week6) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week6) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week6
#
# sort(week6[,1], decreasing = TRUE)
# sort(week6[,2], decreasing = TRUE)
# sort(week6[,3], decreasing = TRUE)
# sort(week6[,4], decreasing = TRUE)
# sort(week6[,5], decreasing = TRUE)
# sort(week6[,6], decreasing = TRUE)
# sort(week6[,7], decreasing = TRUE)
# sort(week6[,8], decreasing = TRUE)
# sort(week6[,9], decreasing = FALSE)
# sort(week6[,10], decreasing = FALSE)
# 5 ties
justin6 <- c(4,6,0)
ryan6 <- c(5,4,1)
clark6 <- c(4,6,0)
howell6 <- c(7,1,2)
nic6 <- c(7,3,0)
josiah6 <- c(4,6,0)
erock6 <- c(5,4,1)
waldron6 <- c(1,8,1)
# Week 7
week7 <- cbind(justinWeek7,ryanWeek7,clarkWeek7,howellWeek7,
nicWeek7,josiahWeek7, erockWeek7,waldronWeek7)
week7 <- as.matrix(week7)
week7 <- t(week7)
colnames(week7) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week7) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week7
#
# sort(week7[,1], decreasing = TRUE)
# sort(week7[,2], decreasing = TRUE)
# sort(week7[,3], decreasing = TRUE)
# sort(week7[,4], decreasing = TRUE)
# sort(week7[,5], decreasing = TRUE)
# sort(week7[,6], decreasing = TRUE)
# sort(week7[,7], decreasing = TRUE)
# sort(week7[,8], decreasing = TRUE)
# sort(week7[,9], decreasing = FALSE)
# sort(week7[,10], decreasing = FALSE)
# 6 ties
justin7 <- c(3,6,1)
ryan7 <- c(2,8,0)
clark7 <- c(5,4,1)
howell7 <- c(2,6,2)
nic7 <- c(4,5,1)
josiah7 <- c(8,2,0)
erock7 <- c(9,1,0)
waldron7 <- c(4,5,1)
# Week 8
week8 <- cbind(justinWeek8,ryanWeek8,clarkWeek8,howellWeek8,
nicWeek8,josiahWeek8, erockWeek8,waldronWeek8)
week8 <- as.matrix(week8)
week8 <- t(week8)
colnames(week8) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week8) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week8
#
# sort(week8[,1], decreasing = TRUE)
# sort(week8[,2], decreasing = TRUE)
# sort(week8[,3], decreasing = TRUE)
# sort(week8[,4], decreasing = TRUE)
# sort(week8[,5], decreasing = TRUE)
# sort(week8[,6], decreasing = TRUE)
# sort(week8[,7], decreasing = TRUE)
# sort(week8[,8], decreasing = TRUE)
# sort(week8[,9], decreasing = FALSE)
# sort(week8[,10], decreasing = FALSE)
# 11 ties
justin8 <- c(4,4,2)
ryan8 <- c(7,1,2)
clark8 <- c(7,1,2)
howell8 <- c(7,3,0)
nic8 <- c(1,9,0)
josiah8 <- c(3,6,1)
erock8 <- c(6,2,2)
waldron8 <- c(0,8,2)
# Week 9
week9 <- cbind(justinWeek9,ryanWeek9,clarkWeek9,howellWeek9,
nicWeek9,josiahWeek9, erockWeek9,waldronWeek9)
week9 <- as.matrix(week9)
week9 <- t(week9)
colnames(week9) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week9) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week9
#
# sort(week9[,1], decreasing = TRUE)
# sort(week9[,2], decreasing = TRUE)
# sort(week9[,3], decreasing = TRUE)
# sort(week9[,4], decreasing = TRUE)
# sort(week9[,5], decreasing = TRUE)
# sort(week9[,6], decreasing = TRUE)
# sort(week9[,7], decreasing = TRUE)
# sort(week9[,8], decreasing = TRUE)
# sort(week9[,9], decreasing = FALSE)
# sort(week9[,10], decreasing = FALSE)
# 4 ties
justin9 <- c(5,5,0)
ryan9 <- c(5,5,0)
clark9 <- c(4,5,1)
howell9 <- c(6,3,1)
nic9 <- c(3,7,0)
josiah9 <- c(5,4,1)
erock9 <- c(8,2,0)
waldron9 <- c(2,7,1)
# Week 10
week10 <- cbind(justinWeek10,ryanWeek10,clarkWeek10,howellWeek10,
nicWeek10,josiahWeek10, erockWeek10,waldronWeek10)
week10 <- as.matrix(week10)
week10 <- t(week10)
colnames(week10) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week10) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week10
#
# sort(week10[,1], decreasing = TRUE)
# sort(week10[,2], decreasing = TRUE)
# sort(week10[,3], decreasing = TRUE)
# sort(week10[,4], decreasing = TRUE)
# sort(week10[,5], decreasing = TRUE)
# sort(week10[,6], decreasing = TRUE)
# sort(week10[,7], decreasing = TRUE)
# sort(week10[,8], decreasing = TRUE)
# sort(week10[,9], decreasing = FALSE)
# sort(week10[,10], decreasing = FALSE)
# 10 ties
justin10 <- c(3,4,3)
ryan10 <- c(1,8,1)
clark10 <- c(7,2,1)
howell10 <- c(5,4,1)
nic10 <- c(1,8,1)
josiah10 <- c(6,3,1)
erock10 <- c(7,2,1)
waldron10 <- c(4,5,1)
# Week 11
week11 <- cbind(justinWeek11,ryanWeek11,clarkWeek11,howellWeek11,
nicWeek11,josiahWeek11, erockWeek11,waldronWeek11)
week11 <- as.matrix(week11)
week11 <- t(week11)
colnames(week11) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week11) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week11
#
# sort(week11[,1], decreasing = TRUE)
# sort(week11[,2], decreasing = TRUE)
# sort(week11[,3], decreasing = TRUE)
# sort(week11[,4], decreasing = TRUE)
# sort(week11[,5], decreasing = TRUE)
# sort(week11[,6], decreasing = TRUE)
# sort(week11[,7], decreasing = TRUE)
# sort(week11[,8], decreasing = TRUE)
# sort(week11[,9], decreasing = FALSE)
# sort(week11[,10], decreasing = FALSE)
# 9 ties
justin11 <- c(2,6,2)
ryan11 <- c(8,2,0)
clark11 <- c(3,5,2)
howell11 <- c(5,5,0)
nic11 <- c(5,5,0)
josiah11 <- c(4,5,1)
erock11 <- c(6,3,1)
waldron11 <- c(2,5,3)
# Week 12
week12 <- cbind(justinWeek12,ryanWeek12,clarkWeek12,howellWeek12,
nicWeek12,josiahWeek12, erockWeek12,waldronWeek12)
week12 <- as.matrix(week12)
week12 <- t(week12)
colnames(week12) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week12) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week12
#
# sort(week12[,1], decreasing = TRUE)
# sort(week12[,2], decreasing = TRUE)
# sort(week12[,3], decreasing = TRUE)
# sort(week12[,4], decreasing = TRUE)
# sort(week12[,5], decreasing = TRUE)
# sort(week12[,6], decreasing = TRUE)
# sort(week12[,7], decreasing = TRUE)
# sort(week12[,8], decreasing = TRUE)
# sort(week12[,9], decreasing = FALSE)
# sort(week12[,10], decreasing = FALSE)
# 15 ties
justin12 <- c(1,7,2)
ryan12 <- c(7,2,1)
clark12 <- c(5,1,4)
howell12 <- c(7,2,1)
nic12 <- c(2,6,2)
josiah12 <- c(7,2,1)
erock12 <- c(2,6,2)
waldron12 <- c(1,7,2)
# Week 13
week13 <- cbind(justinWeek13,ryanWeek13,clarkWeek13,howellWeek13,
nicWeek13,josiahWeek13, erockWeek13,waldronWeek13)
week13 <- as.matrix(week13)
week13 <- t(week13)
colnames(week13) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week13) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week13
#
# sort(week13[,1], decreasing = TRUE)
# sort(week13[,2], decreasing = TRUE)
# sort(week13[,3], decreasing = TRUE)
# sort(week13[,4], decreasing = TRUE)
# sort(week13[,5], decreasing = TRUE)
# sort(week13[,6], decreasing = TRUE)
# sort(week13[,7], decreasing = TRUE)
# sort(week13[,8], decreasing = TRUE)
# sort(week13[,9], decreasing = FALSE)
# sort(week13[,10], decreasing = FALSE)
# 3 ties
justin13 <- c(6,4,0)
ryan13 <- c(2,7,1)
clark13 <- c(10,0,0)
howell13 <- c(7,2,1)
nic13 <- c(2,8,0)
josiah13 <- c(4,5,1)
erock13 <- c(6,4,0)
waldron13 <- c(2,8,0)
# Week 14
week14 <- cbind(justinWeek14,ryanWeek14,clarkWeek14,howellWeek14,
nicWeek14,josiahWeek14, erockWeek14,waldronWeek14)
week14 <- as.matrix(week14)
week14 <- t(week14)
colnames(week14) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week14) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week14
#
# sort(week14[,1], decreasing = TRUE)
# sort(week14[,2], decreasing = TRUE)
# sort(week14[,3], decreasing = TRUE)
# sort(week14[,4], decreasing = TRUE)
# sort(week14[,5], decreasing = TRUE)
# sort(week14[,6], decreasing = TRUE)
# sort(week14[,7], decreasing = TRUE)
# sort(week14[,8], decreasing = TRUE)
# sort(week14[,9], decreasing = FALSE)
# sort(week14[,10], decreasing = FALSE)
# 7 ties
justin14 <- c(5,4,1)
ryan14 <- c(1,9,0)
clark14 <- c(8,1,1)
howell14 <- c(3,5,2)
nic14 <- c(4,6,0)
josiah14 <- c(5,5,0)
erock14 <- c(5,3,2)
waldron14 <- c(5,4,1)
week15 <- cbind(justinWeek15,ryanWeek15,clarkWeek15,howellWeek15,
nicWeek15,josiahWeek15, erockWeek15,waldronWeek15)
week15 <- as.matrix(week15)
week15 <- t(week15)
colnames(week15) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week15) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week15
#
# sort(week15[,1], decreasing = TRUE)
# sort(week15[,2], decreasing = TRUE)
# sort(week15[,3], decreasing = TRUE)
# sort(week15[,4], decreasing = TRUE)
# sort(week15[,5], decreasing = TRUE)
# sort(week15[,6], decreasing = TRUE)
# sort(week15[,7], decreasing = TRUE)
# sort(week15[,8], decreasing = TRUE)
# sort(week15[,9], decreasing = FALSE)
# sort(week15[,10], decreasing = FALSE)
justin15 <- c(6,3,1)
ryan15 <- c(4,6,0)
clark15 <- c(6,4,0)
howell15 <- c(9,1,0)
nic15 <- c(3,6,1)
josiah15 <- c(4,6,0)
erock15 <- c(4,6,0)
waldron15 <- c(3,7,0)
week16 <- cbind(justinWeek16,ryanWeek16,clarkWeek16,howellWeek16,
nicWeek16,josiahWeek16, erockWeek16,waldronWeek16)
week16 <- as.matrix(week16)
week16 <- t(week16)
colnames(week16) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week16) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week15
# sort(week16[,1], decreasing = TRUE)
# sort(week16[,2], decreasing = TRUE)
# sort(week16[,3], decreasing = TRUE)
# sort(week16[,4], decreasing = TRUE)
# sort(week16[,5], decreasing = TRUE)
# sort(week16[,6], decreasing = TRUE)
# sort(week16[,7], decreasing = TRUE)
# sort(week16[,8], decreasing = TRUE)
# sort(week16[,9], decreasing = FALSE)
# sort(week16[,10], decreasing = FALSE)
# 11 ties
justin16 <- c(6,3,1)
ryan16 <- c(6,2,2)
clark16 <- c(4,5,1)
howell16 <- c(0,7,3)
nic16 <- c(5,5,0)
josiah16 <- c(4,4,2)
erock16 <- c(5,4,1)
waldron16 <- c(4,5,1)
week17 <- cbind(justinWeek17,ryanWeek17,clarkWeek17,howellWeek17,
nicWeek17,josiahWeek17, erockWeek17,waldronWeek17)
week17 <- as.matrix(week17)
week17 <- t(week17)
colnames(week17) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week17) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week17
# sort(week17[,1], decreasing = TRUE)
# sort(week17[,2], decreasing = TRUE)
# sort(week17[,3], decreasing = TRUE)
# sort(week17[,4], decreasing = TRUE)
# sort(week17[,5], decreasing = TRUE)
# sort(week17[,6], decreasing = TRUE)
# sort(week17[,7], decreasing = TRUE)
# sort(week17[,8], decreasing = TRUE)
# sort(week17[,9], decreasing = FALSE)
# sort(week17[,10], decreasing = FALSE)
## 7 ties
justin17 <- c(4,6,0)
ryan17 <- c(4,5,1)
clark17 <- c(5,4,1)
howell17 <- c(5,3,2)
nic17 <- c(5,4,1)
josiah17 <- c(6,3,1)
erock17 <- c(4,6,0)
waldron17 <- c(3,6,1)
week18 <- cbind(justinWeek18,ryanWeek18,clarkWeek18,howellWeek18,
nicWeek18,josiahWeek18, erockWeek18,waldronWeek18)
week18 <- as.matrix(week18)
week18 <- t(week18)
colnames(week18) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week18) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week18
# sort(week18[,1], decreasing = TRUE)
# sort(week18[,2], decreasing = TRUE)
# sort(week18[,3], decreasing = TRUE)
# sort(week18[,4], decreasing = TRUE)
# sort(week18[,5], decreasing = TRUE)
# sort(week18[,6], decreasing = TRUE)
# sort(week18[,7], decreasing = TRUE)
# sort(week18[,8], decreasing = TRUE)
# sort(week18[,9], decreasing = FALSE)
# sort(week18[,10], decreasing = FALSE)
## 8 ties
justin18 <- c(2,6,2)
ryan18 <- c(4,5,1)
clark18 <- c(7,1,2)
howell18 <- c(4,5,1)
nic18 <- c(9,1,0)
josiah18 <- c(8,0,2)
erock18 <- c(1,9,0)
waldron18 <- c(1,9,0)
week19 <- cbind(justinWeek19,ryanWeek19,clarkWeek19,howellWeek19,
nicWeek19,josiahWeek19, erockWeek19,waldronWeek19)
week19 <- as.matrix(week19)
week19 <- t(week19)
colnames(week19) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week19) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week19
# sort(week19[,1], decreasing = TRUE)
# sort(week19[,2], decreasing = TRUE)
# sort(week19[,3], decreasing = TRUE)
# sort(week19[,4], decreasing = TRUE)
# sort(week19[,5], decreasing = TRUE)
# sort(week19[,6], decreasing = TRUE)
# sort(week19[,7], decreasing = TRUE)
# sort(week19[,8], decreasing = TRUE)
# sort(week19[,9], decreasing = FALSE)
# sort(week19[,10], decreasing = FALSE)
# 12 ties
justin19 <- c(6,2,2)
ryan19 <- c(5,3,2)
clark19 <- c(0,10,0)
howell19 <- c(4,6,0)
nic19 <- c(5,3,2)
josiah19 <- c(5,2,3)
erock19 <- c(2,6,2)
waldron19 <- c(6,3,1)
week20 <- cbind(justinWeek20,ryanWeek20,clarkWeek20,howellWeek20,
nicWeek20,josiahWeek20, erockWeek20,waldronWeek20)
week20 <- as.matrix(week20)
week20 <- t(week20)
colnames(week20) <- c( "Runs","HR","RBI","SB","OBP","K","W","S","ERA","WHIP")
rownames(week20) <- c("justin", "ryan", "clark", "howell",
"nic", "josiah", "erock", "waldron")
# week19
# sort(week20[,1], decreasing = TRUE)
# sort(week20[,2], decreasing = TRUE)
# sort(week20[,3], decreasing = TRUE)
# sort(week20[,4], decreasing = TRUE)
# sort(week20[,5], decreasing = TRUE)
# sort(week20[,6], decreasing = TRUE)
# sort(week20[,7], decreasing = TRUE)
# sort(week20[,8], decreasing = TRUE)
# sort(week20[,9], decreasing = FALSE)
# sort(week20[,10], decreasing = FALSE)
justin20 <- c(7,3,0)
ryan20 <- c(3,7,0)
clark20 <- c(5,5,0)
howell20 <- c(3,7,0)
nic20 <- c(9,1,0)
josiah20 <- c(3,7,0)
erock20 <- c(7,3,0)
waldron20 <- c(3,7,0)
justin <- justin1 + justin2 + justin3 + justin4 +justin5 + justin6 +
justin7 + justin8 + justin9 + justin10 + justin11 + justin12 + justin13+ justin14 + justin15 + justin16 + justin17 + justin18 + justin19 + justin20
justin <- as.matrix(justin)
justin <- t(justin)
justinWinning <- (justin[,1] + justin[,3]*0.5)/sum(justin[1,])
justin <- c(justin)
ryan <- ryan1 + ryan2 + ryan3 + ryan4 + ryan5 + ryan6 + ryan7 + ryan8 +
ryan9 + ryan10 + ryan11 + ryan12 + ryan13 + ryan14 + ryan15 + ryan16 + ryan17 +
ryan18 + ryan19 + ryan20
ryan <- as.matrix(ryan)
ryan <- t(ryan)
ryanWinning <- (ryan[,1] + ryan[,3]*0.5)/sum(ryan[1,])
ryan <- c(ryan)
clark <- clark1 + clark2 + clark3 + clark4 + clark5 + clark6 + clark7 +
clark8 + clark9 + clark10 + clark11 + clark12 + clark13 + clark14 +
clark15 + clark16 + clark17 + clark18 + clark19 + clark20
clark <- as.matrix(clark)
clark <- t(clark)
clarkWinning <- (clark[,1] + clark[,3]*0.5)/sum(clark[1,])
clark <- c(clark)
howell <- howell1 + howell2 + howell3 + howell4 + howell5 + howell6 +
howell7 + howell8 + howell9 + howell10 + howell11 + howell12 +
howell13 + howell14 + howell15 + howell16 + howell17 + howell18 + howell19 +
howell20
howell <- as.matrix(howell)
howell <- t(howell)
howellWinning <- (howell[,1] + howell[,3]*0.5)/sum(howell[1,])
howell<- c(howell)
nic <- nic1 + nic2 + nic3 + nic4 + nic5 + nic6 +nic7 + nic8 + nic9 + nic10 +
nic11 + nic12 + nic13 + nic14+nic15+nic16+nic17 + nic18 + nic19 + nic20
nic <- as.matrix(nic)
nic <- t(nic)
nicWinning <- (nic[,1] + nic[,3]*0.5)/sum(nic[1,])
nic<- c(nic)
josiah <- josiah1 + josiah2 + josiah3 + josiah4 + josiah5 + josiah6 +
josiah7 + josiah8 + josiah9 + josiah10 + josiah11 + josiah12 + josiah13 +
josiah14 + josiah15 + josiah16 + josiah17 + josiah18 + josiah19 + josiah20
josiah <- as.matrix(josiah)
josiah <- t(josiah)
josiahWinning <- (josiah[,1] + josiah[,3]*0.5)/sum(josiah[1,])
josiah<- c(josiah)
erock <- erock1 + erock2 +erock3 +erock4 + erock5 + erock6 + erock7 +
erock8 + erock9 + erock10 + erock11 + erock12 + erock13 + erock14+
erock15 + erock16 + erock17 + erock18 + erock19 + erock20
erock <- as.matrix(erock)
erock <- t(erock)
erockWinning <- (erock[,1] + erock[,3]*0.5)/sum(erock[1,])
erock<- c(erock)
waldron <- waldron1 + waldron2 + waldron3 + waldron4 + waldron5 + waldron6+
waldron7 + waldron8 + waldron9 + waldron10 + waldron11 + waldron12 +
waldron13 + waldron14+waldron15+waldron16+waldron17 + waldron18 + waldron19 +
waldron20
waldron <- as.matrix(waldron)
waldron <- t(waldron)
waldronWinning <- (waldron[,1] + waldron[,3]*0.5)/sum(waldron[1,])
waldron<- c(waldron)
winning <- c(justinWinning,ryanWinning,clarkWinning,howellWinning,nicWinning,
josiahWinning,erockWinning,waldronWinning)
winning <- t(winning)
winning <- t(round(winning,3))
results <- cbind(justin,ryan,clark,howell,nic,josiah,erock,waldron)
results <- t(results)
results <- cbind(results,winning)
actual.Wins <- c(91,91,99,87,91,106,108,71)
results <- cbind(results,actual.Wins)
actual.Losses <- c(94,92,83,104,97,83,76,115)
results <- cbind(results, actual.Losses)
actual.Ties <- c(15,17,18,9,12,11,16,14)
results <- cbind(results,actual.Ties)
actual.percentage <- round((results[,5] + results[,7]*0.5)/sum(results[1,c(5:7)]),3)
results <- cbind(results,actual.percentage)
winning.difference <- results[,8]-results[,4]
results <- cbind(results,winning.difference)
#justinRoto <- 4 + 5 +2 + 6 + 8 + 2 + 2 + 6 + 3 + 1
#ryanRoto <- 7 + 4 + 7 + 4 + 6 + 1 + 3 + 7 + 7 + 4
#clarkRoto <- 1 + 6 + 1 + 5 + 4 + 8 + 8 + 8 + 6 + 3
#erockRoto <- 2 + 7 + 4 + 3 + 1 + 3 + 7 + 1 + 4 + 3
#josiahRoto <- 8 + 2 + 6 + 8 + 7 + 4 + 1 + 4 + 5 + 2
#howellRoto <- 5 + 1 + 3 + 7 + 3 + 5 + 4 + 3 + 1 + 6
#waldronRoto <- 6 + 8 + 8 + 2 + 2 + 6 + 6 + 5 + 8 + 8
#nicRoto <- 3 + 3 + 5 + 1 + 5 + 7 + 5 + 2 + 2 + 5
#roto = c(justinRoto,ryanRoto,clarkRoto,erockRoto,josiahRoto,
# howellRoto,waldronRoto,nicRoto)
#results = cbind(results,roto)
colnames(results) <- c("Expected Wins", "Expected Losses", "Expected Ties",
"Expected Winning %","Actual Wins",
"Actual Losses", "Actual Ties",
"Actual Winning %", "Winning % Difference")
row.names(results) <- c("Justin", "Ryan", "Clark", "Howell", "Nic",
"Josiah", "Erock", "Waldron")
Expected winning percentage gives a win if you finish in the top half of the league in that category that week and a loss for a bottom half finish. If there is a tie for 4th, a tie is awarded (there can be multiple ties).
The below table is sorted by ‘Expected Winning %’ which is what your winning percentage should be based on how you did against the field each week.
kable(results[order(results[,4], decreasing = TRUE),] ) %>%
kable_styling(bootstrap_options = c("striped")) %>%
column_spec(5, bold = T, color = "White", background = "#D7261E") %>%
row_spec(1:4, bold = T, color = "White", background = "#D7261E")
|
|
Expected Wins
|
Expected Losses
|
Expected Ties
|
Expected Winning %
|
Actual Wins
|
Actual Losses
|
Actual Ties
|
Actual Winning %
|
Winning % Difference
|
|
Erock
|
105
|
79
|
16
|
0.565
|
108
|
76
|
16
|
0.580
|
0.015
|
|
Clark
|
98
|
84
|
18
|
0.535
|
99
|
83
|
18
|
0.540
|
0.005
|
|
Howell
|
97
|
84
|
19
|
0.532
|
87
|
104
|
9
|
0.458
|
-0.074
|
|
Josiah
|
95
|
88
|
17
|
0.518
|
106
|
83
|
11
|
0.558
|
0.040
|
|
Justin
|
91
|
89
|
20
|
0.505
|
91
|
94
|
15
|
0.492
|
-0.013
|
|
Nic
|
93
|
97
|
10
|
0.490
|
91
|
97
|
12
|
0.485
|
-0.005
|
|
Ryan
|
89
|
97
|
14
|
0.480
|
91
|
92
|
17
|
0.498
|
0.018
|
|
Waldron
|
59
|
122
|
19
|
0.342
|
71
|
115
|
14
|
0.390
|
0.048
|
The below table is sorted by ‘Winning % Difference’ which is your ‘Actual Winning %’ minus your ‘Expected Winning %’.
A negative ‘Winning % Difference’ means your getting unlucky, a positive ‘Winning % Difference’ means you’re getting lucky.
(Sorted Unlucky to lucky.)
kable(results[order(results[,9], decreasing = FALSE),] ) %>%
kable_styling(bootstrap_options = c("striped")) %>%
column_spec(10, bold = T, color = "White", background = "#D7261E") %>%
row_spec(1:4, bold = T, color = "White", background = "#D7261E")
|
|
Expected Wins
|
Expected Losses
|
Expected Ties
|
Expected Winning %
|
Actual Wins
|
Actual Losses
|
Actual Ties
|
Actual Winning %
|
Winning % Difference
|
|
Howell
|
97
|
84
|
19
|
0.532
|
87
|
104
|
9
|
0.458
|
-0.074
|
|
Justin
|
91
|
89
|
20
|
0.505
|
91
|
94
|
15
|
0.492
|
-0.013
|
|
Nic
|
93
|
97
|
10
|
0.490
|
91
|
97
|
12
|
0.485
|
-0.005
|
|
Clark
|
98
|
84
|
18
|
0.535
|
99
|
83
|
18
|
0.540
|
0.005
|
|
Erock
|
105
|
79
|
16
|
0.565
|
108
|
76
|
16
|
0.580
|
0.015
|
|
Ryan
|
89
|
97
|
14
|
0.480
|
91
|
92
|
17
|
0.498
|
0.018
|
|
Josiah
|
95
|
88
|
17
|
0.518
|
106
|
83
|
11
|
0.558
|
0.040
|
|
Waldron
|
59
|
122
|
19
|
0.342
|
71
|
115
|
14
|
0.390
|
0.048
|