R Software Script used within this study