<div dir="ltr"><div><div>Boa tarde,<br><br></div>Eu tenho tres matrizes de tres empresas diferentes que estao dispostas da seguinte maneira:<br></div><div><br>Empresa AA <br></div>data 9:31<br>
<table cols="39" cellspacing="0" border="0" height="27" width="1556">
<colgroup width="37"></colgroup>
<colgroup width="77"></colgroup>
<colgroup span="3" width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<colgroup span="2" width="55"></colgroup>
<colgroup span="5" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup span="6" width="55"></colgroup>
<colgroup span="4" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup width="55"></colgroup>
<tbody><tr>
<td align="LEFT" height="16">data <br></td>
<td align="LEFT">09:31</td>
<td align="LEFT">09:32</td>
<td align="LEFT">09:33</td>
<td align="LEFT">09:34</td>
<td align="LEFT">09:35</td>
<td align="LEFT">09:36</td>
<td align="LEFT">09:37</td>
<td align="LEFT">09:38</td>
<td align="LEFT">09:39</td>
<td align="LEFT">09:40</td>
<td align="LEFT">09:41</td>
<td align="LEFT">09:42</td>
<td align="LEFT">09:43</td>
<td align="LEFT">09:44</td>
<td align="LEFT"> 09:45</td>
<td align="LEFT"> 09:46</td>
<td align="LEFT"> 09:47</td>
<td align="LEFT"> </td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
<td align="LEFT"><br></td>
</tr>
</tbody></table>
<br><div>
<table cols="23" cellspacing="0" border="0">
<colgroup width="77"></colgroup>
<colgroup span="3" width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<colgroup span="2" width="55"></colgroup>
<colgroup span="5" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<colgroup width="55"></colgroup>
<colgroup span="2" width="45"></colgroup>
<tbody><tr>
<td align="LEFT" height="16"><br>2004-07-01</td>
<td align="RIGHT">700</td>
<td align="RIGHT">200</td>
<td align="RIGHT">7000</td>
<td align="RIGHT">9400</td>
<td align="RIGHT">1300</td>
<td align="RIGHT">1500</td>
<td align="RIGHT">6300</td>
<td align="RIGHT">1800</td>
<td align="RIGHT">4300</td>
<td align="RIGHT">1300</td>
<td align="RIGHT">4800</td>
<td align="RIGHT">3900</td>
<td align="RIGHT">2500</td>
<td align="RIGHT">4300</td>
<td align="RIGHT">4300</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-02</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="RIGHT">68900</td>
<td align="RIGHT">2800</td>
<td align="RIGHT">4900</td>
<td align="RIGHT">1200</td>
<td align="RIGHT">12300</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="RIGHT">6500</td>
<td align="LEFT">NA</td>
<td align="RIGHT">2900</td>
<td align="RIGHT">8900</td>
<td align="RIGHT">11600</td>
<td align="RIGHT">26900</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="LEFT"><br></td>
<td align="RIGHT"><br></td>
<td align="LEFT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-06</td>
<td align="RIGHT">800</td>
<td align="RIGHT">4400</td>
<td align="RIGHT">13700</td>
<td align="RIGHT">10700</td>
<td align="RIGHT">4700</td>
<td align="RIGHT">4000</td>
<td align="RIGHT">18700</td>
<td align="RIGHT">9000</td>
<td align="RIGHT">2100</td>
<td align="RIGHT">2300</td>
<td align="RIGHT">700</td>
<td align="RIGHT">8900</td>
<td align="RIGHT">10500</td>
<td align="RIGHT">3900</td>
<td align="RIGHT">8400</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-07</td>
<td align="LEFT">NA</td>
<td align="RIGHT">5600</td>
<td align="RIGHT">1000</td>
<td align="RIGHT">7300</td>
<td align="RIGHT">5600</td>
<td align="RIGHT">11200</td>
<td align="RIGHT">3900</td>
<td align="RIGHT">5800</td>
<td align="RIGHT">5700</td>
<td align="RIGHT">4500</td>
<td align="RIGHT">34400</td>
<td align="RIGHT">4100</td>
<td align="RIGHT">500</td>
<td align="RIGHT">15300</td>
<td align="RIGHT">500</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-08</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="RIGHT">154100</td>
<td align="RIGHT">42400</td>
<td align="RIGHT">16700</td>
<td align="RIGHT">4700</td>
<td align="RIGHT">5900</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-09</td>
<td align="LEFT">NA</td>
<td align="RIGHT">96900</td>
<td align="RIGHT">1000</td>
<td align="RIGHT">20400</td>
<td align="RIGHT">18300</td>
<td align="RIGHT">18000</td>
<td align="RIGHT">22500</td>
<td align="RIGHT">4100</td>
<td align="RIGHT">6000</td>
<td align="RIGHT">1000</td>
<td align="RIGHT">1900</td>
<td align="RIGHT">3700</td>
<td align="RIGHT">600</td>
<td align="RIGHT">2900</td>
<td align="RIGHT">14600</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-12</td>
<td align="RIGHT">1400</td>
<td align="RIGHT">100</td>
<td align="RIGHT">4500</td>
<td align="RIGHT">3000</td>
<td align="RIGHT">1300</td>
<td align="RIGHT">4200</td>
<td align="RIGHT">6500</td>
<td align="RIGHT">4500</td>
<td align="RIGHT">1600</td>
<td align="RIGHT">1600</td>
<td align="RIGHT">5600</td>
<td align="RIGHT">7600</td>
<td align="RIGHT">1900</td>
<td align="RIGHT">4600</td>
<td align="RIGHT">8300</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-13</td>
<td align="LEFT">NA</td>
<td align="RIGHT">5600</td>
<td align="RIGHT">3400</td>
<td align="RIGHT">16900</td>
<td align="RIGHT">9000</td>
<td align="RIGHT">5700</td>
<td align="RIGHT">16500</td>
<td align="RIGHT">1800</td>
<td align="RIGHT">21000</td>
<td align="RIGHT">6300</td>
<td align="RIGHT">5900</td>
<td align="RIGHT">12500</td>
<td align="RIGHT">51000</td>
<td align="RIGHT">7500</td>
<td align="RIGHT">13100</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-14</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="LEFT">NA</td>
<td align="RIGHT">164400</td>
<td align="RIGHT">35000</td>
<td align="RIGHT">41600</td>
<td align="RIGHT">56600</td>
<td align="RIGHT">27800</td>
<td align="RIGHT">36500</td>
<td align="RIGHT">55300</td>
<td align="RIGHT">29900</td>
<td align="RIGHT">13100</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-15</td>
<td align="LEFT">NA</td>
<td align="RIGHT">8100</td>
<td align="RIGHT">2000</td>
<td align="RIGHT">6100</td>
<td align="RIGHT">4900</td>
<td align="RIGHT">4500</td>
<td align="RIGHT">2500</td>
<td align="RIGHT">1400</td>
<td align="RIGHT">5200</td>
<td align="RIGHT">4100</td>
<td align="RIGHT">5400</td>
<td align="RIGHT">4000</td>
<td align="RIGHT">13400</td>
<td align="RIGHT">3200</td>
<td align="RIGHT">11300</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-16</td>
<td align="RIGHT">282300</td>
<td align="RIGHT">18100</td>
<td align="RIGHT">30400</td>
<td align="LEFT">NA</td>
<td align="RIGHT">15900</td>
<td align="RIGHT">40800</td>
<td align="RIGHT">9000</td>
<td align="RIGHT">5300</td>
<td align="RIGHT">5200</td>
<td align="RIGHT">27600</td>
<td align="RIGHT">7600</td>
<td align="RIGHT">12100</td>
<td align="RIGHT">8400</td>
<td align="RIGHT">1000</td>
<td align="RIGHT">8400</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
<tr>
<td align="LEFT" height="16">2004-07-19</td>
<td align="RIGHT">28700</td>
<td align="RIGHT">1700</td>
<td align="RIGHT">2900</td>
<td align="RIGHT">9500</td>
<td align="RIGHT">400</td>
<td align="RIGHT">2800</td>
<td align="RIGHT">1100</td>
<td align="RIGHT">6200</td>
<td align="RIGHT">11500</td>
<td align="RIGHT">17900</td>
<td align="RIGHT">11100</td>
<td align="RIGHT">16000</td>
<td align="RIGHT">6800</td>
<td align="RIGHT">5200</td>
<td align="RIGHT">7100</td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
<td align="RIGHT"><br></td>
</tr>
</tbody></table>
<br></div><div>Onde as datas vao de 2004-07-01 ate 2004-12-31(ao todo 128) e os horarios vao de 09:31 ate 16:04( ao todo 397)<br><br></div><div>Eu quero calcular a correlacao entre essas tres empresas para cada hora fixa,ou seja, para a empresa AA eu calculo com ela mesma e com a AIG e a AXP para cada hora fixa, e por isso montei este programa:<br><br>A<-read.table(file="/home/usuario/Documentos/AAparaCalculodaMedia.txt", header=TRUE)<br>AA.<-as.matrix(AA)<br>##write.table(AA.,"AA..txt")<br>AXP<-read.table("/home/usuario/Documentos/AXPparaCalculodaMedia.txt",header=TRUE)<br>AXP.<-as.matrix(AXP)<br>##write.table(AXP.,"AXP..txt")<br>AIG<-read.table("/home/usuario/Documentos/AIGparaCalculodaMedia.txt",header=TRUE)<br>AIG.<-as.matrix(AIG)<br><br>Symbols<-c("AA.","AIG.","AXP.")<br>matrizAA<-matrix()<br>j<-1<br>for (j in 1:length(Symbols)){<br> empresa<-paste0(Symbols)#,"[",j,"]")<br> <br> for (i in 2:397){<br> empresa1<-as.numeric(paste0(empresa,"[,",i,"]"))<br> head(empresa1)<br> matrizAA[,i-1]<-cor(as.numeric(AA.[,i]), as.numeric(empresa1), use="pairwise.complete.obs")<br> <br> }<br> <br>}<br><br></div><div>Mas da o erro: Erro em cor(as.numeric(AA.[, i]), as.numeric(empresa1), use = "pairwise.complete.obs") : <br> incompatible dimensions<br>Além disso: Mensagens de aviso perdidas:<br>NAs introduzidos por coerção<br><br></div><div>Eu achava que usando o use = "pairwise.complete.obs" as correlacoes seriam calculadas apenas entre pares de numeros, mas acho que isso nao esta acontecendo.<br></div><div>Os tres arquivos vou deixar em dropbox.<br><br></div><div>Muito obrigada,<br><br></div><div>Michelle<br></div></div>