R scripts bijna klaar...