x = data.frame(
id   = c(1, 2, 3, 4, 5),
sex = c(1, 0, 1, 0, 1),
migration  = c(0, 1, 0, 1, 0),
handicap = c(0, 1, 1, 1, 0),
east = c(0, 1, 1, 1, 0),
fear = c(1, 3, 4, 6, 3),
expectation = c(2, 3, 2, 5, 4))