自動的にCSVファイルを作成してくれるプログラムです。Rプログラムの難関でした！！！！！