preliminary bilogistic fit in R