http://www.sciviews.org/Tinn-R/ Rのテキストエディタ

走者ベクトルを付け加えるやり方で進めることにした。 ここで問題となるのが、超低い確率だが3アウトまで行きつかねぇってときにうわ〜。 ということで制限設けて強制終了することで、終了しない事態、を防ぎましょう。 p<- seq(from=0,to=1,by=0.01) #アウ…

薬理学実習なるものがありました。 実習項目はいくつかありましたが、時間の都合上2つだけしかできませんでした。 交感神経・副交感神経作用薬による血圧調節 まあ何をするかざっくり言うと、アドレナリンとアセチルコリンを投与して血圧変化を追いましょう…

とりあえずこちらの3つめのやり方でかいてみた。 library(MCMCpack) batter <- rbind(c(0.71,0.20,0.06,0.01,0.02), # これをいろいろ振ってみる c(0.71,0.20,0.06,0.01,0.02), c(0.71,0.20,0.06,0.01,0.02), c(0.71,0.20,0.06,0.01,0.02), c(0.71,0.20,0.06…

g<- function(x){ # xは条件分岐の信号的なもの pattern<- 0 # 走者パターンとか score<- 0 # 得点 switch(x, # switch関数内のxは1以上の整数しか扱ってくれないらしい (pattern<- 1) && (score<- 0), # x=1なら、こうなる (pattern<- 2) && (score<- 1), #…

プログラムを動かすために、必要な定義。 イニング アウト 打者 打席 塁 打撃パターン 得点 ふたつチームを作って勝負させようと思っていたが、ひとつのチームで9イニング勝手にやったら何点取れるかをヒストグラムにして分布を考えるのも手だ。 やり方ひと…

text \begin{equation}A=\begin{pmatrix}a_{11}&a_{12}\\a_{21}&a_{22}\end{pmatrix}\end{equation}

グリコにかわって新しいネタをやろう。 野球ネタです。 4番松井は勝てるのか 野球では4番にホームランを打てるパワーヒッターをよくもってくるけど、戦術としてこれは最適なのか これをシミュレーションで考えてみよう。 つまり 4番パワーヒッターが一番勝ち…

インなんたらさんにくぎゅぅが出ていたﾊｧﾊｧ。神経科学の学生発表がありました。 どの班も手の込んだスライドを作っていて、試験に向けていい復習になった。 学生からの質問も例年に比べて活発で、教官方は非常に満足しておられたっぽい。 自分の班は注意の神…

『らき☆すた』と学ぶ 化学[理論編]が面白いほどわかる本作者: 松原隆志,美水かがみ出版社/メーカー: 中経出版発売日: 2010/10/07メディア: 単行本（ソフトカバー）購入: 12人 クリック: 1,063回この商品を含むブログ (8件) を見る高校生のときの衝撃は忘れな…

この前の先生からのメール。 本来は癌の病態や治療に興味があったから進学したわけであります（今となっては見る影もない…サーセンｗ）。 有名なのはRBのtwo hit theoryだが、まあぼや〜と思いついたのが癌集団中の癌幹細胞のポピュレーションが閾値を超えた…

ねんどろいど 初音ミク (ノンスケール ABS/PVC塗装済み可動フィギュア)出版社/メーカー: グッドスマイルカンパニー(GOOD SMILE COMPANY)発売日: 2009/05/11メディア: おもちゃ＆ホビー購入: 11人 クリック: 750回この商品を含むブログ (223件) を見る第5次再…

バグ取りして修正してみた。 N<-10 #ジャンケンする回数 library(gtools) #とりあえず全通り出す cmb<- combinations(5,N,repeats.allowed=T) num<- nrow(cmb) #A→1、B→2、C→3、D→4、E→5 と変換 ABCDE.count<- matrix(rep(0,5*nrow(cmb)),nc=5) for(i in 1:n…

とか毎回言ってんだろ？ おれもその一人ですけど何か？ 今期はヨスガノソラに期待。 原作探しちゃったよ… 今週のセミナーでは、バグをとろうということで そういうときどうしたらいいかで、小さいものを代入してみようと。 あとは言葉をよく知らなかったとい…

N 50でやってみて、極端なをとりあえず入れてみた。 #極端にグーを出す > probability [1] 6.156864e-22 > p [,1] [,2] [,3] [1,] 1 1.44129e-34 6.978894e-16 #極端にチョキを打す > probability [1] 1.207472e-21 > p [,1] [,2] [,3] [1,] 5.768531e-06 0.…

で、を固定したとき +6歩進む確率 出る回数A +3歩進む確率 出る回数B -3歩進む確率 出る回数C -6歩進む確率 出る回数D 0歩進む確率 出る回数E 一回のグリコでN回ジャンケンすると A〜EをN個重複を許して並べるやり方は通りあって、このうち ・・・（1） を満…

初音ミク/DVD「ミクの日感謝祭 39's Giving DayProject DIVA presents 初音ミク・ソロコンサート〜こんばんは、初音ミクです。〜」出版社/メーカー: ジェネオン・ユニバーサル発売日: 2010/09/01メディア: DVD購入: 4人 クリック: 84回この商品を含むブログ …