<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#ffffff">
Mais uma dúvida simples:<br>
O problema é no final do código ( em vermelho) :<br>
<br>
<tt>datas <- read.table("ddd.txt", header=F)<br>
datas <- as.Date(datas[,1], format="%m/%d/%y")<br>
i <- read.table("iii.txt", header=F)<br>
i <- i[,1]<br>
cupons <- read.table("cc1.txt", header=F)<br>
cupons <- as.Date(cupons[,1], format="%m/%d/%Y")<br>
fluxo <- read.table("ff1.txt", header=F)<br>
fluxo <- fluxo[,1]<br>
falta <- outer (cupons, datas, "-") *.69<br>
falta <- matrix(falta,nrow(falta),ncol(falta))<br>
falta <- ifelse(falta < 0, NA, falta)<br>
<font color="#ff0000">VP <- cbind((fluxo)/((1+i)^(falta)))<br>
plot(colSums(VP, na.rm=T), type="l")</font><br>
</tt><br>
i tem 297 elementos, datas tem 297 elementos<br>
cupons tem 14 elementos, e fluxo tem 14 elementos;<br>
Logo, falta e VP tem 297 colunas e 14 linhas<br>
quanto ploto VP, aparecem 14 vales no gráfico. Acho que algo de
errado em (1+i)^(falta).<br>
O que quero fazer é,<tt> (1+i[1])^(falta[,1]), (1+i[2])^(falta[,2]),
... , (1+i[n])^(falta[,n])</tt>, ou seja, elevar (1+ i), para cada
i["n"] em todos os elementos da coluna "n" em "falta". Assim,
acabaria também com uma matriz 14 por 297. E quero dividir os 14
elementos de "fluxo" pelos 14 elementos de cada coluna na matriz
gerada. Deu pra entender?<br>
<br>
Obrigado,<br>
<br>
Luciano.<br>
</body>
</html>