Hello ALL thanks for the help again I am getting an error in contrast from running my model I was wondering if anyone could tell me why
Dput:
structure(list(Game_Hour = c("4/11/2022 3:05:00 PM", "4/12/2022 7:05:00 PM",
"4/14/2022 7:05:00 PM", "4/15/2022 7:05:00 PM", "4/16/2022 6:05:00 PM",
"4/17/2022 1:35:00 PM", "4/25/2022 7:05:00 PM", "4/26/2022 7:05:00 PM",
"4/27/2022 7:05:00 PM", "4/28/2022 1:05:00 PM", "4/29/2022 7:05:00 PM",
"4/30/2022 6:05:00 PM", "5/1/2022 1:35:00 PM", "5/10/2022 7:05:00 PM",
"5/11/2022 7:05:00 PM", "5/12/2022 7:05:00 PM", "5/13/2022 7:05:00 PM",
"5/14/2022 6:05:00 PM", "5/15/2022 1:35:00 PM", "5/16/2022 7:05:00 PM",
"5/17/2022 7:05:00 PM", "5/18/2022 7:05:00 PM", "5/30/2022 7:05:00 PM",
"5/31/2022 7:05:00 PM", "6/1/2022 7:05:00 PM", "6/2/2022 1:05:00 PM",
"6/3/2022 7:05:00 PM", "6/4/2022 3:05:00 PM", "6/5/2022 1:35:00 PM",
"6/13/2022 7:05:00 PM", "6/14/2022 7:05:00 PM", "6/15/2022 1:05:00 PM",
"6/21/2022 7:05:00 PM", "6/22/2022 3:05:00 PM", "6/24/2022 7:05:00 PM",
"6/25/2022 3:05:00 PM", "6/26/2022 1:35:00 PM", "7/8/2022 7:05:00 PM",
"7/9/2022 3:05:00 PM", "7/10/2022 1:35:00 PM", "7/11/2022 7:05:00 PM",
"7/12/2022 7:05:00 PM", "7/13/2022 7:05:00 PM", "7/14/2022 7:05:00 PM",
"7/15/2022 7:05:00 PM", "7/16/2022 3:05:00 PM", "7/17/2022 1:35:00 PM",
"8/1/2022 7:05:00 PM", "8/2/2022 7:05:00 PM", "8/3/2022 1:05:00 PM",
"8/4/2022 7:05:00 PM", "8/5/2022 7:05:00 PM", "8/6/2022 6:05:00 PM",
"8/7/2022 1:35:00 PM", "8/12/2022 7:05:00 PM", "8/13/2022 6:05:00 PM",
"8/14/2022 1:35:00 PM", "8/15/2022 7:05:00 PM", "8/16/2022 7:05:00 PM",
"8/17/2022 7:05:00 PM", "8/18/2022 1:05:00 PM", "8/26/2022 7:05:00 PM",
"8/27/2022 6:05:00 PM", "8/28/2022 1:35:00 PM", "8/30/2022 7:05:00 PM",
"8/31/2022 1:05:00 PM", "9/9/2022 7:05:00 PM", "9/10/2022 6:05:00 PM",
"9/11/2022 1:35:00 PM", "9/13/2022 7:05:00 PM", "9/14/2022 7:05:00 PM",
"9/20/2022 7:05:00 PM", "9/21/2022 7:05:00 PM", "9/22/2022 1:05:00 PM",
"9/23/2022 7:05:00 PM", "9/24/2022 6:05:00 PM", "9/25/2022 1:35:00 PM",
"10/3/2022 6:05:00 PM", "10/4/2022 1:05:00 PM", "10/4/2022 7:05:00 PM",
"10/5/2022 3:05:00 PM"), Date = c("April 11, 2022", "April 12, 2022",
"April 14, 2022", "April 15, 2022", "April 16, 2022", "April 17, 2022",
"April 25, 2022", "April 26, 2022", "April 27, 2022", "April 28, 2022",
"April 29, 2022", "April 30, 2022", "May 1, 2022", "May 10, 2022",
"May 11, 2022", "May 12, 2022", "May 13, 2022", "May 14, 2022",
"May 15, 2022", "May 16, 2022", "May 17, 2022", "May 18, 2022",
"May 30, 2022", "May 31, 2022", "June 1, 2022", "June 2, 2022",
"June 3, 2022", "June 4, 2022", "June 5, 2022", "June 13, 2022",
"June 14, 2022", "June 15, 2022", "June 21, 2022", "June 22, 2022",
"June 24, 2022", "June 25, 2022", "June 26, 2022", "July 8, 2022",
"July 9, 2022", "July 10, 2022", "July 11, 2022", "July 12, 2022",
"July 13, 2022", "July 14, 2022", "July 15, 2022", "July 16, 2022",
"July 17, 2022", "August 1, 2022", "August 2, 2022", "August 3, 2022",
"August 4, 2022", "August 5, 2022", "August 6, 2022", "August 7, 2022",
"August 12, 2022", "August 13, 2022", "August 14, 2022", "August 15, 2022",
"August 16, 2022", "August 17, 2022", "August 18, 2022", "August 26, 2022",
"August 27, 2022", "August 28, 2022", "August 30, 2022", "August 31, 2022",
"September 9, 2022", "September 10, 2022", "September 11, 2022",
"September 13, 2022", "September 14, 2022", "September 20, 2022",
"September 21, 2022", "September 22, 2022", "September 23, 2022",
"September 24, 2022", "September 25, 2022", "October 3, 2022",
"October 4, 2022", "October 4, 2022", "October 5, 2022"), COMP = c(1799L,
764L, 972L, 1213L, 1288L, 1178L, 987L, 1044L, 1477L, 972L, 1292L,
1679L, 1660L, 895L, 890L, 1224L, 1188L, 1458L, 1291L, 841L, 1031L,
1472L, 1690L, 1316L, 1151L, 909L, 1371L, 1198L, 1346L, 1887L,
1638L, 1192L, 1459L, 1318L, 1475L, 1506L, 1767L, 1271L, 1437L,
1244L, 973L, 1028L, 1261L, 1316L, 1332L, 1785L, 2364L, 1031L,
1211L, 1034L, 1048L, 1206L, 1552L, 1619L, 1039L, 1791L, 1577L,
824L, 740L, 981L, 841L, 1139L, 1656L, 1722L, 1542L, 1126L, 1345L,
1207L, 1305L, 936L, 1132L, 1026L, 1204L, 883L, 1783L, 1612L,
2803L, 1761L, 1173L, 1888L, 1550L), DOLLAR = c(NA, 34L, 98L,
NA, NA, 226L, 114L, 98L, 282L, 142L, NA, NA, NA, 33L, 74L, 75L,
NA, NA, NA, 116L, 100L, 303L, 264L, 132L, 42L, 17L, NA, NA, NA,
323L, 190L, 118L, 205L, 135L, NA, NA, NA, NA, NA, 282L, 68L,
46L, 84L, 128L, NA, NA, 494L, 12L, 6L, 11L, 41L, NA, NA, NA,
NA, NA, 192L, 20L, 22L, 35L, 2L, NA, NA, 304L, 252L, 73L, 44L,
NA, 82L, 8L, 26L, 24L, 39L, 17L, 126L, NA, 141L, NA, 513L, NA,
NA), GROUP = c(7184L, 688L, 1889L, 1830L, 3758L, 688L, 596L,
1273L, 621L, 3609L, 3033L, 6150L, 10542L, 934L, 520L, 817L, 6120L,
6739L, 3949L, 549L, 1014L, 2547L, 3515L, 1234L, 2991L, 2394L,
2858L, 4746L, 3204L, 2683L, 3815L, 3723L, 4107L, 2134L, 3424L,
5463L, 9546L, 6220L, 5380L, 1656L, 2289L, 1566L, 4353L, 2710L,
3039L, 7582L, 1934L, 1852L, 3101L, 4471L, 1963L, 4201L, 5469L,
3916L, 3158L, 6045L, 4479L, 233L, 805L, 1572L, 2026L, 3597L,
6172L, 4793L, 2451L, 2265L, 2636L, 5128L, 2148L, 1796L, 4240L,
3743L, 2784L, 2453L, 8678L, 4403L, 4250L, 4602L, 5453L, 7507L,
5579L), NGHTLY = c(1774L, 355L, 395L, 356L, 326L, 20L, 646L,
1152L, 1211L, 1024L, 635L, 895L, 468L, 306L, 629L, 584L, 1116L,
1125L, 538L, 455L, 724L, 984L, 286L, 226L, 886L, 920L, 740L,
696L, 320L, 651L, 1357L, 1166L, 1318L, 778L, 1269L, 1268L, 330L,
639L, 692L, 513L, 195L, 1072L, 1015L, 1142L, 525L, 958L, 380L,
412L, 1118L, 551L, 1536L, 595L, 1320L, 438L, 339L, 962L, 152L,
426L, 917L, 626L, 995L, 461L, 991L, 630L, 1522L, 1168L, 1016L,
1055L, 316L, 1166L, 1036L, 1540L, 1530L, 1115L, 804L, 1141L,
411L, 1176L, 691L, 1370L, 940L), SEASON = c(14311L, 10403L, 13287L,
12059L, 14473L, 12564L, 11841L, 10373L, 13536L, 10404L, 12918L,
12379L, 14101L, 10217L, 11218L, 9925L, 14257L, 12467L, 13358L,
10314L, 12218L, 11448L, 13977L, 10284L, 12345L, 10091L, 12889L,
12149L, 15807L, 13479L, 12678L, 11746L, 13380L, 11177L, 13897L,
12280L, 15375L, 12063L, 12908L, 14302L, 12488L, 9692L, 11439L,
10601L, 14155L, 12162L, 14970L, 10536L, 12112L, 10188L, 11410L,
12297L, 14199L, 14503L, 12773L, 11841L, 14083L, 9642L, 10779L,
9834L, 11196L, 10986L, 12838L, 13034L, 13820L, 10965L, 12066L,
13484L, 13104L, 9643L, 10625L, 9964L, 11943L, 9759L, 12222L,
11681L, 13915L, 13088L, 13263L, 13352L, 12242L), SINGLE = c(11783L,
4382L, 5771L, 14478L, 15936L, 9152L, 4223L, 3573L, 4749L, 4305L,
9243L, 16673L, 13205L, 3917L, 3120L, 3593L, 6831L, 14131L, 9762L,
3676L, 3671L, 5084L, 7563L, 4441L, 4370L, 3675L, 8891L, 11203L,
8096L, 12669L, 11330L, 8239L, 10143L, 6480L, 10264L, 17172L,
8969L, 11470L, 16447L, 7998L, 5620L, 5109L, 5503L, 4662L, 8775L,
15059L, 8600L, 6349L, 5285L, 5000L, 6022L, 8377L, 17287L, 10722L,
6352L, 12773L, 6654L, 2800L, 2737L, 2779L, 2276L, 5313L, 14356L,
6177L, 7521L, 5136L, 5567L, 8673L, 5334L, 2312L, 9773L, 4201L,
4663L, 2879L, 13032L, 11190L, 13128L, 17040L, 10633L, 16603L,
9295L), Day = structure(c(2L, 6L, 5L, 1L, 3L, 4L, 2L, 6L, 7L,
5L, 1L, 3L, 4L, 6L, 7L, 5L, 1L, 3L, 4L, 2L, 6L, 7L, 2L, 6L, 7L,
5L, 1L, 3L, 4L, 2L, 6L, 7L, 6L, 7L, 1L, 3L, 4L, 1L, 3L, 4L, 2L,
6L, 7L, 5L, 1L, 3L, 4L, 2L, 6L, 7L, 5L, 1L, 3L, 4L, 1L, 3L, 4L,
2L, 6L, 7L, 5L, 1L, 3L, 4L, 6L, 7L, 1L, 3L, 4L, 6L, 7L, 6L, 7L,
5L, 1L, 3L, 4L, 2L, 6L, 6L, 7L), levels = c("Friday", "Monday",
"Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = "factor"),
OpeningDay = structure(c(2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("0",
"1"), class = "factor"), OpeningWeekend = structure(c(1L,
1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L), levels = c("0", "1"), class = "factor"),
PreASB = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("0",
"1"), class = "factor"), BOSNYY = structure(c(1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,
2L, 2L, 2L), levels = c("0", "1"), class = "factor"), Holiday = structure(c(1L,
1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L), levels = c("0", "1"), class = "factor"),
DayGame = structure(c(2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L,
2L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L,
1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L), levels = c("0",
"1"), class = "factor"), WeekDayGame = structure(c(2L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
1L, 2L, 1L, 2L), levels = c("0", "1"), class = "factor"),
Bobblehead = structure(c(1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L), levels = c("0",
"1"), class = "factor"), Wearable = structure(c(1L, 1L, 1L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L), levels = c("0", "1"), class = "factor"), OtherGiveaway = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L,
1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L,
2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L), levels = c("0", "1"), class = "factor"),
Kids = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("0",
"1"), class = "factor"), Concert = structure(c(1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L), levels = "0", class = "factor"), SpecEvent = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 1L), levels = c("0", "1"), class = "factor"),
Friday = structure(c(1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("0",
"1"), class = "factor"), Saturday = structure(c(1L, 1L, 1L,
1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
1L, 1L, 1L), levels = c("0", "1"), class = "factor"), Sunday = structure(c(1L,
1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
2L, 1L, 1L, 1L, 1L), levels = c("0", "1"), class = "factor")), row.names = c(NA,
-81L), class = c("tbl_df", "tbl", "data.frame"))
Code
library(tidyverse)
Rdata2022$Game_Hour <- as.character(Rdata2022$Game_Hour)
Rdata2022$Date <- as.character(Rdata2022$Date)
Rdata2022$COMP <- as.integer(Rdata2022$COMP)
Rdata2022$DOLLAR <- as.integer(Rdata2022$DOLLAR)
Rdata2022$GROUP <- as.integer(Rdata2022$GROUP)
Rdata2022$NGHTLY <- as.integer(Rdata2022$NGHTLY)
Rdata2022$SEASON <- as.integer(Rdata2022$SEASON)
Rdata2022$SINGLE <- as.integer(Rdata2022$SINGLE)
Rdata2022$Day <- as.factor(Rdata2022$Day)
Rdata2022$OpeningDay <- as.factor(Rdata2022$OpeningDay)
Rdata2022$OpeningWeekend <- as.factor(Rdata2022$OpeningWeekend)
Rdata2022$PreASB <- as.factor(Rdata2022$PreASB)
Rdata2022$BOSNYY <- as.factor(Rdata2022$BOSNYY)
Rdata2022$Holiday <- as.factor(Rdata2022$Holiday)
Rdata2022$DayGame <- as.factor(Rdata2022$DayGame)
Rdata2022$WeekDayGame <- as.factor(Rdata2022$WeekDayGame)
Rdata2022$Bobblehead <- as.factor(Rdata2022$Bobblehead)
Rdata2022$Wearable <- as.factor(Rdata2022$Wearable)
Rdata2022$OtherGiveaway <- as.factor(Rdata2022$OtherGiveaway)
Rdata2022$Kids <- as.factor(Rdata2022$Kids)
Rdata2022$Concert <- as.factor(Rdata2022$Concert)
Rdata2022$SpecEvent <- as.factor(Rdata2022$SpecEvent)
Rdata2022$Friday <- as.factor(Rdata2022$Friday)
Rdata2022$Saturday <- as.factor(Rdata2022$Saturday)
Rdata2022$Sunday <- as.factor(Rdata2022$Sunday)
WeekendModel <- lm(SINGLE ~ OpeningDay + OpeningWeekend + PreASB
+ + BOSNYY + DayGame + WeekDayGame + Bobblehead +
+ Wearable + OtherGiveaway + Kids + Concert + SpecEvent
+ + Friday + Saturday + Sunday, data = Rdata2022)
Error
Error in contrasts<-(*tmp*, value = contr.funs[1 + isOF[nn]]) :
contrasts can be applied only to factors with 2 or more levels