Opkuisen van R scripts code