expit function in r package