removed old r script