library(dplyr)
## 
## Dołączanie pakietu: 'dplyr'
## Następujące obiekty zostały zakryte z 'package:stats':
## 
##     filter, lag
## Następujące obiekty zostały zakryte z 'package:base':
## 
##     intersect, setdiff, setequal, union

H0 - Mężczyźni nie są mniej mili, delikatni i rozważni w porównaniu do wcześniejszego badania. H1 - Mężczyźni są mniej mili, delikatni i rozważni w porównaniu do wcześniejszego badania.

Musimy wstawić dane do macierzy:

badanie<-matrix(c(2010,990,1530,1470),2,2,dimnames=list(c('Badanie mili',"Badanie nie mili"),c('Wcześniej','Później')))

Dla testu proporcji wykonujemy chisq.test

chisq.test(badanie)
## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  badanie
## X-squared = 158.08, df = 1, p-value < 2.2e-16

p-value<alfa, zatem odrzucamy Hipotezę zerową, stwierdzając, że mężczyźni są mniej mili, delikatni i rozważni w porównaniu do wcześniejszego badania.