Create pdist.R