test.Rの更新

ベクトルをもらった時にやる作業