%r
pairs(trees,pch=16,main='Matriz de diagramas de dispersiĆ³n')