R help - Jun 2011 - a Weighted Least Square model for a binary response variable

Dear R Users,

I would like to use R to fit a Weighted Least Square model for a
binary response variable, say Y.  The model is actually the model
widely used for a binary dependent variable when the logistic model
has not been invented. The weight is 1/(E(Y)(1-E(Y)).

Could someone help me out? Thanks for any replies in advance!

Best Regards,
Vivian