ロング形式でのロジスティック回帰入力

動画で学んだとおり、二項回帰は3つの異なる形式の入力を受け取れます。 1つ目はデータを「ロング」形式にし、各観測値を直接モデル化する方法です（例: 数値の0/1や、yes/noの因子の応答）:

  x    y
1 a fail
2 a fail
3 b success
4 b fail
...

この形式では、予測子によって応答を予測する（Rの公式構文でいう response ~ predictor）という形の公式を使います。この演習では、この形式を使って回帰モデルを当てはめます。

data.frame data_long を使い、x で y を予測するロジスティック回帰を当てはめてください。
出力は lr_1 として保存してください。