kleine aanpassing R scripr