welfare <- c(0.1002415, 0.1280193, 0.3690239, 0.3826087, 0.3904894, 0.4054678, 0.4146424, 0.4198351, 0.4358198, 0.4420242, 0.4458278, 0.4585830, 0.4613527, 0.4753024, 0.4770451, 0.4805960, 0.4879627, 0.4944718, 0.5086200, 0.5163510, 0.5171140, 0.5224319, 0.5315114, 0.5336715, 0.5419731, 0.5520315, 0.5555537, 0.5569945, 0.5685396, 0.5700190, 0.5736672, 0.5797101, 0.5876452, 0.5916421, 0.5939159, 0.6055576, 0.6136566, 0.6231884, 0.6231987, 0.6280193, 0.6322084, 0.6345641, 0.6425664, 0.6536402, 0.6666667, 0.6704381, 0.6795669, 0.6822074, 0.6841522, 0.6936185, 0.7086109, 0.7101449, 0.7254981, 0.7335920)

jpeg(file="welf_hist.jpg")
hist(welfare, main="")
dev.off()


