added geostats code

added some r code