N <- 100
n_obs <- 76
y <- 
c(76, 79, 71, 79, 73, 75, 73, 79, 74, 76, 76, 78, 80, 67, 69, 79, 72, 77,
86, 78, 82, 76, 79, 74, 70, 71, 78, 74, 67, 78, 81, 69, 79, 73, 75, 70, 77, 77,
68, 73, 79, 73, 68, 73, 78, 80, 80, 75, 72, 77, 70, 73, 80, 73, 82, 76, 77, 83,
75, 65, 79, 72, 74, 69, 79, 85, 71, 71, 72, 76, 73, 63, 84, 78, 78, 74)
