Hard to proceed in R