added read_and_sample.R this will probably replace clean1.R