R Dichotomous.zip