老師你好
我的代碼是MIDTERM2_083
Q2 我的code如下
str_smallClosest <- function(chrNumber,criticalNumber){
yes <- chrNumber<= criticalNumber
choose <- c(as.integer(chrNumber)*yes)
answer <- max(choose)
require <- as.character(answer)
return(require)
}
str_smallClosest
在更改過輸入的數字後仍是可以執行的
還請老師再檢查一下，謝謝老師

FINAL_410773116
4.1時區轉換函數
老師您好，我的程式碼和答案對照過了，應該是一樣的，但批改出來是錯的，我想知道在哪裡出了問題，謝謝老師。
以下是我的程式碼：
tzChange<-function(chrDateTimeInput,fromTz,toTz){
with_tz(ymd_hms(chrDateTimeInput,tz=fromTz),tzone=toTz)->a
as.character(a)
return(a)
}
tzChange
以下是老師給的答案：

----ans41f--------------------------------------------------------------

tzChange <- function(chrDateTimeInput,fromTz,toTz){
return(
as.character(
with_tz(
ymd_hms(chrDateTimeInput,tz=fromTz),
tzone=toTz
)
)
)
}

tzChange

老師您好 我的學號是410473051
我想請教我的第三題及第四題 寫法跟解答差不多 但是跑出來都是錯的 想請問老師要如何修正
以及第一題的錯誤是因為最後沒有轉成字串return嗎
謝謝老師~

老師您好，關於這次的考試我真的很認真準備了
只是我好像真的沒什麼天份...
所以想來求情
我第一題只差stringsAsFactors = FALSE其他都一模一樣了
可否請老師給我一點同情分
謝謝老師
真心希望自己可以不要被當的學生上

老師你好~

我的代碼是 MIDTERM2_028

Q1.1 我沒有打 stringASFactor=F 其他code 都一樣

Q4 我的code如下
(在考試時太緊張 我忘了打下面標記的地方 可否給分?)

at<-invoiceList$訂單時區=="Asia/Taipei"
ny<-invoiceList$訂單時區=="America/New_York"

invoiceList$UTC時間**[at]**
<-with_tz(ymd_hms(invoiceList$訂單時間(以訂單時區顯示)[at],tz="Asia/Taipei"),tzone="UTC")
invoiceList$UTC時間**[ny]**
<-with_tz(ymd_hms(invoiceList$訂單時間(以訂單時區顯示)[ny],tz="America/New_York"),tzone="UTC")
invoiceList
謝謝老師~

老師您好，我的期末考檔案代碼是FINAL_027
想請問第一題批改後為什麼是錯的
以下為我的程式

----ans1f---------------------------------------------------------------

str_smallClosest

str_smallClosest<-function(chrNumber,criticalNumber){
as.numeric(chrNumber)->numNumber
nunNumber<=criticalNumber->logiTrue
max(numNumber[logiTrue])->maxNum
return(as.character(maxNum))
}
str_smallClosest

以下為老師的參考答案

----ans1f---------------------------------------------------------------

str_smallClosest <- function(chrNumber,criticalNumber){
as.numeric(chrNumber) -> numNumber
logiTrue <- numNumber <= criticalNumber
max(numNumber[(numNumber <= criticalNumber)]) -> maxNum
return(as.character(maxNum))
}

str_smallClosest

想請老師再幫我看一下第二題錯的地方！

另一點是第3-2題，
我了解if-else不能適用於多個邏輯判斷值(只會判斷第一個)，但由於我在程式前幾行就先設定的c(101,104,105,107)是按照排序的，也就是說只要entrance year>=101就一定找得到資料，想請問這題錯誤的地方為何呢？

感謝老師
沁妤

FINAL_074
老師您好
想請問老師第一題要怎麼修改，我不知道我是哪邊出錯了
（我剛試過可以跑得出答案） 學號：410773019
謝謝老師

----ans1f---------------------------------------------------------------

