1 R Help Page

#####################################
####### R Help Page (共 40 分) #######
#####################################


# 1. (20 分) 請先閱讀 `seq()` 的 help page，
#    再使用此函數產生一個由 `101` 至 `1`、彼此間隔 2 的等差數列，
#    亦即 `101, 99, 97, ..., 3, 1`

# Modify the code below
seq(from = 101, to = 1, by = -2)

# should print out:
#>  [1] 101  99  97  95  93  91 ... 3   1


# 2. (20 分) 請先閱讀 `sum()` 與 `mean()` 的 help page，
#    再使用這些函數計算前一題等差數列的 **總和** 及 **算術平均數** 
#    (hint: 你可能需要使用 **變數** 暫存 `seq()` 產生的等差數列)

# Modify the code below
a_seq <- seq(from = 101, to = 1, by = -2)
sum(a_seq)
mean(a_seq)

# should print out:
#>  [1] 2601
#>  [1] 51



################################
#### 整個 R Script 的執行結果 ####
###############################
#>  Rscript Q1.R
#>   [1] 101  99  97  95  93  91  89  87  85  83  81  79  77  75  73  71  69  67  65
#>  [20]  63  61  59  57  55  53  51  49  47  45  43  41  39  37  35  33  31  29  27
#>  [39]  25  23  21  19  17  15  13  11   9   7   5   3   1
#>  [1] 2601
#>  [1] 51
#>  [1] 101  99  97  95  93  91  89  87  85  83  81  79  77  75  73  71  69  67  65
#> [20]  63  61  59  57  55  53  51  49  47  45  43  41  39  37  35  33  31  29  27
#> [39]  25  23  21  19  17  15  13  11   9   7   5   3   1
#> [1] 2601
#> [1] 51

2 工作目錄

#################################
####### 工作目錄 (共 70 分) #######
#################################
# 注意：執行此 R Script 前，
# 請將工作目錄設在此檔案 (Q2.R) 所在的資料夾


# 1. (10 分) 請先閱讀 `getwd()` 的 help page，
#    並印出當前的工作目錄
getwd()   # Write your code here


# 2. (15 分) 請閱讀 `setwd()` 的 help page，
#    將工作目錄設在 `Q2.R` 所在的資料夾 (即此作業 repo)
#    注意：請使用 **相對路徑** 。 使用絕對路徑者不予給分
setwd(".")       # Modify this line of code
print(getwd())   # 請勿更動此行程式碼 (改作業用)


# 3. (15 分) 承上題，
#    請將工作目錄設在作業 repo 中的 `q2_folder`
#    注意：請使用 **相對路徑** 。 使用絕對路徑者不予給分
setwd("./q2_folder")   # Modify this line of code
print(getwd())         # 請勿更動此行程式碼 (改作業用)


# 4. (15 分) 承上題，
#    請將工作目錄設回 `Q2.R` 所在的資料夾 (即此作業 repo)
#    注意：請使用 **相對路徑** 。 使用絕對路徑者不予給分
setwd("..")     # Modify this line of code
print(getwd())  # 請勿更動此行程式碼 (改作業用)


# 5. (15 分) 請先閱讀 `list.files()` 的 help page，
#    並印出 `q2_folder` 內的所有檔案。
#    印出的路徑需是相對於當前工作目錄 (作業 repo) 的路徑
#    注意：請使用 **相對路徑** 。 使用絕對路徑者不予給分
#    (hint: 嘗試修改看看 `list.files()` 的 `full.names` 設定)
list.files("./q2_folder", full.names=T)     # Modify this line of code
# Should print out
#> [1] "./q2_folder/file1.txt" "./q2_folder/file2.txt"



################################
#### 整個 R Script 的執行結果 ####
###############################
## (依據作業系統與使用者名稱，路徑會有不同結果) ##
#>  Rscript Q2.R
#>  [1] "/home/liao/Desktop/hw2-<你的 GitHub 帳號>"
#>  [1] "/home/liao/Desktop/hw2-<你的 GitHub 帳號>"
#>  [1] "/home/liao/Desktop/hw2-<你的 GitHub 帳號>/q2_folder"
#>  [1] "/home/liao/Desktop/hw2-<你的 GitHub 帳號>"
#>  [1] "./q2_folder/file1.txt" "./q2_folder/file2.txt"
#> [1] "/home/liao/Desktop/solutions/hw2"
#> [1] "/home/liao/Desktop/solutions/hw2"
#> [1] "/home/liao/Desktop/solutions/hw2/q2_folder"
#> [1] "/home/liao/Desktop/solutions/hw2"
#> [1] "./q2_folder/file1.txt" "./q2_folder/file2.txt"