Rでロジスティック回帰～csvでの出力

まぁ色々あってロジスティック回帰をRでやることになりました。
ググり力を総動員したもののｃｓｖで吐いてもらうのに手間取ったのでメモ。
何かの参考になれば。

#とりあえず関数作るところは省略
result<-glm(従属~独立a+・・・+独立x)
summary(result)

#なにかしらの変数を作る。
result_sum<-summary.glm(result)$coefficients
write.csv(result_sum,file="任意の場所"

詰まったのは二か所。
1.sresultから直でcsv吐いてくれると思った。
write.csv(result)でやったらエラー吐かれてビビる。
まぁ当たり前なんですけどエラー吐くわな。なのでまた変数作って解決。
キモは$coefficientsだと思う。知らん。

2．file Pathの設定をミスる。
特に何も考えないでプロパティから選択してパスに突っ込んだらエラー
→Winのデフォを張り付けるとC\（場所）ってなってるけど\が良くないっぽいので/に書き換えて解決。もうそんなんやったらgetwd()でよかったんやってなる。

csvの整形とかはかなりできるっぽいけど関係ないので省略。ただそもそもデフォで結構がちがちなので

a	b	c
1
2
3

↓

	a	b	c
1
2
3

にするくらいかと思う。

なんしかココに詳しく書いてあったのでこの記事では省略。