Created R file for diffusion map calculations