新たに47人の感染確認と発表しただけで検査数を公表しないなぁ。
47人が検査陽性として、感度0.6特異度0.9として昨日からの有病率に変化がないとして検査をうけた人数を推測してみる。

pn2ip <- function(N,R,sen=0.6,spc=0.9){
# N:検査人数 R:陽性数 sen:感度 spc:特異度
x = ((spc - 1) * N + R)/(spc + sen - 1)
c(infected=x,prevalence=x/N)
}
pn2ip(74,41)

Rr2N <- function(R,r,sen=0.6,spc=0.9){
# R:検査陽性数 r:既知の有病率 sen:sensitibity spc:specificity
N = R/(spc *(r - 1) + (sen - 1)* r + 1)
return(N)
}
r=pn2ip(74,41)[2]
Rr2N(47,r)