q<-rnorm(10000) j<-density(log(q)) qq3[t]<-exp(mean(j$x[which(j$y==max(j$y))])) plot(density(q)) abline(v=log(qq3[t]),col=3)

（１）まず、Wikipedia で検索。。 （２）英語で検索（Wikipediaの似たページでその検索語の表現を確認） （３）Wikipediaの英語訳にとぶ。 （４）調べるワードがわかなければ Wolfram Alpha につっこんでみる http://www.wolframalpha.com/ （５）その際、M…