Rで順列の生成

ins=function(v,o)sapply(length(v):0,append,x=v,value=o)
perm=function(n){
  if(n==1) as.matrix(1)

  else matrix( apply(perm(n-1),2,ins,o=n) , nrow=n )
}


> perm(3)

      [,1] [,2] [,3] [,4] [,5] [,6]

 [1,]    1    1    3    2    2    3
 [2,]    2    3    1    1    3    2
 [3,]    3    2    2    3    1    1

Rの勉強のために順列の生成に挑戦した。悪戦苦闘の末、上のようなコードを編み出した。
サンプルとして表示しているのは１・２・３からなるすべての順列で、各列が１つ１つの順列をあらわす行列である。

Rのデータセットのサンプルコードを集める

Rには多くのデータセットがあり、それらを用いたサンプルコードがある。たとえば、example(Titanic)で、データセットTitanicのサンプルコードが実行されて、モザイクプロットが表示される。
サンプルコードは大変参考になるので、そのコードのみを集めるコード。

RStudio+Sweave+日本語

　あけましておめでとうございます。
　ＲＳｔｕｄｉｏのＳｗｅａｖｅで日本語が通るようにした。参考にしたのはteramonagiさんのブログ。
　使用しているＴｅＸはＴｅＸＷｏｒｋｓをインストールしたときに一緒に入ったｗ３２tex。

1. ae.sty と Sweave.styをSweaveソース(.Rnwファイル）を置くところに置く。
2. RStudioのSweaveのデフォルト設定ではPdfLaTeXとなっているのを、LuaLaTexに変更するために、RStudioのconsoleで、次を実行。
   Sys.setenv(RSTUDIO_PDFLATEX="C:\\w32tex\\bin\\lualatex.exe")
3. RStudioのメインメニューから「File→New File→R Sweave」で新規作成したら、次の１行を追加。
   \usepackage{luatexja}