melhorado <- c( 14, 13, 6, 3 ) grupo.etario <- c( 21, 22, 20, 17 ) prop.test(melhorado, grupo.etario) prop.trend.test(melhorado, grupo.etario)