團結的可愛
市民朋友非常團結也非常可愛，幾乎已經95%以上的市民朋友已經戴上口罩，這一點要特別感謝各位，也拜託大家持續進行。
另一方面，高雄市勸導期已經過了，如果沒戴口罩，很抱歉，市府一定會照相關法律嚴格執行。
今天中央宣布，全國三級警戒、以及停止到校上課，延長到6/14（一）。
⭐高雄市也宣布：
1⃣停課期間，持續照顧弱勢學生健康，針對7000多名低收入戶學生，假日不間斷發放安心餐食券。
2⃣居家隔離住到防疫旅館的部分，回溯至5/1，高雄市每天會再補貼五百元，減輕市民朋友負擔。
3⃣勞工朋友，我們也非常關心。齊心防疫市府挺你，推出「勞工失業生活補助方案」、「安心就業計畫」、「職訓津貼補助」，詳請請參考市府網站紓困專區：https://reurl.cc/ogzVgq ，有任何疑問，也可打電話 07-7330823分機307。
另外，為了確保長輩朋友的健康安全，所以現在護理之家、老人福利機構等住宿型長照機構，實施住民入住管制，非現有住民禁止入住。
現有的住民若因生病住院，出院之後，可以住進原來的機構；緊急安置的保護性個案，需經核酸PCR的檢測為陰性，才可以入住。
.
大家一定會好奇，為什麼我們天天要做疫調、要進行居家隔離？
這其實是傳染病傳播非常有效、也很重要的方式。
和大家說明流行病學上「匡列接觸者」、「保持社交距離與戴上口罩」的重要。
在流行病學中，有個常用來判斷傳染病傳染力的重要指標「R₀ 基本傳染數」(Basic Reproduction Number)，R₀ 指數就是指一個確診感染病患者會傳染給其他人數的平均值。
(B)這張圖中，可以看到，一旦我們越早找到接觸者、找到越多接觸者，R₀ 指數就越低。
假如我們從他症狀發作到隔離的天數來做一個判斷，第一天把病人隔離，可以傳染給1.64個人；但等到第五天才追到，每一個人可以傳染給2.36個人，相差約三成。
而追蹤到的接觸者越多，隔離的人越多，數值會往下掉，對於抑制疾病的傳播也非常有效。
(A)這張圖則顯示，假如你的個人衛生（戴口罩），再加上你的保持社交距離，這個數值R0會從1.86一直降到0.35，減少大約八成，個人衛生、保持社交距離，其實還是防疫最有效的工具。
若R₀指數 < 1時，表示傳染病將會逐漸減少，疫情就會趨緩。因此站在公共衛生的角度，就是將傳染病的R₀指數降至1以下。怎麼做到？找到越多接觸者、做好個人衛生、及保持社交距離。
再次提醒市民朋友：一定要外出全程配戴口罩喔！
r判斷式 在 Re: [問題] 用R數據條件判斷分類- 看板R_Language 的八卦
我的想法是用簡單的條件式去判斷就好，不用寫迴圈。
下面只是把你的目的寫成條件式，再加一個保險，避免丟進去的物件不是兩個元素：
####
multiple_judges <- function(x) {
if (length(x) != 2) {stop("The input should have 2 elements.")}
# 如果丟進去的東西不是兩個值，程式會警告並停止執行
else {
if (x[1] >= 1 & x[1] <= 3 & x[2] == "M1") {return("K1")}
# 甲介於1~3間，且乙= M1得到K1
else if (x[1] >= 4 & x[1] <= 6 & x[2] == "M2") {return("K2")}
# 甲介於4~6間，且乙= M2得到K2
else if (x[1] >= 7 & x[1] <= 9 & x[2] == "M3") {return("K3")}
# 甲介於7~9間，且乙= M3得到K3
else {return(NULL)}
}
}
multiple_judges(X1)
multiple_judges(X2)
multiple_judges(X3)
####
應該可以得到你想要的結果～
※ 引述《hizerg (路過的人)》之銘言：
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
:
: 入門(寫過其他程式，只是對語法不熟悉)
:
: [問題敘述]:
: 請簡略描述你所要做的事情，或是這個程式的目的
: 多組數值(甲、乙)
: 甲介於1~3間，且乙= M1得到K1
: 甲介於4~6間，且乙= M2得到K2
: 甲介於7~9間，且乙= M3得到K3
: 1.產生資料
: A <- c(1, 3, "M1", "K1")
: B <- c(4, 6, "M2", "K2")
: C <- c(7, 9, "M3", "K3")
: X1 <- c(5, "M1")
: X2 <- c(4, "M2")
: X3 <- c(8, "M3")
: 當X1資料丟進去判斷，得到K1
: 當X2資料丟進去判斷，得到null
: 當X3資料丟進去判斷，得到K3
: 這個用迴圈寫會比較好?(完全沒頭緒)
: 謝謝各位前輩
:
: [環境敘述]:
:
: R version 3.3.3 (2017-03-06)
: Windows 7 x64 Service Pack 1
:
: [關鍵字]:
:
: R語言多重數據判斷分類
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.225.139.194
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1489669988.A.D66.html
※ 編輯: clsmbstu (36.225.139.194), 03/16/2017 21:16:27
... <看更多>