├── README.md
├── NAMESPACE
├── .Rbuildignore
├── .gitignore
├── man
    └── hello.Rd
├── Havemeyer309_quarterB.txt
├── DESCRIPTION
├── cuseats.Rproj
├── Havemeyer309_quarterA.txt
├── sch501.txt
├── Math203.csv
├── Havemeyer309_quarter.txt
├── Hamilton.csv
├── Mudd627.csv
├── HamiltonLarge.csv
├── NWC501half.csv
├── IAB417.csv
├── NWC501.csv
├── Scher501.csv
└── seats.Rmd


/README.md:
--------------------------------------------------------------------------------
1 | # cuseats
2 | 


--------------------------------------------------------------------------------
/NAMESPACE:
--------------------------------------------------------------------------------
1 | exportPattern("^[[:alpha:]]+")
2 | 


--------------------------------------------------------------------------------
/.Rbuildignore:
--------------------------------------------------------------------------------
1 | ^.*\.Rproj$
2 | ^\.Rproj\.user$
3 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
1 | .Rproj.user
2 | .Rhistory
3 | .RData
4 | .Ruserdata
5 | *.docx
6 | *.html
7 | 


--------------------------------------------------------------------------------
/man/hello.Rd:
--------------------------------------------------------------------------------
 1 | \name{hello}
 2 | \alias{hello}
 3 | \title{Hello, World!}
 4 | \usage{
 5 | hello()
 6 | }
 7 | \description{
 8 | Prints 'Hello, world!'.
 9 | }
10 | \examples{
11 | hello()
12 | }
13 | 


--------------------------------------------------------------------------------
/Havemeyer309_quarterB.txt:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | 154,B
 3 | 158,B
 4 | 162,B
 5 | 239,B
 6 | 243,B
 7 | 247,B
 8 | 251,B
 9 | 255,B
10 | 259,B
11 | 169,B
12 | 173,B
13 | 145,B
14 | 126,B
15 | 98,B
16 | 102,B
17 | 69,B
18 | 65,B
19 | 35,B
20 | 39,B
21 | 5,B
22 | 1,B
23 | 11,B
24 | 15,B
25 | 41,B
26 | 45,B
27 | 79,B
28 | 75,B
29 | 104,B
30 | 108,B
31 | 132,B
32 | 147,B
33 | 151,B
34 | 176,B
35 | 180,B
36 | 260,B
37 | 264,B
38 | 


--------------------------------------------------------------------------------
/DESCRIPTION:
--------------------------------------------------------------------------------
 1 | Package: cuseats-old
 2 | Type: Package
 3 | Title: What the Package Does (Title Case)
 4 | Version: 0.1.0
 5 | Author: Who wrote it
 6 | Maintainer: The package maintainer <yourself@somewhere.net>
 7 | Description: More about what it does (maybe more than one line)
 8 |     Use four spaces when indenting paragraphs within the Description.
 9 | License: What license is it under?
10 | Encoding: UTF-8
11 | LazyData: true
12 | 


--------------------------------------------------------------------------------
/cuseats.Rproj:
--------------------------------------------------------------------------------
 1 | Version: 1.0
 2 | 
 3 | RestoreWorkspace: Default
 4 | SaveWorkspace: Default
 5 | AlwaysSaveHistory: Default
 6 | 
 7 | EnableCodeIndexing: Yes
 8 | UseSpacesForTab: Yes
 9 | NumSpacesForTab: 2
10 | Encoding: UTF-8
11 | 
12 | RnwWeave: knitr
13 | LaTeX: XeLaTeX
14 | 
15 | AutoAppendNewline: Yes
16 | StripTrailingWhitespace: Yes
17 | 
18 | BuildType: Package
19 | PackageUseDevtools: Yes
20 | PackageInstallArgs: --no-multiarch --with-keep.source
21 | 


--------------------------------------------------------------------------------
/Havemeyer309_quarterA.txt:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | 152,A
 3 | 156,A
 4 | 160,A
 5 | 164,A
 6 | 241,A
 7 | 245,A
 8 | 249,A
 9 | 253,A
10 | 257,A
11 | 167,A
12 | 171,A
13 | 143,A
14 | 128,A
15 | 100,A
16 | 71,A
17 | 67,A
18 | 33,A
19 | 37,A
20 | 7,A
21 | 3,A
22 | 9,A
23 | 13,A
24 | 43,A
25 | 47,A
26 | 77,A
27 | 73,A
28 | 106,A
29 | 110,A
30 | 130,A
31 | 134,A
32 | 149,A
33 | 174,A
34 | 178,A
35 | 262,A
36 | 266,A
37 | 182,A
38 | 184,A
39 | 186,A
40 | 188,A
41 | 190,A
42 | 192,A
43 | 269,A
44 | 271,A
45 | 273,A
46 | 275,A
47 | 277,A
48 | 


