added R programs for feeding data