added pure R scripts