--------------------------------------------------------------------------------
/sch501.txt:
--------------------------------------------------------------------------------
 1 | 						J11	J9	J7	J5	J3	J1						J2	J4	J6	J8	J10	J12						
 2 | 			H21	H19	H17	H15	H13	H11	H9	H7	H5	H3	H1		H2	H4	H6	H8	H10	H12	H14	H16	H18	H20	H22			
 3 | 	G25	G23	G21	G19	G17	G15	G13	G11	G9	G7	G5	G3	G1		G2	G4	G6	G8	G10	G12	G14	G16	G18	G20	G22	G24	G26	
 4 | F27	F25	F23	F21	F19	F17	F15	F13	F11	F9	F7	F5	F3	F1		F2	F4	F6	F8	F10	F12	F14	F16	F18	F20	F22	F24	F26	F28
 5 | 	E25	E23	E21	E19	E17	E15	E13	E11	E9	E7	E5	E3	E1		E2	E4	E6	E8	E10	E12	E14	E16	E18	E20	E22	E24	E26	
 6 | 			D21	D19	D17	D15	D13	D11	D9	D7	D5	D3	D1		D2	D4	D6	D8	D10	D12	D14	D16	D18	D20	D22			
 7 | 			C21	C19	C17	C15	C13	C11	C9	C7	C5	C3	C1		C2	C4	C6	C8	C10	C12	C14	C16	C18	C20	C22			
 8 | 				B19	B17	B15	B13	B11	B9	B7	B5	B3	B1		B2	B4	B6	B8	B10	B12	B14	B16	B18	B20				
 9 | 										A7	A5	A3	A1		A2	A4	A6	A8	A10	A12	A14							
10 | 																												
11 | 


--------------------------------------------------------------------------------
/Math203.csv:
--------------------------------------------------------------------------------
1 | Seat,Version,Row,Column
1,A,1,1
2,B,1,2
3,A,1,3
4,B,1,4
5,A,1,5
6,B,1,6
7,A,1,7
8,B,1,8
9,A,1,9
11,A,2,1
12,B,2,2
13,A,2,3
14,B,2,4
15,A,2,5
16,B,2,6
17,A,2,7
18,B,2,8
19,A,2,9
21,A,3,1
22,B,3,2
23,A,3,3
24,B,3,4
25,A,3,5
26,B,3,6
27,A,3,7
28,B,3,8
29,A,3,9
31,A,4,1
32,B,4,2
33,A,4,3
34,B,4,4
35,A,4,5
36,B,4,6
37,A,4,7
38,B,4,8
39,A,4,9
41,B,5,2
42,A,5,3
43,B,5,4
44,A,5,5
45,B,5,6
46,A,5,7
47,B,5,8
48,A,5,9
50,A,6,3
51,B,6,4
52,A,6,5
53,B,6,6
54,A,6,7
55,B,6,8
56,A,6,9
58,B,7,4
59,A,7,5
60,B,7,6
61,B,7,8
62,A,7,9
126,A,8,3
64,B,8,4
65,A,8,5
66,B,8,6
67,A,8,7
68,B,8,8
69,A,8,9
71,B,9,2
72,A,9,3
73,B,9,4
74,A,9,5
75,B,9,6
76,A,9,7
77,B,9,8
78,A,9,9
80,A,10,1
81,B,10,2
82,A,10,3
83,B,10,4
84,A,10,5
85,B,10,6
86,A,10,7
87,B,10,8
88,A,10,9
90,A,11,1
91,B,11,2
92,A,11,3
93,B,11,4
94,A,11,5
95,B,11,6
96,A,11,7
97,B,11,8
98,A,11,9
100,A,12,1
101,B,12,2
102,A,12,3
103,B,12,4
104,A,12,5
105,B,12,6
106,A,12,7
107,B,12,8
108,A,12,9


--------------------------------------------------------------------------------
/Havemeyer309_quarter.txt:
--------------------------------------------------------------------------------
 1 | Seat,Version
 2 | 152,A
 3 | 154,B
 4 | 156,A
 5 | 158,B
 6 | 160,A
 7 | 162,B
 8 | 164,A
 9 | 239,B
10 | 241,A
11 | 243,B
12 | 245,A
13 | 247,B
14 | 249,A
15 | 251,B
16 | 253,A
17 | 255,B
18 | 257,A
19 | 259,B
20 | 167,A
21 | 169,B
22 | 171,A
23 | 173,B
24 | 143,A
25 | 145,B
26 | 126,B
27 | 128,A
28 | 98,B
29 | 100,A
30 | 102,B
31 | 71,A
32 | 69,B
33 | 67,A
34 | 65,B
35 | 33,A
36 | 35,B
37 | 37,A
38 | 39,B
39 | 7,A
40 | 5,B
41 | 3,A
42 | 1,B
43 | 9,A
44 | 11,B
45 | 13,A
46 | 15,B
47 | 41,B
48 | 43,A
49 | 45,B
50 | 47,A
51 | 79,B
52 | 77,A
53 | 75,B
54 | 73,A
55 | 104,B
56 | 106,A
57 | 108,B
58 | 110,A
59 | 130,A
60 | 132,B
61 | 134,A
62 | 147,B
63 | 149,A
64 | 151,B
65 | 174,A
66 | 176,B
67 | 178,A
68 | 180,B
69 | 260,B
70 | 262,A
71 | 264,B
72 | 266,A
73 | 182,A
74 | 184,A
75 | 186,A
76 | 188,A
77 | 190,A
78 | 192,A
79 | 194,A
80 | 269,A
81 | 271,A
82 | 273,A
83 | 275,A
84 | 277,A
85 | 279,A
86 | 
87 | 
88 | 
89 | 


