CUESTIONARIO JESUITAS

library(readxl)
cursorcp <- read_excel("/Volumes/DANI/INVEST_RCP/COLES/cuestionario.xlsx")

attach(cursorcp) 
library(gmodels)
library(psych)

CrossTable(pre1)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        24 |        41 | 
##           |     0.369 |     0.631 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre2)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        14 |        51 | 
##           |     0.215 |     0.785 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre3)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        10 |        55 | 
##           |     0.154 |     0.846 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre4)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        52 |        13 | 
##           |     0.800 |     0.200 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre5)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        41 |        24 | 
##           |     0.631 |     0.369 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre6)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        31 |        34 | 
##           |     0.477 |     0.523 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre7)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        51 |        14 | 
##           |     0.785 |     0.215 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre8)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        42 |        23 | 
##           |     0.646 |     0.354 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre9)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        56 |         9 | 
##           |     0.862 |     0.138 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(pre10)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        49 |        16 | 
##           |     0.754 |     0.246 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post1)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |         3 |        62 | 
##           |     0.046 |     0.954 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post2)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |         4 |        61 | 
##           |     0.062 |     0.938 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post3)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        12 |        53 | 
##           |     0.185 |     0.815 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post4)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |         8 |        57 | 
##           |     0.123 |     0.877 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post5)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |         3 |        62 | 
##           |     0.046 |     0.954 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post6)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        13 |        52 | 
##           |     0.200 |     0.800 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post7)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        18 |        47 | 
##           |     0.277 |     0.723 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post8)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |         1 |        64 | 
##           |     0.015 |     0.985 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post9)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        51 |        14 | 
##           |     0.785 |     0.215 | 
##           |-----------|-----------|
## 
## 
## 
## 

CrossTable(post10)

## 
##  
##    Cell Contents
## |-------------------------|
## |                       N |
## |         N / Table Total |
## |-------------------------|
## 
##  
## Total Observations in Table:  65 
## 
##  
##           |         0 |         1 | 
##           |-----------|-----------|
##           |        22 |        43 | 
##           |     0.338 |     0.662 | 
##           |-----------|-----------|
## 
## 
## 
## 

describe(cursorcp$prenota)

##    vars  n mean   sd median trimmed  mad min max range skew kurtosis   se
## X1    1 65 4.31 1.85      4    4.21 1.48   0   9     9 0.42    -0.02 0.23

describe(cursorcp$postnota)

##    vars  n mean  sd median trimmed  mad min max range  skew kurtosis  se
## X1    1 65 7.94 1.6      8    8.13 1.48   3  10     7 -1.12     0.93 0.2

wilcox.test(cursorcp$prenota, cursorcp$postnota, paired = T) #p<0.001

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  cursorcp$prenota and cursorcp$postnota
## V = 34, p-value = 5.276e-11
## alternative hypothesis: true location shift is not equal to 0

```