changed .Call to be R-3.1 compatible

all instances of
.Call("logit_linkinv", alpha + gp, PACKAGE = "stats")
changed to
p <- .Call(stats:::C_logit_linkinv, alpha + gp, PACKAGE = "stats")