--------------------------------------------------------------------------------
/Hamilton.csv:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | 1,A,1,1
 3 | 2,A,2,1
 4 | 3,A,3,1
 5 | 4,A,4,1
 6 | 5,A,5,1
 7 | 6,A,6,1
 8 | 7,A,7,1
 9 | 8,A,8,1
10 | 1,B,1,2
11 | 2,B,2,2
12 | 3,B,3,2
13 | 4,B,4,2
14 | 5,B,5,2
15 | 6,B,6,2
16 | 7,B,7,2
17 | 8,B,8,2
18 | 1,A,1,3
19 | 2,A,2,3
20 | 3,A,3,3
21 | 4,A,4,3
22 | 5,A,5,3
23 | 6,A,6,3
24 | 7,A,7,3
25 | 8,A,8,3
26 | 1,B,1,4
27 | 2,B,2,4
28 | 3,B,3,4
29 | 4,B,4,4
30 | 5,B,5,4
31 | 6,B,6,4
32 | 7,B,7,4
33 | 8,B,8,4
34 | 1,A,1,5
35 | 2,A,2,5
36 | 3,A,3,5
37 | 4,A,4,5
38 | 5,A,5,5
39 | 6,A,6,5
40 | 7,A,7,5
41 | 8,A,8,5
42 | 1,B,1,6
43 | 2,B,2,6
44 | 3,B,3,6
45 | 4,B,4,6
46 | 5,B,5,6
47 | 6,B,6,6
48 | 7,B,7,6
49 | 8,B,8,6
50 | 1,A,1,7
51 | 2,A,2,7
52 | 3,A,3,7
53 | 4,A,4,7
54 | 5,A,5,7
55 | 6,A,6,7
56 | 7,A,7,7
57 | 8,A,8,7
58 | 1,B,1,8
59 | 2,B,2,8
60 | 3,B,3,8
61 | 4,B,4,8
62 | 5,B,5,8
63 | 6,B,6,8
64 | 7,B,7,8
65 | 8,B,8,8
66 | 1,A,1,9
67 | 2,A,2,9
68 | 3,A,3,9
69 | 4,A,4,9
70 | 5,A,5,9
71 | 6,A,6,9
72 | 7,A,7,9
73 | 8,A,8,9
74 | 1,B,1,10
75 | 2,B,2,10
76 | 3,B,3,10
77 | 4,B,4,10
78 | 5,B,5,10
79 | 6,B,6,10
80 | 7,B,7,10
81 | 8,B,8,10


--------------------------------------------------------------------------------
/Mudd627.csv:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | Row 1 Col 1,A,1,1
 3 | Row 1 Col 2,B,1,2
 4 | Row 1 Col 3,A,1,3
 5 | Row 1 Col 4,B,1,4
 6 | Row 2 Col 1,A,2,1
 7 | Row 2 Col 2,B,2,2
 8 | Row 2 Col 3,A,2,3
 9 | Row 2 Col 4,B,2,4
10 | Row 2 Col 5,A,2,5
11 | Row 2 Col 6,B,2,6
12 | Row 2 Col 7,A,2,7
13 | Row 2 Col 8,B,2,8
14 | Row 2 Col 9,A,2,9
15 | Row 3 Col 1,A,3,1
16 | Row 3 Col 2,B,3,2
17 | Row 3 Col 3,A,3,3
18 | Row 3 Col 4,B,3,4
19 | Row 3 Col 5,A,3,5
20 | Row 3 Col 6,B,3,6
21 | Row 3 Col 7,A,3,7
22 | Row 3 Col 8,B,3,8
23 | Row 3 Col 9,A,3,9
24 | Row 4 Col 1,A,4,1
25 | Row 4 Col 2,B,4,2
26 | Row 4 Col 3,A,4,3
27 | Row 4 Col 4,B,4,4
28 | Row 4 Col 5,A,4,5
29 | Row 4 Col 6,B,4,6
30 | Row 4 Col 7,A,4,7
31 | Row 4 Col 8,B,4,8
32 | Row 4 Col 9,A,4,9
33 | Row 5 Col 1,A,5,1
34 | Row 5 Col 2,B,5,2
35 | Row 5 Col 3,A,5,3
36 | Row 5 Col 4,B,5,4
37 | Row 5 Col 5,A,5,5
38 | Row 5 Col 6,B,5,6
39 | Row 5 Col 7,A,5,7
40 | Row 5 Col 8,B,5,8
41 | Row 5 Col 9,A,5,9
42 | Row 6 Col 1,A,6,1
43 | Row 6 Col 2,B,6,2
44 | Row 6 Col 3,A,6,3
45 | Row 6 Col 4,B,6,4
46 | Row 6 Col 5,A,6,5
47 | Row 6 Col 6,B,6,6
48 | Row 6 Col 7,A,6,7
49 | Row 6 Col 8,B,6,8
50 | Row 6 Col 9,A,6,9
51 | 


