added first R scripts