library(pracma) my.function<-function(x){ sin(x)+cos(x^2) } n<-1:20 precision<-rep(0,length(n)) for(i in 1:length(n)){ out<-polyApprox(my.function, -pi/2, pi/2, n[i]) precision[i]<-out$estim.prec } par(mfcol=c(1,2)) plot(n,precision) f <- polyApprox(my.function, -pi/2, pi/2, 100)$f x <- seq(-pi/2, pi/2, length.out = 100) y <- my.function(x) - f(x) plot(x, y, type = "l", col = "blue") grid() par(mfcol=c(1,1))
遺伝学・遺伝統計学関連の姉妹ブログ『ryamadaの遺伝学・遺伝統計学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典