--------------------------------------------------------------------------------
/HamiltonLarge.csv:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | 1,A,1,1
 3 | 2,A,2,1
 4 | 3,A,3,1
 5 | 4,A,4,1
 6 | 5,A,5,1
 7 | 6,A,6,1
 8 | 7,A,7,1
 9 | 8,A,8,1
10 | 1,B,1,2
11 | 2,B,2,2
12 | 3,B,3,2
13 | 4,B,4,2
14 | 5,B,5,2
15 | 6,B,6,2
16 | 7,B,7,2
17 | 8,B,8,2
18 | 1,A,1,3
19 | 2,A,2,3
20 | 3,A,3,3
21 | 4,A,4,3
22 | 5,A,5,3
23 | 6,A,6,3
24 | 7,A,7,3
25 | 8,A,8,3
26 | 1,B,1,4
27 | 2,B,2,4
28 | 3,B,3,4
29 | 4,B,4,4
30 | 5,B,5,4
31 | 6,B,6,4
32 | 7,B,7,4
33 | 8,B,8,4
34 | 1,A,1,5
35 | 2,A,2,5
36 | 3,A,3,5
37 | 4,A,4,5
38 | 5,A,5,5
39 | 6,A,6,5
40 | 7,A,7,5
41 | 8,A,8,5
42 | 1,B,1,6
43 | 2,B,2,6
44 | 3,B,3,6
45 | 4,B,4,6
46 | 5,B,5,6
47 | 6,B,6,6
48 | 7,B,7,6
49 | 8,B,8,6
50 | 1,A,1,7
51 | 2,A,2,7
52 | 3,A,3,7
53 | 4,A,4,7
54 | 5,A,5,7
55 | 6,A,6,7
56 | 7,A,7,7
57 | 8,A,8,7
58 | 1,B,1,8
59 | 2,B,2,8
60 | 3,B,3,8
61 | 4,B,4,8
62 | 5,B,5,8
63 | 6,B,6,8
64 | 7,B,7,8
65 | 8,B,8,8
66 | 1,A,1,9
67 | 2,A,2,9
68 | 3,A,3,9
69 | 4,A,4,9
70 | 5,A,5,9
71 | 6,A,6,9
72 | 7,A,7,9
73 | 8,A,8,9
74 | 1,B,1,10
75 | 2,B,2,10
76 | 3,B,3,10
77 | 4,B,4,10
78 | 5,B,5,10
79 | 6,B,6,10
80 | 7,B,7,10
81 | 8,B,8,10
82 | 1,B,1,11
83 | 2,B,2,11
84 | 3,B,3,11
85 | 4,B,4,11
86 | 5,A,5,11
87 | 6,A,6,11
88 | 7,A,7,11
89 | 8,A,8,11
90 | 


--------------------------------------------------------------------------------
/NWC501half.csv:
--------------------------------------------------------------------------------
 1 | Seat,Version,Row,Column
 2 | A1,A,1,1
 3 | B1,A,2,1
 4 | C1,A,3,1
 5 | D1,A,4,1
 6 | E1,A,5,1
 7 | F1,A,6,1
 8 | G1,A,7,1
 9 | H1,A,8,1
10 | J1,A,9,1
11 | K1,A,10,1
12 | A3,B,1,3
13 | B3,B,2,3
14 | C3,B,3,3
15 | D3,B,4,3
16 | E3,B,5,3
17 | F3,B,6,3
18 | G3,B,7,3
19 | H3,B,8,3
20 | J3,B,9,3
21 | K3,B,10,3
22 | A5,A,1,5
23 | B5,A,2,5
24 | C5,A,3,5
25 | D5,A,4,5
26 | E5,A,5,5
27 | F5,A,6,5
28 | G5,A,7,5
29 | H5,A,8,5
30 | J5,A,9,5
31 | K5,A,10,5
32 | A7,B,1,7
33 | B7,B,2,7
34 | C7,B,3,7
35 | D7,B,4,7
36 | E7,B,5,7
37 | F7,B,6,7
38 | G7,B,7,7
39 | H7,B,8,7
40 | J7,B,9,7
41 | K7,B,10,7
42 | A9,A,1,9
43 | B9,A,2,9
44 | C9,A,3,9
45 | D9,A,4,9
46 | E9,A,5,9
47 | F9,A,6,9
48 | G9,A,7,9
49 | H9,A,8,9
50 | J9,A,9,9
51 | A11,B,1,11
52 | B11,B,2,11
53 | C11,B,3,11
54 | D11,B,4,11
55 | E11,B,5,11
56 | F11,B,6,11
57 | G11,B,7,11
58 | H11,B,8,11
59 | J11,B,9,11
60 | K11,B,10,11
61 | B13,A,2,13
62 | C13,A,3,13
63 | D13,A,4,13
64 | E13,A,5,13
65 | F13,A,6,13
66 | G13,A,7,13
67 | H13,A,8,13
68 | J13,A,9,13
69 | K13,A,10,13
70 | B15,B,2,15
71 | C15,B,3,15
72 | D15,B,4,15
73 | E15,B,5,15
74 | F15,B,6,15
75 | G15,B,7,15
76 | H15,B,8,15
77 | J15,B,9,15
78 | K15,B,10,15


