ソース不明な数字だけど

"名前：名無しさん＠１周年[sage] 投稿日：2020/04/07(火) 20:29:49.57 ID:GcsEpAfR0 (PC)
他国の総感染者数が今の日本と同程度の時の死者数


イタリア,　感染3089人　死者107人
スペイン,　感染2965人　死者 84人
アメリカ,　感染3499人　死者 64人
イラン　 , 感染3513人　死者107人
フランス,　感染3661人　死者 79人
日本　　 , 感染3123人　死者 77人
"
country=c('イタリア','スペイン','アメリカ','イラン','フランス','日本')
infected=c(3089,2965,3499,3513,3661,3123)
dead=c(107,84,64,107,79,77)

df=data.frame(country,dead,infected)
df
re.lm=lm(dead~infected,data=df)
summary(re.lm)
chisq.test(dead,infected)
names(infected)=country
names(dead)=country
pairwise.prop.test(dead,infected)

> chisq.test(dead,infected)

Pearson's Chi-squared test

data: dead and infected
X-squared = 24, df = 20, p-value = 0.2424

Warning message:
In chisq.test(dead, infected) : Chi-squared approximation may be incorrect
> pairwise.prop.test(dead,infected)

Pairwise comparisons using Pairwise comparison of proportions

data: dead out of infected

イタリア スペイン アメリカ イラン フランス
スペイン 1.00000 - - - -
アメリカ 0.00066 0.11005 - - -
イラン 1.00000 1.00000 0.01762 - -
フランス 0.01843 0.79242 1.00000 0.24130 -
日本 0.24724 1.00000 0.79242 1.00000 1.00000

P value adjustment method: holm