用 R 算眾數

今天心血來潮，想重新學一下 R 來跑統計（大概重新學過 3 次了 ...）。用金門大學 陳鍾誠 老師的教材當範例：

習題 1 : 請模擬從班上隨機抽學生一萬次，看看誰與你最有緣 (抽到次數最多)
解答：假設班上有 59 人，那麼編為 1 到 59 號，於是我們可以用下列程式，進行 1 萬次抽樣， 並繪出統計圖。
 
> x=sample(1:59, 10000, TRUE)> hist(x, breaks=0.5:60)執行結果

想說來跑一下眾數，沒想到基本 package 沒有這個功能，冏。只好開始 google。最後大概有兩種公式，簡單整理一下。
第一個

as.numeric(names(table(x)))[table(x) == max(table(x))]

連結：來源一、來源二

第二個

which.max(table(x))

連結：來源一、來源二、來源三

第三個

mode_dat=NULL
for(i in 1:1000){
dat=rnorm(1000)
ds=density(dat)
mode_dat=c(mode_dat,ds$x[which(ds$y==max(ds$y))])
}

連結：來源（看不懂

打完收工
借放：ANOVA

該用什麼軟體來寫眼動程式呢？

最近因為一些原因，想重新再了解一下眼動儀的實驗操作。如果有機會的話，或許就能發展成一整個眼動儀的簡單教學。那，我就先隨意開始吧。我這篇文章的目的是，想找到一個適合自己寫眼動程式的軟體

手邊有啥眼動儀的硬體設備

先撇除「要用眼動儀幹麻」、「眼動儀是什麼」、「眼動是什麼」之類的問題，我想先從硬體開始著手。正常來說，一般的電腦不會配備眼動儀的設備，因此需要另外添購。但通常這類型儀器價格很硬，只有一些用戶體驗相關公司、或是想了解眼動的相關科系會添購。剛好我目前就讀的心理所有一台，Eyelink 2000。除此之外，Tobii、Eye-XG Eye 等等也是商業的眼動儀器。

事實上，曾經有人用筆電的 WebCam 或是自製的方式來取代商業眼動儀器，像是 EyeWriter。甚至有人利用眼控技術來幫助漸凍人。

有什麼眼動儀軟體好用

如果你手邊的眼動儀也是 Eyelink 2000，你慘了 恭喜你，製造 Eyelink 2000 的 SR research 公司有一條龍方案：用 EyeLink Remote 在主控端電腦查看受試者狀況、用 Experiment Builder 來寫眼動程式、用 Data Viewer 來觀看、處理資料。做一個實驗需要操作三套軟體，真是可喜可樂。

但根據人人網上的一篇心得文章指出，有些程式是可以用來取代 Experiment Builder。裡頭分別提到的是：matlab（作者強力推薦）、C or C++ 圖形界面編程（第二推薦）、E-prime（簡單呈現圖片、簡單反應適用）。

現在只是先簡單了解 EyeLink 2000 可以支援哪些軟體來寫程式而已。就目前來說，我想用來寫眼動程式的優先順序是 E-prime > EB > matlab > C。但要自己從頭開始摸索，想到就覺得有點無力 ...。或許最後會妥協，用回之前使用過幾次的 EB 吧。

小結

老實說，目前 google 搜尋的結果，用來學習寫眼動程式的資料真的滿少的，而且相當不齊全（希望有機會我能夠補上一小塊）。建議最好要有領路人帶著學，不然就要有做好耗費大量時間、自己 try error 以學習的準備（默）

隨便看到的資料

1. 歪國人的 EB 簡易操作流程
2. 強國人的 EyeLink 血淚史
3. 沒說到什麼的眼動心得
4. 據說是 Eprime for Eyelink 的 Package
5. Eprime for Eyelink 的簡單說明
6. 線上遊戲眼動文獻
7. 幼兒繪本眼動文獻
8. 問豆文件
9. Video Overlay 記錄一下

當年前出走時

今天要講一對夫妻，在年前整理店面的故事

因為公司不甚合理的要求，一對本來在福利社工作的夫妻，決定在年前出走，離開已經工作七年的地方。七年，時間也滿長的。足夠把一個小孩，從國中養到大學、碩士。在年前的這幾天，除了慢慢的將生活用品、零食、飲料等東西下架，也要想法子將店內的置物櫃、冰箱等等器具清空。

距離二月也沒幾天了，公司希望在 2/1 前能淨空，於是這對夫妻開始乒乒乓乓整理店面。雖然今天是週六，但因為有些員工加班，還是有些人在走廊上走動。「唉優，年終大打掃啊」女員工A說道。夫妻簡單說了下緣由後，就繼續打掃。之後陸續有女員工B、女員工C，表達同樣的感慨，說怎麼會這樣勒。

除此之外，也有些人說了不一樣的話。「哎呀...可惜結束了...很多東西要搬走呢...這個微波爐好像還不錯啊...」女員工D邊環視店面邊說話。後來開心的帶了一個小鍋子離開。男員工E則是一進門就說「來看看還有什麼東西可以撿勒~」，最後則買了幾包沒辦法退貨的咖啡包離開。

員工F和夫妻的互動不錯，在他下班準備離開公司時，和人夫稍稍搭肩說了些保重的話。員工F是個有31年年資的太太，說這間福利社是她在工作的這段時間中，人情味最濃、與員工互動最好的。夫妻笑了笑，直說是妳不棄嫌。

雖然有人來串門子，但東西終究要整理。夫妻今天從早上七點半整理到晚上八點，還整理不完，因為東西太多了。在整理的過程，夫妻就將當初花了些錢的器具，像是冰箱、置物架等便宜賣掉，或是直接送了。有些還沒退貨的物品，也便宜賣了或直接送。

一些與夫妻合作的廠商來處理退貨事宜，也帶走了一些這年後就不存在的福利社的一些器具。這些廠商多半人還不錯，平常都與夫妻互動良好。甚至還有一個廠商幫忙用貨車載大型器具到夫妻的住所。阿，還有一個員工G，幫忙處理掉了很多帶不走的大型物品。雖然直接空拋物品上推車的作法有點可怕。

雖然可能沒機會再回來這裡了，聽起來有些感傷；但也終於不用待在這裡了，大概也算是好事吧。小孩認為父母是這樣想的。