chisq.test()の自作（3種類で9回試行する場合） 「関数をつくる」ことと「関数で計算する」ことをごちゃまぜにしていたので、ちゃんと分けて考えることにする。あと、「何の関数なのか」のメモも基本的にするようにして、整理しながら進めようと思う。 f1<-f…

行列化 午前中全部使ってやっと成功した。終わってみるとなんていうことはない話だが、かなり苦労した。やはりまだまだ習熟が足りない。 f1<-function(i){ y<-c() for (j in 0:(9-i)){ x<-c(i,j,9-i-j) y<-c(y,x)} ;y } f2<-function(){ z<-c() for(i in 0:9…