Cacher is the code snippet organizer for pro developers

> dat <- read.table(text = " TargetVar  Var1    Var2       Var3
+  0        0        0         7
+  0        0        1         1
+  0        1        0         3
+  0        1        1         7
+  1        0        0         5
+  1        0        1         1
+  1        1        0         0
+  1        1        1         6
+  0        0        0         8
+  0        0        1         5
+  1        1        1         4
+  0        0        1         2
+  1        0        0         9
+  1        1        1         2  ", header = TRUE)
> model<-glm( TargetVar ~  Var3 , data = dat, family='binomial')
> predict(model, newdata=data.frame(Var3=6), type='response')