強風だったのでTXのダイヤが乱れていた。東京に行くときはやはり、時間に余裕を持っていかなければ、急な出来事に対応できないと思った。千代田線も少し遅れていたようで、不安だった。時間通りにことが進まないと不安になる。なので、余裕のある生活を送り…

手書き数字について、主成分分析を行うことで、特徴抽出、画像の文字の復元することができる。https://www.kaggle.com/c/digit-recognizer/data のtrain.csvデータにheaderにlabel, pixel0 から pixel783まで定義されている。train.csvを用いて、手書き数字…

http://bayesianbiologist.com/2012/08/13/the-essence-of-a-handwritten-digit/で使われている https://www.kaggle.com/c/digit-recognizer/data のtrain.csvデータにheaderにlabel, pixel0 から pixel783まで定義されている。 28*28(=784)の手書き画像が42…

Integrate[Exp[-(s^2/2)]*Cosh[s], {s, -Infinity, Infinity}] は、 s=seq(-5,5,,1000) plot(s,exp(-log(2)-2*log(cosh(s))),xlim=c(-5,5),ylim=c(0,0.8),type="l") par(new=T) plot(s,(1/sqrt(2))*exp(-sqrt(2)*abs(s)),xlim=c(-5,5),ylim=c(0,0.8),type="l…

library(RImageBook) #biOpsの場合 f <- readImage(system.file("images/lena2.tif", package="RImageBook")) lenab = readTiff(f) とやったら、 TIFFOpen: 0.886274509803922: Cannot open. 以下にエラー readTiff(f) : Cannot open file. とでて読み込めな…