Acho que mudando o método de ligação fica bom. Vou simular alguns e ver no que dá
dados<-read.csv2("dados2.csv",head=T,dec=",")
str(dados)
attach(dados)
similar1<-rnorm(244,mean(ibov),sd(ibov))
similar2<-rnorm(244,mean(ibov),sd(ibov))
var<-data.frame(usiminas3,csn, gerdau,usiminas5,vale,ibov,similar1, similar2)
str(var)
hc<-hclust(dist(t(var)))
plot(hc,col="blue")
sexta-feira, 15 de janeiro de 2010
Assinar:
Postagens (Atom)