fix r script