## ===========
## 作業一(10%)
##============

## 一、請用幾行R指令將作業指定的SPSS檔（在課程網站上）轉換成R可以讀取的格式。
## 二、參考問卷（questionaire），簡單分析一下你覺得有興趣的變數。
## 三、將以上程式碼存成一個R檔（記得使用大寫的副檔名）。
## 將R檔在2009.10.27上課前以E-mail給老師（注意：請寄到csliu@faculty.nsysu.edu.tw，寄到其他信箱老師可能會漏回或晚回信。）

library(foreign)
## TEDS08L <- read.spss("/home/ashan/data/TEDS2008L_Indepnedence/TEDS08L_indQ.por",
##                    use.value.labels=FALSE,to.data.frame=TRUE, max.value.labels=10)
## save(TEDS08L,file="/home/ashan/data/TEDS2008L_Indepnedence/TEDS08L_indQ.rda", compress=TRUE)

TEDS08L <- read.spss("D:/teaching/statistics/data/TEDS08L_indQ.SAV",
                   use.value.labels=FALSE,to.data.frame=TRUE, max.value.labels=10)
save(TEDS08L,file="D:/teaching/statistics/data/TEDS08L_indQ.rda", compress=TRUE)



##重新開啟Emacs&R
load("/home/ashan/data/TEDS2008L_Indepnedence/TEDS08L_indQ.rda")
names(TEDS08L)