Monday, November 28, 2011

[MS WORD] Caption


Computer tips 1 is putting Caption in WORD.

- How to set updated caption automatically?
Right click picture > Insert caption.

- How to cite in text keeping the link of update ?
References > Cross-reference.
(Note: font change seems not easy)

Voila.

Wednesday, November 23, 2011

Words

戦略というのは、外からは見えない。戦が始まる前は、あいつはばかだと、アホだと思われるのがベストな在り方なんです。すでにもうあれがあります、これがあります、こういう準備ができています、だから勝てますと早々とご開陳するのは、それは戦を知らない人間がやることです。。(孫正義)

Saturday, November 19, 2011

Buying ANA ticket

いつ使うべきか?割引の期間を参照。
「旅割」28日前までに予約・ご購入
「スーパー旅割」45日前までに予約・ご購入(利用不可期間あり)
旅割チケットのキャンセル料:航空券代金の50%

価格例
2011年1月7日 広島-成田 22800円 (日時変更可能なら30000円)
(ちなみにこの日JAL便はない)

Tokyo-Paris (one way): 6194 miles
Accumulated 12000 miles -> 18000 yen coupon

マイレージ登録済み。
マイレージクラブのサイトで積算マイル確認可能。
https://www.ana.co.jp/asw/AMCTopServlet?type=a

Sunday, November 13, 2011

PP plot and QQ plot

There are two methods that visually compare two distributions. One of them can be the theoretical distribution so the other can be tested if it fits the theoretical one. In both methods, if the distributions are similar, the plots aligns on the y = x line.

QQ plot is much easier to plot. "Most people these days prefer the qqplot to the pp plot, the qq-plot gives more room to the set of points that are generally most interesting."


1. PP plot (P: probability)
Basics
Compare two distributions by plotting the two cumulative distribution functions (CDF) against each other.

---------------------------------------------------------
# Ex.
# Generate dummy distributions

dist_1 <- rvonmises(n=50, mu=circular(0), kappa=0.1)
dist_1 <- as.vector(dist_1)
dist_1 <- dist_1 %% pi
dist_1 <- sort(dist_1)
cdf_dist_1 <- dist_1/pi
# CDF of the uniform distribution
# f(x) = 1/(b-a) (a<x<b)
#       0       (x<a or x>b)

# Generate model distributions
i <- 1 : length(dist_1)
cdf_dist_model <- i/(length(dist_1)+1)


# Plot: This is the PP plot.
plot( cdf_dist_1, cdf_dist_model, xlim=c(0,1), ylim=c(0,1), pty="s" )
abline(0,1)
mtext( side=3, line=1, text=paste("PP plot"), cex=1.5)


---------------------------------------------------------
Extension
pp.plot : Plots the empirical distribution of a data set against the best fitting von Mises distribution function



2. QQ plot (Q: quantile)
Basics
Compare two distributions by plotting their quantiles against each other.
q-quantile (0 =< q =< 1) is the value that divide distribution into q:1-q.
---------------------------------------------------------
# Ex.
# Generate dummy distributions
dist_1 <- rt(200, df = 5)
dist_2 <- rt(200, df = 5)


# SORT two distributions
dist_1 <- sort(dist_1)
dist_2 <- sort(dist_2)


# Just plot: This is the QQ plot.
plot(dist_1, dist_2)


---------------------------------------------------------

Extension
The nb of data of x and y can be different. We just see the quantile data point. This program is prepared in R.
qqplot (dist_1, dist_2)

http://tolstoy.newcastle.edu.au/R/e2/help/07/09/26619.html
http://astrostatistics.psu.edu/datasets/R/html/stats/html/qqnorm.html
http://rss.acs.unt.edu/Rdoc/library/e1071/html/probplot.html : Seems to be PP plot package
http://en.wikipedia.org/wiki/Uniform_distribution_(continuous)
http://cse.naro.affrc.go.jp/takezawa/r-tips/r/60.html : CDF functions in R

Télé française

On peut consulter les chaînes de télé ici.
http://tv.sfr.fr/guide-tv/programmes/Chaines-Incluses-34/1321210800/

Voici quelques chaînes qui a l'air pour moi.
15: 24 hours news
84: Tv5 monde
260: CNN
270: NHK world

Sinon on peut même regarder la télé sur internet.
http://tv.sfr.fr/tv-pc/
La qualité n'est pas super mais ça va, c'est en fait mieux que keyhole tv.