--------------------------------------------------------------------------------
/IAB417.csv:
--------------------------------------------------------------------------------
 1 | Seat,Row,Column,Version
 2 | C103,C,103,
 3 | C109,C,109,
 4 | C115,C,115,
 5 | C121,C,121,
 6 | E103,E,103,
 7 | E109,E,109,
 8 | E115,E,115,
 9 | E121,E,121,
10 | G103,G,103,
11 | G109,G,109,
12 | G115,G,115,
13 | G121,G,121,
14 | I103,I,103,
15 | I109,I,109,
16 | I115,I,115,
17 | I121,I,121,
18 | K103,K,103,
19 | K109,K,109,
20 | K115,K,115,
21 | K121,K,121,
22 | M103,M,103,
23 | M109,M,109,
24 | M115,M,115,
25 | M121,M,121,
26 | O103,O,103,
27 | O109,O,109,
28 | O115,O,115,
29 | O121,O,121,
30 | Q103,Q,103,
31 | Q109,Q,109,
32 | Q115,Q,115,
33 | Q121,Q,121,
34 | S103,S,103,
35 | S109,S,109,
36 | S115,S,115,
37 | S121,S,121,
38 | C102,C,102,
39 | C108,C,108,
40 | C114,C,114,
41 | C120,C,120,
42 | E102,E,102,
43 | E108,E,108,
44 | E114,E,114,
45 | E120,E,120,
46 | G102,G,102,
47 | G108,G,108,
48 | G114,G,114,
49 | G120,G,120,
50 | I102,I,102,
51 | I108,I,108,
52 | I114,I,114,
53 | I120,I,120,
54 | K102,K,102,
55 | K108,K,108,
56 | K114,K,114,
57 | K120,K,120,
58 | M102,M,102,
59 | M108,M,108,
60 | M114,M,114,
61 | M120,M,120,
62 | O102,O,102,
63 | O108,O,108,
64 | O114,O,114,
65 | O120,O,120,
66 | Q102,Q,102,
67 | Q108,Q,108,
68 | Q114,Q,114,
69 | Q120,Q,120,
70 | B102,B,102,
71 | B108,B,108,
72 | B114,B,114,
73 | A100,A,100,
74 | A106,A ,106,
75 | A103,A,103,
76 | A109,A ,109,
77 | B103,B,103,


--------------------------------------------------------------------------------
/NWC501.csv:
--------------------------------------------------------------------------------
  1 | Seat,Version,Row,Column
  2 | A1,A,1,1
  3 | A2,B,1,2
  4 | A3,A,1,3
  5 | A4,B,1,4
  6 | A5,A,1,5
  7 | A6,B,1,6
  8 | A7,A,1,7
  9 | A8,B,1,8
 10 | A9,A,1,9
 11 | A10,B,1,10
 12 | A11,A,1,11
 13 | A17,A,1,17
 14 | B1,A,2,1
 15 | B2,B,2,2
 16 | B3,A,2,3
 17 | B4,B,2,4
 18 | B5,A,2,5
 19 | B6,B,2,6
 20 | B7,A,2,7
 21 | B8,B,2,8
 22 | B9,A,2,9
 23 | B10,B,2,10
 24 | B11,A,2,11
 25 | B12,B,2,12
 26 | B13,A,2,13
 27 | B14,B,2,14
 28 | B15,A,2,15
 29 | B16,B,2,16
 30 | C1,A,3,1
 31 | C2,B,3,2
 32 | C3,A,3,3
 33 | C4,B,3,4
 34 | C5,A,3,5
 35 | C6,B,3,6
 36 | C7,A,3,7
 37 | C8,B,3,8
 38 | C9,A,3,9
 39 | C10,B,3,10
 40 | C11,A,3,11
 41 | C12,B,3,12
 42 | C13,A,3,13
 43 | C14,B,3,14
 44 | C15,A,3,15
 45 | C16,B,3,16
 46 | D1,A,4,1
 47 | D2,B,4,2
 48 | D3,A,4,3
 49 | D4,B,4,4
 50 | D5,A,4,5
 51 | D6,B,4,6
 52 | D7,A,4,7
 53 | D8,B,4,8
 54 | D9,A,4,9
 55 | D10,B,4,10
 56 | D11,A,4,11
 57 | D12,B,4,12
 58 | D13,A,4,13
 59 | D14,B,4,14
 60 | D15,A,4,15
 61 | E1,A,5,1
 62 | E2,B,5,2
 63 | E3,A,5,3
 64 | E4,B,5,4
 65 | E5,A,5,5
 66 | E6,B,5,6
 67 | E7,A,5,7
 68 | E8,B,5,8
 69 | E9,A,5,9
 70 | E10,B,5,10
 71 | E11,A,5,11
 72 | E12,B,5,12
 73 | E13,A,5,13
 74 | E14,B,5,14
 75 | E15,A,5,15
 76 | E16,B,5,16
 77 | F1,A,6,1
 78 | F2,B,6,2
 79 | F3,A,6,3
 80 | F4,B,6,4
 81 | F5,A,6,5
 82 | F6,B,6,6
 83 | F7,A,6,7
 84 | F8,B,6,8
 85 | F9,A,6,9
 86 | F10,B,6,10
 87 | F11,A,6,11
 88 | F12,B,6,12
 89 | F13,A,6,13
 90 | F14,B,6,14
 91 | F15,A,6,15
 92 | F16,B,6,16
 93 | G1,A,7,1
 94 | G2,B,7,2
 95 | G3,A,7,3
 96 | G4,B,7,4
 97 | G5,A,7,5
 98 | G6,B,7,6
 99 | G7,A,7,7
