Não sô, vc tem de montar deste jeito.
w<-c(unlist(carteira)/sum(unlist(carteira)))
wm<-as.matrix(dados)
co<-cov(m)
peso<-matrix(w,3,1)
risco<-sqrt(t(peso)%*%co%*%peso)
risco
retcarteira<-t(peso)%*%mean(dados)
retcarteira
# entendeu Fábio? Pôxa....
# bjs
terça-feira, 23 de setembro de 2008
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário