Дмитрий В., Дмитрий, ну Вы же большой мальчик, статистику знаете, не уподобляйтесь...
ВВП на душу населения
[1] и уровень убийств
[2] в зависимости от типа демократии
[3]
Красные точки -- Full democracy
Черный -- Flawed democracy
Зеленый -- Прочее
Россия обозначена голубым цветом.
(c) Hogfather, 2013
Исходные данные во вложении
Код:
> datafile <- read.csv("datafile.csv", sep=";",dec=",")
> plot(log10(K_Level)~log10(GDP),col=DEMOCRATY, pch=19, data=datafile)
> points(log10(14037),log10(10.2),pch=19,cex=1.2,col="blue") # Россия !
> summary(lm1<-lm(log(K_Level+1)~log(GDP+1)+DEMOCRATY,data=datafile))
Call:
lm(formula = log(K_Level + 1) ~ log(GDP + 1) + DEMOCRATY, data = datafile)
Residuals:
Min 1Q Median 3Q Max
-2.0899 -0.6957 -0.1149 0.6392 2.4521
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4.97924 0.47109 10.570 < 2e-16 ***
log(GDP + 1) -0.33409 0.05163 -6.470 8.87e-10 ***
DEMOCRATYFULL -0.52308 0.23978 -2.181 0.0304 *
DEMOCRATYNONE -0.32215 0.15794 -2.040 0.0428 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8959 on 181 degrees of freedom
Multiple R-squared: 0.2788, Adjusted R-squared: 0.2668
F-statistic: 23.32 on 3 and 181 DF, p-value: 8.262e-13