arandano%>%sumarise(media-mean(D1))