str_smallClosest <- function(chrNumber,criticalNumber){
as.numeric(chrNumber) -> chrNumber
logiNum <- (as.character(chrNumber) <= criticalNumber)
maxNum <- max(chrNumber[logiNum])
return(maxNum)
}
str_smallClosest(c(10,12,11),13)
str_smallClosest

str_smallClosest

參考答案

----ans1f---------------------------------------------------------------

str_smallClosest <- function(chrNumber,criticalNumber){
as.numeric(chrNumber) -> numNumber
logiTrue <- numNumber <= criticalNumber
max(numNumber[(numNumber <= criticalNumber)]) -> maxNum
return(as.character(maxNum))
}

str_smallClosest

老師您好:
可以請問為甚麼第一題會被打錯嗎?
我的寫法:
str_smallClosest<-function(chrNumber,criticalNumber){
as.numeric(chrNumber)->numNumber
logiTrue<- chrNumber <=criticalNumber
max(numNumber[logiTrue])->MaxNum
return(as.character(MaxNum))
}
str_smallClosest
參考答案:
str_smallClosest <- function(chrNumber,criticalNumber){
as.numeric(chrNumber) -> numNumber
logiTrue <- numNumber <= criticalNumber
max(numNumber[(numNumber <= criticalNumber)]) -> maxNum
return(as.character(maxNum))
}

str_smallClosest
謝謝老師

FINAL_085
老師您好，想問我4-1這裡是哪裡錯了，我執行的時候答案一樣，謝謝老師。
tzChange <- function(chrDateTimeInput,fromTz,toTz){
chrDateTimeInput1 <- ymd_hms(chrDateTimeInput,tz = fromTz)
chrDateTimeInput2 <- with_tz(chrDateTimeInput1,tz = toTz)
return(chrDateTimeInput2)
}
tzChange

老師您好，我的考卷檔案代號為「MIDTERM2_023」
請問第一題少寫「stringsAsFactors = FALSE」一行
是否能部份給分呢？

謝謝老師

老師您好，我的作業代碼是MIDTERM2_094
我想說我真的有認真在準備考試，但是Midterm2考出來真的還是沒辦法...
因為真的很怕被當，所以厚著臉皮來請問老師有些有打出來的是否可以部份給分?
以下:

Q1.1
真的只差 stringsAsFactors = FALSE 其他都一模一樣了

Q3.1
少了list裡面的list
我的答案如下
EconCourseSelectionInfo <- list(
"101" = "http://www.econ.ntpu.edu.tw/econ/files/Way/2016072195021.doc",
"104" = "http://www.econ.ntpu.edu.tw/econ/files/Way/2016072195041.doc",
"105" = "http://www.econ.ntpu.edu.tw/econ/files/Way/20170516144353.doc",
"107" = "http://www.econ.ntpu.edu.tw/econ/files/Way/20180518121643.pdf"
)
EconCourseSelectionInfo

Q4Q5雖然都錯
但是應該真的能看出來我有盡力的複習上一次midterm
老師今天有說不應該是看你的答案去想
但是真的想不出來了，不過也有盡力理解老師的答案了
結果答題還是答成這樣...

Q4的話我好像真的錯太多了

不過想請問Q5
是不是前面的str_replace存回去 sampledTranscriptData$系級 就可以了
str_replace(sampledTranscriptData$系級,"1","")
str_replace(sampledTranscriptData$系級,"2","")
str_replace(sampledTranscriptData$系級,"3","")
str_replace(sampledTranscriptData$系級,"4","")
str_sub(sampledTranscriptData$學號,5,6) -> sampledTranscriptData$系碼
(sampledTranscriptData$系碼 != 73 & sampledTranscriptData$系級 == "經濟學系") -> changeMajorStudent1
unique(changeMajorStudent1) -> changeMajorStudent
changeMajorStudent

謝謝老師撥空看
誠心希望R能過的學生敬上