[R] Question on function "glm.fit"

[DEVAS, Vipul]

I have a code that contains function "glm.fit" and it works in S-PLUS.  But
this same code (with some minor changes) does not work in R.  I am supplying
the part of the code.  Can somebody help with this problem?
The code
***************************************************
x1 <- seq(from=-1,to=2, length=20)
x2 <- (rep(1:5,4))/4
x <- cbind(1,x1,x2)
y <- c(0,1,1,1,1,1,0,0,1,1,1,0,1,0,1,1,1,1,1,1)
glm.fit(x,y,fam=binomial(link=logit))$coeff
*********************************************************

My email address is "vipul.devas at rp-rorer.com"

Thank you.

Vipul 
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._