sexta-feira, 15 de janeiro de 2010

Clusters e seleção de ativos

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")