p63 data preparation code and somem more R code