<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
span.EstiloDeEmail18
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=PT-BR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-family:"Arial","sans-serif";color:#1F497D'>Onde
eu pego este arquivo ExemploReduzdo.csv? Se alguém puder enviar para mim em
particular seria melhor.<o:p></o:p></span></p>
<div>
<p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal>Para mim, eu tive que fazer um ajuste um pouco diferente mas
vou testar o que você fez também.Muuito obrigada! Estou mandando o que eu fiz
abaixo:<o:p></o:p></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<div>
<p class=MsoNormal>>
AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+
,dec=".",<a href="http://as.is">as.is</a>=TRUE,
sep=",",, col.names=c("Data","hora",
"bid","bidQ","ask","askQ","Preco","volume"))
<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> library(dplyr)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> a<-AA %>% group_by(Data) %>% summarise(maximo
= max(Preco), minimo = min(Preco))<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> a<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Source: local data frame [3 x 3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Data maximo minimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> (int) (dbl) (dbl)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.06 38.00<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 72.23 32.23<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 41.45 38.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> b<-AA %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ group_by(Data) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ slice(which.min(hora)) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ ungroup %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ group_by(Data) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ select(Primeiro = Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> b<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Source: local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Groups: Data [3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Data Primeiro<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> (int) (dbl)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.0<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 37.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 38.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> c<-AA %>%<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ group_by(Data) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ slice(which.max(hora)) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ ungroup %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ group_by(Data) %>% <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>+ select(Ultimo = Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> c<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Source: local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Groups: Data [3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Data Ultimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> (int) (dbl)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.05<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 37.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 38.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> d<-cbind(a,b[,2],c[,2])<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> d<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> Data maximo minimo Primeiro Ultimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.06 38.00 38.0
38.05<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 72.23 32.23 37.9
37.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 41.45 38.90 38.9
38.90<o:p></o:p></p>
</div>
</div>
</div>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>Em 12 de novembro de 2015 15:01, Thiago Serafim <<a
href="mailto:thiago.serafim@gmail.com" target="_blank">thiago.serafim@gmail.com</a>>
escreveu:<o:p></o:p></p>
<div>
<p class=MsoNormal>Acabei de atualizar o R e o pacote dplyr.<o:p></o:p></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>> sessionInfo()<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>R version 3.2.2 (2015-08-14)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Platform: x86_64-w64-mingw32/x64 (64-bit)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Running under: Windows 8 x64 (build 9200)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>locale:<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>[1] LC_COLLATE=Portuguese_Brazil.1252
LC_CTYPE=Portuguese_Brazil.1252
LC_MONETARY=Portuguese_Brazil.1252<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>[4] LC_NUMERIC=C
LC_TIME=Portuguese_Brazil.1252 <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>attached base packages:<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>[1] stats graphics grDevices utils
datasets methods base <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>other attached packages:<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>[1] dplyr_0.4.3<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>loaded via a namespace (and not attached):<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>[1] magrittr_1.5 R6_2.1.1
assertthat_0.1 parallel_3.2.2 DBI_0.3.1 tools_3.2.2
Rcpp_0.12.1<o:p></o:p></p>
</div>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Nessa versão do R e do dplyr, os seguintes comandos
funcionam pra mim(um pouco diferente da minha primeira sugestão)<o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal>> AA %>% group_by(Data) %>% filter(Hora ==
min(Hora)) %>% select(Primeiro = Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Source: local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Groups: Data [3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Data Primeiro<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> (int) (dbl)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.0<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 37.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 38.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>> AA %>% group_by(Data) %>% filter(Hora ==
max(Hora)) %>% select(Ultimo = Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Source: local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Groups: Data [3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal> Data Ultimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> (int) (dbl)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>1 37988 38.05<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>2 37991 37.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>3 37992 38.90<o:p></o:p></p>
</div>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>2015-11-11 23:44 GMT-02:00 Mauro Sznelwar <<a
href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>>:<o:p></o:p></p>
<div>
<div>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
style='font-family:"Arial","sans-serif";color:#1F497D'>Porque quando rodo não
dá certo? Eu coloquei os dois bancos de dados AA e DATA</span><o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US style='font-family:"Arial","sans-serif";color:#1F497D'>AA %>%
group_by(Data) %>% summarise(maximo = max(Preco), minimo = min(Preco))</span><o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US style='font-family:"Arial","sans-serif";color:#1F497D'>Error: index
out of bounds</span><o:p></o:p></p>
<div>
<div>
<div>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US> </span><o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>>
library(dplyr)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>>
AA %>% group_by(Data) %>% summarise(maximo = max(Preco), minimo =
min(Preco))<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Source:
local data frame [3 x 3]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>
Data maximo minimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>1
37988 38.06 38.0<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>2
37991 37.90 37.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>3
37992 38.90 38.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>>
AA %>% group_by(Data) %>% slice(which.min(Hora)) %>% select(Primeiro =
Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Source:
local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Groups:
Data<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>
Data Primeiro<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>1
37988 38.0<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>2
37991 37.9<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>3
37992 38.9<o:p></o:p></p>
</div>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>AA
%>% group_by(Data) %>% slice(which.max(Hora)) %>% select(Ultimo =
Preco)<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Source:
local data frame [3 x 2]<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Groups:
Data<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>
Data Ultimo<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>1
37988 38.05<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>2
37991 37.90<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>3
37992 38.90<o:p></o:p></p>
</div>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
</div>
</div>
</div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>2015-11-11
14:28 GMT-02:00 salah <<a href="mailto:salah3.1416@gmail.com" target="_blank">salah3.1416@gmail.com</a>>:<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Olá,
segue uma sugestão<br>
<br>
DADOS = structure(list(Data = c(37988L, 37988L, 37988L, 37988L, 37988L,<br>
37988L, 37991L, 37991L, 37991L, 37991L, 37992L, 37992L, 37992L,<br>
37992L), Hora = c(34251.038, 34263.36, 34296.73, 34301.369,<br>
34318.91, 34324.707, 34398.295, 34400.585, 34416.511, 34425.892,<br>
34250.443, 34252.127, 34266.757, 34273.928), X1 = c(-1, -1,<br>
38.05, 38.06, 38.06, 38.04, 37.8, 37.8, 37.85, 37.85, -1, -1,<br>
38.85, 38.85), X2 = c(-1L, -1L, 32L, 2L, 4L, 1L, 50L, 50L,<br>
1L, 1L, -1L, -1L, 1L, 1L), X3 = c(-1, -1, 38.08, 38.08, 38.07,<br>
38.07, 38.3, 38.3, 37.95, 37.95, -1, -1, 38.95, 38.95), X4 =<br>
c(-1L,<br>
-1L, 1L, 1L, 1L, 1L, 203L, 203L, 1L, 1L, -1L, -1L, 1L, 1L), Preco<br>
= c(38,<br>
38, 38.05, 38.06, 38.06, 38.05, 37.9, 37.9, 37.9, 37.9, 38.9,<br>
38.9, 38.9, 38.9), Volume = c(600L, 5000L, 6000L, 1500L, 500L,<br>
4500L, 161800L, 500L, 3700L, 1100L, 125000L, 1100L, 400L, 1000L<br>
)), .Names = c("Data",
"Hora", "X1", "X2", "X3",<br>
"X4", "Preco",
"Volume"), class = "data.frame", row.names = c(NA,<br>
-14L))<br>
library(data.table)<br>
<br>
## converte data.frame para data.table<br>
setDT(DADOS)<br>
## em list voce pode escolher max, min, mean, sd, etc. Em by voce<br>
escolhe por preco<br>
## por Data, qual variavel que deseja<br>
<br>
## por volume e data<br>
DADOS[, list(Precomax=max(Preco), Precomin=min(Preco)), by = .(Data,<br>
Volume)]<br>
<br>
## por data<br>
DADOS[, list(Precomax=max(Preco), Precomin=min(Preco)), by = .(Data)]<br>
<br>
?data.table<o:p></o:p></p>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><br>
<br>
Em Qua, 2015-11-11 às 13:00 -0200, Michelle Bau Graczyk escreveu:<br>
> Caros, bom dia…<br>
><br>
><br>
> Estou com uma dúvida bem boba mas não consigo resolver!<br>
><br>
><br>
> Eu tenho um data frame que a primeira coluna é a data, a segunda é o<br>
> horário e as outras seis são dados como preço e volume.<br>
> Os dias estão em forma numérica e eu os deixei assim porque achei que<br>
> seria mais fácil fazer o laço. O objetivo é que para cada daia eu ache<br>
> o valor inicial e final do preço assim como o seu máximo e seu mínimo.<br>
> Estou tendo problemas somente em trocar de dia.<br>
> Abaixo segue um pedaço reduzido do data frame e o código.<br>
> Alguém poderia me dar uma dica?<br>
> Muito obrigada!<br>
>
AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE<br>
> +
,dec=".",<a href="http://as.is" target="_blank">as.is</a>=TRUE,
sep=",")<br>
> > #AA<br>
> > dput(AA)<br>
> structure(list(X37988 = c(37988L, 37988L, 37988L, 37988L, 37988L,<br>
> 37988L, 37991L, 37991L, 37991L, 37991L, 37992L, 37992L, 37992L,<br>
> 37992L), X34244.059 = c(34251.038, 34263.36, 34296.73, 34301.369,<br>
> 34318.91, 34324.707, 34398.295, 34400.585, 34416.511, 34425.892,<br>
> 34250.443, 34252.127, 34266.757, 34273.928), X.1 = c(-1, -1,<br>
> 38.05, 38.06, 38.06, 38.04, 37.8, 37.8, 37.85, 37.85, -1, -1,<br>
> 38.85, 38.85), X.1.1 = c(-1L, -1L, 32L, 2L, 4L, 1L, 50L, 50L,<br>
> 1L, 1L, -1L, -1L, 1L, 1L), X.1.2 = c(-1, -1, 38.08, 38.08, 38.07,<br>
> 38.07, 38.3, 38.3, 37.95, 37.95, -1, -1, 38.95, 38.95), X.1.3 =<br>
> c(-1L,<br>
> -1L, 1L, 1L, 1L, 1L, 203L, 203L, 1L, 1L, -1L, -1L, 1L, 1L), X38 =<br>
> c(38,<br>
> 38, 38.05, 38.06, 38.06, 38.05, 37.9, 37.9, 37.9, 37.9, 38.9,<br>
> 38.9, 38.9, 38.9), X55900 = c(600L, 5000L, 6000L, 1500L, 500L,<br>
> 4500L, 161800L, 500L, 3700L, 1100L, 125000L, 1100L, 400L, 1000L<br>
> )), .Names = c("X37988", "X34244.059",
"X.1", "X.1.1", "X.1.2",<br>
> "X.1.3", "X38", "X55900"), class =
"data.frame", row.names = c(NA,<br>
> -14L))<br>
> ><br>
> > matriz<-matrix(NA,230,4)## numero de linhas é o numero de dias.<br>
> >
colnames(matriz)<-c("open","close","low","higth")<br>
> > i<-1<br>
> > for( x in 37988:38000){<br>
> +<br>
> +<br>
> + #x<-37988<br>
> +<br>
> + if(AA$data==x){<br>
> + AA1<-subset(AA,AA$data==x)<br>
> + matriz[i,1]<-AA1[1,7]<br>
> + matriz[i,2]<-AA1[nrow(AA1),7]<br>
> + matriz[i,3]<-min(AA1$last)<br>
> + matriz[i,4]<-max(AA1$last)<br>
> +<br>
> + i=i+1<br>
> + }<br>
> +<br>
> AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE<br>
> +
,dec=".",<a href="http://as.is" target="_blank">as.is</a>=TRUE,
sep=",")<br>
> + #AA<br>
> + dput(AA)<br>
> +<br>
> + matriz<-matrix(NA,3,4)## numero de linhas é o numero de dias.<br>
> + colnames(matriz)<-c("open","close","low","higth")<br>
> + i<-1<br>
> + for( x in 37988:37992){<br>
> +<br>
> +<br>
> +<br>
> +<br>
> + if(AA$data==x){<br>
> + AA1<-subset(AA,AA$data==x)<br>
> + matriz[i,1]<-AA1[1,7]<br>
> + matriz[i,2]<-AA1[nrow(AA1),7]<br>
> + matriz[i,3]<-min(AA1$last)<br>
> + matriz[i,4]<-max(AA1$last)<br>
> +<br>
> + i=i+1<br>
> + }<br>
> + }<br>
> + matriz<br>
> + write.table(matriz,"Matriz4ParametrosPreço.txt")<br>
> +<o:p></o:p></p>
</div>
</div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>>
_______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia"
target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo
reproduzvel.<br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia"
target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo
reproduzvel.<o:p></o:p></p>
</div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
</div>
</div>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'><o:p> </o:p></p>
<div class=MsoNormal align=center style='text-align:center'>
<hr size=2 width="99%" noshade style='color:#909090' align=center>
</div>
<table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0
style='border-collapse:collapse'>
<tr>
<td style='padding:0cm 11.25pt 0cm 6.0pt'>
<p class=MsoNormal><a href="https://www.avast.com/antivirus" target="_blank"><span
style='text-decoration:none'><img border=0 id="_x0000_i1026"
src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo"></span></a><o:p></o:p></p>
</td>
<td style='padding:.75pt .75pt .75pt .75pt'>
<p><span style='font-family:"Calibri","sans-serif";color:#3D4D5A'>Este email
foi escaneado pelo Avast antivírus. <br>
<a href="https://www.avast.com/antivirus" target="_blank">www.avast.com</a> <o:p></o:p></span></p>
</td>
</tr>
</table>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal><br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><o:p></o:p></p>
</div>
</div>
<p class=MsoNormal>Leia o guia de postagem (<a
href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<o:p></o:p></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal><br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia"
target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo
reproduzível.<o:p></o:p></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</div>
<br /><br />
<hr style='border:none; color:#909090; background-color:#B0B0B0; height: 1px; width: 99%;' />
<table style='border-collapse:collapse;border:none;'>
<tr>
<td style='border:none;padding:0px 15px 0px 8px'>
<a href="https://www.avast.com/antivirus">
<img border=0 src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo" />
</a>
</td>
<td>
<p style='color:#3d4d5a; font-family:"Calibri","Verdana","Arial","Helvetica"; font-size:12pt;'>
Este email foi escaneado pelo Avast antivírus.
<br><a href="https://www.avast.com/antivirus">www.avast.com</a>
</p>
</td>
</tr>
</table>
<br />
</body>
</html>