Geometry Function In R