Dip Test

此統計量是經由直接比較樣本分配函數(empirical distribution function)與其最接近的具單峰機率之分配函數間的差距，所得到的一個非參數檢定統計量，它的優點之一是其不須要倚賴非參數曲線估計，但是，它跟其他檢定峰數的非參數統計量有同樣的困難，就是不易以它建造一個具有準確水準的檢定。其難處在於如何對此統計量之值刻度 (亦即決定判斷點(critical point) 的問題)。因為虛無假設下之所有單峰分配的集合構成一無限維度的函數空間。

[R] 先安裝diptest package
載入library: library("diptest")
dip(x, full.result = FALSE, debug = FALSE)

Ref:
1. The Dip test of unimodality, by Hartigan (1985)
Ann. Statist. Volume 13, Number 1 (1985), 70-84
2. Package ‘diptest’ (2009)
http://cran.r-project.org/web/packages/diptest/diptest.pdf
3.鄭明燕-檢定機率密度函數峰數的非參數方法
http://nr.stpi.org.tw/ejournal/natscinews/v12n3/97-98.pdf

杜月笙語錄

句句反映處世之道

1.不要怕被別人利用，人家利用你說明你還有用

2.吃是實功，賭是對沖，嫖是落空

3.花一文錢要收到十文錢的效果，這才是花錢能手

4.做事要做到刀切豆腐兩面光

5.做人有三碗面最難吃： 人面 場面 情面

6.對人必須誠懇，即使有人欺瞞我于一時，我總能以誠字來感動他，使他心 悅誠服。我的處世之道，盡在一個誠字，你們舉一反三，方始可以談交友

7.杜先生還曾經對一個有文化的朋友說過：你原來是一條鯉魚，修行了500年跳 了龍門變成龍了，而我呢原來是條泥鰍，先修煉了1000年變成了鯉魚；然後在修煉500年才跳 了龍門，倘若我們倆一起失敗那你還是一條鯉魚而我可就變成泥鰍拉你說我做事情怎麽能不謹慎呢？

8.頭等人,有本事,沒脾氣; 二等人,有本事,有脾氣; 末等人,沒本事,大脾氣。

9.杜月笙有句挂在嘴上的話：小心得天下，大意失荊州

10.人活在世上要靠兩樣東西，膽識和智慧

11.錦上添花的事情讓別人去做,我只做雪中 送炭的事情。

12.錢財用的完，交情吃不光。所以別人存錢，我存交情。存錢再多不過金山 銀海，交情用起來好比天地難量！

13.每月存款折上多幾個零不算你有多少錢，花出去多少錢才算你有多少錢。

14.前半夜想想自己，後半夜想想別人

15.君子我不怕，毛賊我不惹！

16.事不要做絕，要留有餘地！(凡事太盡，緣必早盡)

[R]增進R執行速度

1. 避免讓 R 自動增加向量長度
如果可以先將變數給定長度大小,如x<-numeric(lengtj(1000))
的執行速度會比x<-numeric()來的快
2. 使用向量運算取代迴圈計算
i<-1:10000
x<-cos(i)
會比
for(i in 1:10000) {
x[i] <- cos(i)}
來的快