Update LogitWithR.r