"y" <-
c(30, 37, 46, 14, 63, 36, 45, 47, 50, 52, 52, 29, 16, 28, 21, 45, 24, 16, 
46, 50, 48, 42, 23, 27, 13, 18, 27, 17, 20, 15, 11, 17, 43, 27, 41, 23, 
39, 12, 17, 16, 22, 19, 11, 6, 8, 48, 48, 36, 20, 13, 10, 47, 13, 32, 
15, 14, 21, 16, 15, 20, 48, 19, 31, 28, 40, 46, 43, 47, 38, 42, 49, 17, 
23, 42, 43, 48, 51, 45, 50, 30, 45, 53, 45, 21, 43, 37, 51, 20, 32, 51, 
16, 36, 40, 36, 46, 43, 42, 33, 23, 19, 47, 36, 48, 36, 42, 29, 45, 37, 
48, 48, 35, 21, 26, 32, 15, 11, 14, 19, 16, 18, 44, 16, 35, 15, 12, 18, 
15, 13, 17, 13, 31, 13, 13, 13, 36, 15, 22, 26, 13, 14, 46, 25, 26, 42, 
15, 25, 43, 27, 14, 17, 15, 16, 15, 23, 7, 14, 24, 17, 16, 37, 8, 32, 
22, 22, 28, 20, 6, 14, 15, 11, 20, 16, 29, 22, 13, 20, 12, 16, 19, 16, 
11, 16, 19, 11, 15, 14, 16, 13, 13, 24, 13, 25, 25, 43, 44, 13, 15, 0, 
18, 10, 15, 33, 19, 15, 41, 30, 24, 45, 17, 14, 15, 14, 19, 17, 16, 32, 
18, 40, 23, 23, 23, 46, 11, 20, 44, 19, 13, 15, 13, 16, 49, 13, 54, 34, 
44, 33, 26, 19, 35, 32)
"watched" <-
c(0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 
0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 
1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 
1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 
0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1)
"encouraged" <-
c(1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 
1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 
1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 
1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 
1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 
1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 
1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1)
"watched_hat" <-
  c(0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 
0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.9078947, 
0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 
0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 
0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.5454545, 
0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 
0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 
0.9078947, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.5454545, 0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.5454545, 
0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.5454545, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947, 0.9078947, 0.5454545, 0.5454545, 0.5454545, 0.5454545, 
0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 0.9078947, 
0.9078947, 0.9078947)
"N" <-
240