Added 95 % confidence inteval calcultion using R