Ana, tente esse script aqui tmb. --------------------------------------------------------------------------------------- wine <- read.table("http://archive.ics.uci.edu/ml/machine-learning-databases/wine/wine.data", sep=",") # function for test correlatin with p.valuer correlation.test <- function(data){   ncol <- length(data)   var.x <- matrix(rep(c(1:ncol),each=ncol), ncol=ncol)   var.y <- matrix(rep(c(1:ncol),ncol), ncol=ncol)   estimate <- data.frame(NA)   p.value <- data.frame(NA)   for(i in 1:ncol){     for(j in 1:ncol){       estimate[i,j] <- cor.test(data[,var.x[i,j]], data[,var.y[i,j]])$estimate       p.value[i,j] <- cor.test(data[,var.x[i,j]], data[,var.y[i,j]])$p.value     }   }   names(estimate) <- names(data)   rownames(estimate) <- names(data)   names(p.value) <- names(data)   rownames(p.value) <- names(data)   return(cor=list(estimate=estimate, p.value=p.value)) } -------------------------------------------------------------------- Att  Alisson Lucrécio da Costa ________________________________ From: "alanarocha@sapo.pt" <alanarocha@sapo.pt> To: R-br@listas.c3sl.ufpr.br Sent: Wednesday, November 21, 2012 12:14 PM Subject: [R-br] problemas da correlação resolvidos muito obrigado Daniel Ana _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.