[R-br] Dificuldade em montar matriz de contraste com sapply()