beta <-
c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
