アールメカブ

Rの備忘録

まずパッケージのサンプルを実行してみる

open3d()
    famnum <- rep(1:4, 8)
    family <- c("serif", "sans", "mono", "symbol")[famnum]
    font <- rep(rep(1:4, each=4), 2)
    cex <- rep(1:2, each=16)
    text3d(font, cex, famnum, text=paste(family, font),adj = 0.5, 
           color="blue", family=family, font=font, cex=cex)

何だか目が回る画像だな．