> .Table <- matrix(c(94,406), 1, 2, byrow=TRUE)

> rownames(.Table) <- c('Counts:')

> colnames(.Table) <- c('Success', 'Failure')

> prop.test(rbind(.Table), alternative='less', p=0.52, conf.level=0.95, correct=FALSE)

	1-sample proportions test without continuity correction

data:  rbind(.Table), null probability 0.52
X-squared = 220.8, df = 1, p-value < 2.2e-16
alternative hypothesis: true p is less than 0.52
95 percent confidence interval:
 0.0000000 0.2183917
sample estimates:
    p
0.188


> remove(.Table)





10-Resolución: p-value = 0.2515 > alfa = 0.01 -> aceptem H0 I la proporció poblacional de conectados previos es del 20% pero no inferior