100 | G8,B,7,8
101 | G9,A,7,9
102 | G10,B,7,10
103 | G11,A,7,11
104 | G12,B,7,12
105 | G13,A,7,13
106 | G14,B,7,14
107 | G15,A,7,15
108 | G16,B,7,16
109 | H1,A,8,1
110 | H2,B,8,2
111 | H3,A,8,3
112 | H4,B,8,4
113 | H5,A,8,5
114 | H6,B,8,6
115 | H7,A,8,7
116 | H8,B,8,8
117 | H9,A,8,9
118 | H10,B,8,10
119 | H11,A,8,11
120 | H12,B,8,12
121 | H13,A,8,13
122 | H14,B,8,14
123 | H15,A,8,15
124 | H16,B,8,16
125 | J1,A,9,1
126 | J2,B,9,2
127 | J3,A,9,3
128 | J4,B,9,4
129 | J5,A,9,5
130 | J6,B,9,6
131 | J7,A,9,7
132 | J8,B,9,8
133 | J9,A,9,9
134 | J10,B,9,10
135 | J11,A,9,11
136 | J12,B,9,12
137 | J13,A,9,13
138 | J14,B,9,14
139 | J15,A,9,15
140 | J16,B,9,16
141 | K1,A,10,1
142 | K2,B,10,2
143 | K3,A,10,3
144 | K4,B,10,4
145 | K5,A,10,5
146 | K6,B,10,6
147 | K7,A,10,7
148 | K10,B,10,10
149 | K11,A,10,11
150 | K12,B,10,12
151 | K13,A,10,13
152 | K14,B,10,14
153 | K15,A,10,15
154 | K16,B,10,16
155 | K17,A,10,17
156 | standby1,A,11,1
157 | standby2,B,11,2
158 | standby3,A,11,3
159 | standby4,B,11,4
160 | standby5,A,11,5


--------------------------------------------------------------------------------
/Scher501.csv:
--------------------------------------------------------------------------------
  1 | Seat,Row,Column,Version
  2 | F27,7,1,B
  3 | G25,8,2,A
  4 | F25,7,2,A
  5 | E25,6,2,A
  6 | G23,8,3,B
  7 | F23,7,3,B
  8 | E23,6,3,B
  9 | H21,9,4,A
 10 | G21,8,4,A
 11 | F21,7,4,A
 12 | E21,6,4,A
 13 | D21,5,4,A
 14 | C21,4,4,A
 15 | H19,9,5,B
 16 | G19,8,5,B
 17 | F19,7,5,B
 18 | E19,6,5,B
 19 | D19,5,5,B
 20 | C19,4,5,B
 21 | B19,3,5,B
 22 | H17,9,6,A
 23 | G17,8,6,A
 24 | F17,7,6,A
 25 | E17,6,6,A
 26 | D17,5,6,A
 27 | C17,4,6,A
 28 | B17,3,6,A
 29 | J11,10,7,B
 30 | H15,9,7,B
 31 | G15,8,7,B
 32 | F15,7,7,B
 33 | E15,6,7,B
 34 | D15,5,7,B
 35 | C15,4,7,B
 36 | B15,3,7,B
 37 | J9,10,8,A
 38 | H13,9,8,A
 39 | G13,8,8,A
 40 | F13,7,8,A
 41 | E13,6,8,A
 42 | D13,5,8,A
 43 | C13,4,8,A
 44 | B13,3,8,A
 45 | J7,10,9,B
 46 | H11,9,9,B
 47 | G11,8,9,B
 48 | F11,7,9,B
 49 | E11,6,9,B
 50 | D11,5,9,B
 51 | C11,4,9,B
 52 | B11,3,9,B
 53 | J5,10,10,A
 54 | H9,9,10,A
 55 | G9,8,10,A
 56 | F9,7,10,A
 57 | E9,6,10,A
 58 | D9,5,10,A
 59 | C9,4,10,A
 60 | B9,3,10,A
 61 | J3,10,11,B
 62 | H7,9,11,B
 63 | G7,8,11,B
 64 | F7,7,11,B
 65 | E7,6,11,B
 66 | D7,5,11,B
 67 | C7,4,11,B
 68 | B7,3,11,B
 69 | A7,2,11,B
 70 | J1,10,12,A
 71 | H5,9,12,A
 72 | G5,8,12,A
 73 | F5,7,12,A
 74 | E5,6,12,A
 75 | D5,5,12,A
 76 | C5,4,12,A
 77 | B5,3,12,A
 78 | A5,2,12,A
 79 | H3,9,13,B
 80 | G3,8,13,B
 81 | F3,7,13,B
 82 | E3,6,13,B
 83 | D3,5,13,B
 84 | C3,4,13,B
 85 | B3,3,13,B
 86 | A3,2,13,B
 87 | H1,9,14,A
 88 | G1,8,14,A
 89 | F1,7,14,A
 90 | E1,6,14,A
 91 | D1,5,14,A
 92 | C1,4,14,A
 93 | B1,3,14,A
 94 | A1,2,14,A
 95 | H2,9,16,B
 96 | G2,8,16,B
 97 | F2,7,16,B
 98 | E2,6,16,B
 99 | D2,5,16,B
