Analisis varians

r = c(t(as.matrix(x))) #vektor data