Seminar 15/01

knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='Figs/',
                      echo=FALSE, warning=FALSE, message=FALSE, error = FALSE)

Long story short: I’ve done 3 questions from the 1st ex. and the whole 2nd ex.

##       vote            job             gndr           nwspol      
##  Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :  0.00  
##  1st Qu.:1.000   1st Qu.:2.000   1st Qu.:1.000   1st Qu.: 30.00  
##  Median :2.000   Median :2.000   Median :2.000   Median : 60.00  
##  Mean   :1.711   Mean   :1.909   Mean   :1.614   Mean   : 89.75  
##  3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:120.00  
##  Max.   :2.000   Max.   :2.000   Max.   :2.000   Max.   :900.00  
##   immigr_good        pol_int          educ_int         marit          
##  Min.   : 1.000   Min.   :0.0000   Min.   :0.0000   Length:474        
##  1st Qu.: 4.000   1st Qu.:0.3300   1st Qu.:0.0000   Class :character  
##  Median : 6.000   Median :0.6600   Median :0.1667   Mode  :character  
##  Mean   : 5.629   Mean   :0.5036   Mean   :0.3165                     
##  3rd Qu.: 7.000   3rd Qu.:0.6600   3rd Qu.:0.6667                     
##  Max.   :11.000   Max.   :1.0000   Max.   :1.0000                     
##    rel_belong       trstparl           age       
##  Min.   :1.000   Min.   : 1.000   Min.   :16.00  
##  1st Qu.:1.000   1st Qu.: 3.000   1st Qu.:47.25  
##  Median :1.000   Median : 6.000   Median :67.50  
##  Mean   :1.473   Mean   : 5.249   Mean   :61.41  
##  3rd Qu.:2.000   3rd Qu.: 7.000   3rd Qu.:76.00  
##  Max.   :2.000   Max.   :11.000   Max.   :94.00

Exercise21

Сравните средний возраст голосовавших и неголосовавших респондентов в зависимости от того, была у них когда-нибудь оплачиваемая работа или нет. Вычислите: среднее, стандартное отклонение, минимум, максимум, смещение (skewness), эксцесс (kurtosis).

1

Среди тех, кто голосовал, средний возраст выше у тех, у кого была работа, или у тех, у кого не было работы? Назовите оба возраста, округлите значения до целых, укажите стандартное отклонение.

Answer: those who had no job - 55 is the average age, standart deviation us 21.2. Those, average age of those, who voted and had a job, is 35 y.o.

2

Доля тех, кто голосовал и никогда не работал. Answer: 4.2%

##    
##             1         2
##   1  4.852321 24.050633
##   2  4.219409 66.877637

3

Каков максимальный возраст респондентов (голосовавших и неголосовавших по отдельности), у которых никогда не было работы?

Answer:

##       vote            age       
##  Min.   :1.000   Min.   :18.00  
##  1st Qu.:1.000   1st Qu.:53.50  
##  Median :2.000   Median :69.00  
##  Mean   :1.735   Mean   :63.44  
##  3rd Qu.:2.000   3rd Qu.:77.00  
##  Max.   :2.000   Max.   :94.00

okey, here I’ve dropped out a bit, do let’s move to ex22 straight

Exercise22

Сравните среднее время просмотра политических новостей между мужчинами и женщинами в выборке. Не забудьте проверить предположения теста, такие как размер групп, нормальность распределения зависимой переменной в группах и равенство дисперсий. В ответе укажите средние значения для обеих групп, значение статистики и уровень значимости. Нарисуйте диаграмму размаха (боксплот).

##  gndr        nwspol      
##  1:183   Min.   :  0.00  
##  2:291   1st Qu.: 30.00  
##          Median : 60.00  
##          Mean   : 89.75  
##          3rd Qu.:120.00  
##          Max.   :900.00

## 
##  Welch Two Sample t-test
## 
## data:  df$nwspol by df$gndr
## t = 2.3317, df = 316.66, p-value = 0.02034
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##   4.212373 49.726109
## sample estimates:
## mean in group 1 mean in group 2 
##       106.30601        79.33677

Answer:

• the difference is significant as p-value is small enough (0.02);
• males DO wath political news LONGER than females, by 27 minutes approx;
• average values: 106 mins for males and 79 mins for females.