100 | C2,4,16,B
101 | B2,3,16,B
102 | A2,2,16,B
103 | H4,9,17,A
104 | G4,8,17,A
105 | F4,7,17,A
106 | E4,6,17,A
107 | D4,5,17,A
108 | C4,4,17,A
109 | B4,3,17,A
110 | A4,2,17,A
111 | J2,10,18,B
112 | H6,9,18,B
113 | G6,8,18,B
114 | F6,7,18,B
115 | E6,6,18,B
116 | D6,5,18,B
117 | C6,4,18,B
118 | B6,3,18,B
119 | A6,2,18,B
120 | J4,10,19,A
121 | H8,9,19,A
122 | G8,8,19,A
123 | F8,7,19,A
124 | E8,6,19,A
125 | D8,5,19,A
126 | C8,4,19,A
127 | B8,3,19,A
128 | A8,2,19,A
129 | J6,10,20,B
130 | H10,9,20,B
131 | G10,8,20,B
132 | F10,7,20,B
133 | E10,6,20,B
134 | D10,5,20,B
135 | C10,4,20,B
136 | B10,3,20,B
137 | A10,2,20,B
138 | J8,10,21,A
139 | H12,9,21,A
140 | G12,8,21,A
141 | F12,7,21,A
142 | E12,6,21,A
143 | D12,5,21,A
144 | C12,4,21,A
145 | B12,3,21,A
146 | A12,2,21,A
147 | J10,10,22,B
148 | H14,9,22,B
149 | G14,8,22,B
150 | F14,7,22,B
151 | E14,6,22,B
152 | D14,5,22,B
153 | C14,4,22,B
154 | B14,3,22,B
155 | A14,2,22,B
156 | J12,10,23,A
157 | H16,9,23,A
158 | G16,8,23,A
159 | F16,7,23,A
160 | E16,6,23,A
161 | D16,5,23,A
162 | C16,4,23,A
163 | B16,3,23,A
164 | H18,9,24,B
165 | G18,8,24,B
166 | F18,7,24,B
167 | E18,6,24,B
168 | D18,5,24,B
169 | C18,4,24,B
170 | B18,3,24,B
171 | H20,9,25,A
172 | G20,8,25,A
173 | F20,7,25,A
174 | E20,6,25,A
175 | D20,5,25,A
176 | C20,4,25,A
177 | B20,3,25,A
178 | H22,9,26,B
179 | G22,8,26,B
180 | E22,6,26,B
181 | D22,5,26,B
182 | C22,4,26,B
183 | G24,8,27,A
184 | F24,7,27,A
185 | E24,6,27,A
186 | G26,8,28,B
187 | F26,7,28,B
188 | E26,6,28,B
189 | F28,7,29,A


