<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=us-ascii" http-equiv=Content-Type>
<STYLE>BLOCKQUOTE {
MARGIN-BOTTOM: 0px; MARGIN-LEFT: 2em; MARGIN-TOP: 0px
}
OL {
MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px
}
UL {
MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px
}
</STYLE>
<META name=GENERATOR content="MSHTML 10.00.9200.16384"></HEAD>
<BODY style="MARGIN: 10px"><FONT size=2>
<DIV><FONT face=Verdana></FONT> </DIV>
<DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face="">Estimados</FONT></DIV>
<DIV><FONT
face="">Muchas gracias por su ayuda. No he logrado convertir los datos de climas diarios a datos por semana, es decir</FONT></DIV>
<DIV><FONT
face=""> que junto a la identificación de las semanas, quisiera que los datos climaticos de cada semana se reflejaran </FONT></DIV>
<DIV><FONT face="">en cada semana .Adjunto datos</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face="">Ejemplo</FONT></DIV>
<DIV><FONT
face="">semana48 Max.TemperatureF Mean.TemperatureF Min.TemperatureF etc</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT
face="">Perdonen mis limitados conocimientos</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face=""></FONT> </DIV>
<DIV><FONT face="">LOS SCRIPT ENVIADOS
FUNCIONARON PARA IDENTIFICAR LA SEMANA</FONT></DIV>
<DIV><FONT face="">#####################################</FONT></DIV>
<DIV><FONT face="">rm(list = ls()) </FONT></DIV>
<DIV><FONT
face="">#setwd("D:/Public/Documents/R/r_epidemiología/") </FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT
face="">datIn <- read.table("clima.csv", header=T, as.is=TRUE, sep=",")</FONT></DIV>
<DIV><FONT face="">datIn</FONT></DIV>
<DIV><FONT face="">library(lubridate)</FONT></DIV>
<DIV><FONT face="">#datIn$fecha <- mdy(datIn$CST)</FONT></DIV>
<DIV><FONT face="">datIn$semana <- week(datIn$fecha)</FONT></DIV>
<DIV><FONT face="">datIn$semana</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT
face="">##################################################</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face="">library("lubridate")</FONT></DIV>
<DIV><FONT
face="">data <- read.csv("clima.csv", stringsAsFactors=F)</FONT></DIV>
<DIV><FONT
face=""># mdy() para formato m/d/y. existe dmy() para formato d/m/y</FONT></DIV>
<DIV><FONT
face="">woy <- week(mdy(data$CST)) #week of year</FONT></DIV>
<DIV><FONT face="">woy</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT face="">SEMANAS</FONT></DIV>
<DIV><FONT face=""></FONT></DIV>
<DIV><FONT
face="">1 1 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4</FONT></DIV>
<DIV><FONT
face=""> [28] 4 5 5 5 5 5 5 5 6 6 6 6 6 6 6 7 7 7 7 7 7 7 8 8 8 8 8</FONT></DIV>
<DIV><FONT
face=""> [55] 8 8 9 9 9 9 9 9 9 10 10 10 10 10 10 10 11 11 11 11 11 11 11 12 12 12 12</FONT></DIV>
<DIV><FONT
face=""> [82] 12 12 12 13 13 13 13 13 13 13 14 14 14 14 14 14 14 15 15 15 15 15 15 15 16 16 16</FONT></DIV>
<DIV><FONT
face="">[109] 16 16 16 16 17 17 17 17 17 17 17 18 18 18 18 18 18 18 19 19 19 19 19 19 19 20 20</FONT></DIV>
<DIV><FONT
face="">[136] 20 20 20 20 20 21 21 21 21 21 21 21 22 22 22 22 22 22 22 23 23 23 23 23 23 23 24</FONT></DIV>
<DIV><FONT
face="">[163] 24 24 24 24 24 24 25 25 25 25 25 25 25 26 26 26 26 26 26 26 27 27 27 27 27 27 27</FONT></DIV>
<DIV><FONT
face="">[190] 28 28 28 28 28 28 28 29 29 29 29 29 29 29 30 30 30 30 30 30 30 31 31 31 31 31 31</FONT></DIV>
<DIV><FONT
face="">[217] 31 32 32 32 32 32 32 32 33 33 33 33 33 33 33 34 34 34 34 34 34 34 35 35 35 35 35</FONT></DIV>
<DIV><FONT
face="">[244] 35 35 36 36 36 36 36 36 36 37 37 37 37 37 37 37 38 38 38 38 38 38 38 39 39 39 39</FONT></DIV>
<DIV><FONT
face="">[271] 39 39 39 40 40 40 40 40 40 40 41 41 41 41 41 41 41 42 42 42 42 42 42 42 43 43 43</FONT></DIV>
<DIV><FONT
face="">[298] 43 43 43 43 44 44 44 44 44 44 44 45 45 45 45 45 45 45 46 46 46 46 46 46 46 47 47</FONT></DIV>
<DIV><FONT
face="">[325] 47 47 47 47 47 48 48 48 48 48 48 48 49 49 49 49 49 49 49 50 50 50 50 50 50 50 51</FONT></DIV>
<DIV><FONT
face="">[352] 51 51 51 51 51 51 52 52 52 52 52 52 52 53</FONT></DIV></DIV></FONT></BODY></HTML>