added RiemDist.R