Rの高速化というものを見つけたのでやってみる。 PCスペックは OS: Ubuntu 12.04 64-bit CPU: Intel Core i5-2540M 2.60GHz * 4 メモリ: 12GB R: 2.14.1 で行った。 Cでは0.16秒 Pythonでは3.66秒かかった。 他の言語は使っていないのでパスする。 Rでは [,1…

前日 1日目その1 1日目その2 2日目その1 2日目その2 3日目その1 3日目その2

おっぱい関数というものがあるらしい。 Rでおっぱい関数 Pythonでおっぱい関数 コミケに行くし、まあいいネタではなかろうか。 スクリプトはここからいただいた。

legend関数の使い方でググったのでメモ。 par(mfrow=c(2, 2)) dat <- cbind(A=sample(10,3),B=sample(10,3),C=sample(10,3)) #1枚目 matplot(t(dat),col=1:3,lwd=1:3,pch=20,type="b",xlim=c(0,3)+.5,xaxt="n") axis(side=1,at=1:3,labels=colnames(dat)) le…

ソードアート・オンラインというアニメがある。 そこで主人公のキリトのセリフでこんなのがある。 キリト 「10秒あたり400ってとこか。それがあんたら7人が俺に与えるダメージの総量だ。 俺のレベルは78。HPは14500。バトルヒーリングスキルによる自動回復が…

こんな問題があったのでRを使って解く。 1円支払うと1回引けるクジがあり、1/6の確率で当たると7円貰えるが外れると何も貰えない。このクジを複数回連続で引く時、最終的な収支が±0円以上である確率が95%を超えるのは、クジを何回引く時か。 クジを回引くと…