R语言二元逻辑回归,如何给因变量赋值

因变量outcome显示factor为1和2,如何转为0和1,让0代表失败,1代表成功,因为我想预测成功率。第七条代码应该如何修改才好