swh:1:snp:4a47993778f3ff3fe6e227d2f4c1a7654fd94e50
Tip revision: 250680bc35d3a37c778bb4f324a850b521e5dadf authored by Daniel Lee on 30 January 2015, 08:03:31 UTC
Merge pull request #18 from stan-dev/feature/cleanup-old-models
Merge pull request #18 from stan-dev/feature/cleanup-old-models
Tip revision: 250680b
sesame.data.R
"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