library(fAsianOptions) cgamma(1i) my.cbeta <- function(a,b){ ret <- cgamma(a)*cgamma(b)/cgamma(a+b) return(ret) } my.dcbeta <- function(x,a,b){ x^(a-1) * (1-x)^(b-1) / my.cbeta(a,b) } x <- seq(from=-1,to=2,length=100) a <- -0.5 b <- -0.5 y <- my.dcbeta(x,a,b) plot(x,y)
数学・コンピュータ関連の姉妹ブログ『ryamadaのコンピュータ・数学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典