--------------------------------------------------------------------------------
/seats.Rmd:
--------------------------------------------------------------------------------
  1 | ---
  2 | date: `r Sys.Date()`
  3 | output: 
  4 |   word_document: 
  5 |     df_print: kable
  6 | ---
  7 | ```{r, eval = FALSE, echo = FALSE}
  8 | # some room layouts from: cs3157 / seatingcharts
  9 | ```
 10 | 
 11 | 
 12 | ```{r setup, include=FALSE}
 13 | knitr::opts_chunk$set(echo = FALSE,
 14 |                       warning = FALSE,
 15 |                       message = FALSE)
 16 | ```
 17 | 
 18 | ```{r functions}
 19 | library(tidyverse)
 20 | 
 21 | get_seatinfo <- function(filepath) {
 22 |   read_csv(filepath,
 23 |            col_types = cols(Seat = col_character(), Version = col_factor(levels = c("A", "B")),
 24 |                             Row = col_integer(), Column = col_integer()))
 25 | }
 26 | 
 27 | get_students <- function(filepath) { read_csv(filepath, col_names = TRUE, cols_only(Student = col_character())) %>%
 28 |   filter(Student != "Points Possible") %>%
 29 |   filter(Student != "Student, Test") %>% arrange(Student)
 30 | }
 31 | 
 32 | 
 33 | roomlayout <- function(df) {
 34 |   ggplot(df, aes(factor(Column),
 35 |                  factor(Row), 
 36 |                  label = Seat, 
 37 |                  fill = Version)) +
 38 |     geom_tile(alpha = .5) + 
 39 |     geom_text() +  
 40 |     theme_classic(14) + 
 41 |     xlab("Front") + ylab("") +
 42 |     scale_fill_manual(values = c("white", "grey30"))
 43 | }
 44 | 
 45 | assign_seats <- function(sdf, seats, rows) {
 46 |   num_students <- nrow(sdf)
 47 |   num_seats <- nrow(seats)
 48 |   if (num_students < num_seats) {
 49 |     sdf[(num_students + 1):num_seats, 1] <- "Unassigned"
 50 |   }
 51 | 
 52 |   if (rows) {
 53 |     index <- 1:num_seats
 54 |     index[1:num_students] <- sample(num_students)
 55 |     tibble(Student = sdf$Student,
 56 |          Row = seats$Seat[index],
 57 |          Version = seats$Version[index])
 58 |   } else {
 59 |     index <- sample(num_seats)
 60 |     tibble(Student = sdf$Student,
 61 |          Seat = seats$Seat[index],
 62 |          Version = seats$Version[index])
 63 |   }
 64 |   }
 65 | 
 66 | ```
 67 | 
 68 | ```{r, eval=FALSE, echo=FALSE}
 69 | # converting layouts from cs3157/seatingcharts
 70 | roominfo <- read_tsv("sch501.txt", col_names = FALSE) %>% 
 71 |   rownames_to_column("Row") %>% 
 72 |   gather(key = "Column", value = "Seat", -Row) %>% 
 73 |   mutate(Column = parse_number(Column),
 74 |          Row = parse_number(Row)) %>%
 75 |   mutate(Row = max(Row) + 1 - Row) %>% 
 76 |   filter(complete.cases(.)) %>% 
 77 |   mutate(Version = ifelse(Column %% 2 == 0, "A", "B")) %>% 
 78 |   select(Seat, Row, Column, Version)
 79 |   
 80 | write_csv(roominfo, "Scher501.csv")
 81 | 
 82 | # creating a temp version with fewer Version As
 83 | roominfo <- roominfo %>% 
 84 |   filter(!(Column == 20 & Row < 10))
 85 | write_csv(roominfo, "Scher501temp.csv")
 86 | ```
 87 | 
 88 | 
 89 | ```{r}
 90 | # Start here
 91 | # 1. Download grades csv from CourseWorks and put in Documents/Students folder
 92 | # 2. Set class name to csv file
 93 | # 2. Set room name
 94 | 
 95 | class <- "stat1201test1.csv"
 96 | 
 97 | room <- "HamiltonLarge.csv"
 98 | 
 99 | set.seed(1116)
100 | 
101 | seats <- get_seatinfo(room)
102 | 
103 | rows <- TRUE
104 | # if (sum(seats$Seat == seats$Row) == nrow(seats)) rows <- TRUE
105 | 
106 | not_here <- c("Maitland, Anna", "Frascati, Grace", "Craigie, Luca", "Yu, Melissa", "Andersson, Sandra", "Rana, Ananya", "Fu, Victoria")
107 | 
108 | students <- get_students(paste0("~/Documents/Students/", class)) |> 
109 |   filter(!(Student %in% not_here)) |> 
110 |   assign_seats(seats, rows)
111 | ```
112 | 
113 | ### Seating Chart
114 | ```{r}
115 | if (rows) {
116 |   students[,c("Student", "Row")]
117 |   } else {
118 |   students %>% 
119 |       filter(Student != "Unassigned") %>% 
120 |       select(Student, Seat) %>% 
121 |       knitr::kable()
122 |     }
123 | ```
124 | 
125 | 
126 | 
127 | ```{r, eval=FALSE}
128 | ### Sorted by Seat
129 | if (rows) {
130 |   students %>% arrange(Row, Student) %>% 
131 |   select("Row", "Student")
132 | } else {
133 |     students <- students %>%
134 |     mutate(Seat = factor(Seat, levels = seats$Seat))
135 |   students %>% arrange(Seat, Student) %>% select("Seat", "Version", "Student")
136 | }
137 | ```
138 | 
139 | ### Sorted by Seat
140 | ```{r}
141 | # trying a new method that will work with Scher501
142 | if (rows) {
143 |   students %>% arrange(Row, Student) %>% 
144 |   select("Row", "Student")
145 | } else {
146 |     students %>% 
147 |     left_join(seats) %>% 
148 |     arrange(Row, Column) %>% 
149 |     mutate(Student = ifelse(Student =="Unassigned", "*Unassigned*", Student)) %>% 
150 |     select(Seat, Version, Student) %>% 
151 |     knitr::kable()
152 | }
153 | ```
154 | 
155 | 
156 | ### Room Layout
157 | ```{r, fig.width = 10}
158 | roomlayout(seats)
159 | ```
160 | 
161 | 
162 | ### Version Count
163 | ```{r}
164 | summary(students$Version[students$Student != "Unassigned"])
165 | ```
166 | 
167 | 
168 | 


--------------------------------------------------------------------------------