thr3ads.net - R help - [R] Assigning Week Numbers [Apr 2010]

If this information is useful, please help other people find it:
Share via:

Michael Hosack

2010-Apr-20 17:59 UTC

[R] Assigning Week Numbers

R experts,
 
How could I extract the week number from a date vector (in Date class) 
such that week numbering (week 1...2...) begins (May 01) and ends 
(October 31) on the same specific dates each year? Week numbering 
must conform to the following day numbering format
(Sat=1,Sun=2,Mon=3.....Fri=7).
This means that new weeks must begin on Saturdays, and end on Fridays 
(except for the first date of May 01, which always begins week 1; week 2 
begins on the proceeding Saturday). This needs to be applicable across years
to work effectively. I have tried using both vectorized and loop approaches with
no success.
 
I am including a bit of old Systat code that does the trick simply and
concisely.
If anyone knows an analogous method in R please let me know. My R dataframe
contains
all the variables and data in the Systat temp file. 
 
Use sched3.t
Save sched4.t
Hold
By mm dd
If bof then let week=1
Else if bog and DOW$="SAT" then let week = week + 1
Run
 

Thank you,
 
Mike
 
 
SCHEDULE3 <-
structure(list(DATE. = structure(c(15826L, 15826L, 15826L, 15826L, 
15826L, 15826L, 15826L, 15826L, 15827L, 15827L, 15827L, 15827L, 
15827L, 15827L, 15827L, 15827L, 15828L, 15828L, 15828L, 15828L, 
15828L, 15828L, 15828L, 15828L, 15829L, 15829L, 15829L, 15829L, 
15829L, 15829L, 15829L, 15829L, 15830L, 15830L, 15830L, 15830L, 
15830L, 15830L, 15830L, 15830L, 15831L, 15831L, 15831L, 15831L, 
15831L, 15831L, 15831L, 15831L, 15832L, 15832L, 15832L, 15832L, 
15832L, 15832L, 15832L, 15832L, 15833L, 15833L, 15833L, 15833L, 
15833L, 15833L, 15833L, 15833L, 15834L, 15834L, 15834L, 15834L, 
15834L, 15834L, 15834L, 15834L, 15835L, 15835L, 15835L, 15835L, 
15835L, 15835L, 15835L, 15835L, 15836L, 15836L, 15836L, 15836L, 
15836L, 15836L, 15836L, 15836L, 15837L, 15837L, 15837L, 15837L, 
15837L, 15837L, 15837L, 15837L, 15838L, 15838L, 15838L, 15838L, 
15838L, 15838L, 15838L, 15838L, 15839L, 15839L, 15839L, 15839L, 
15839L, 15839L, 15839L, 15839L, 15840L, 15840L, 15840L, 15840L, 
15840L, 15840L, 15840L, 15840L, 15841L, 15841L, 15841L, 15841L, 
15841L, 15841L, 15841L, 15841L, 15842L, 15842L, 15842L, 15842L, 
15842L, 15842L, 15842L, 15842L, 15843L, 15843L, 15843L, 15843L, 
15843L, 15843L, 15843L, 15843L, 15844L, 15844L, 15844L, 15844L, 
15844L, 15844L, 15844L, 15844L, 15845L, 15845L, 15845L, 15845L, 
15845L, 15845L, 15845L, 15845L, 15846L, 15846L, 15846L, 15846L, 
15846L, 15846L, 15846L, 15846L, 15847L, 15847L, 15847L, 15847L, 
15847L, 15847L, 15847L, 15847L, 15848L, 15848L, 15848L, 15848L, 
15848L, 15848L, 15848L, 15848L, 15849L, 15849L, 15849L, 15849L, 
15849L, 15849L, 15849L, 15849L, 15850L, 15850L, 15850L, 15850L, 
15850L, 15850L, 15850L, 15850L, 15851L, 15851L, 15851L, 15851L, 
15851L, 15851L, 15851L, 15851L, 15852L, 15852L, 15852L, 15852L, 
15852L, 15852L, 15852L, 15852L, 15853L, 15853L, 15853L, 15853L, 
15853L, 15853L, 15853L, 15853L, 15854L, 15854L, 15854L, 15854L, 
15854L, 15854L, 15854L, 15854L, 15855L, 15855L, 15855L, 15855L, 
15855L, 15855L, 15855L, 15855L, 15856L, 15856L, 15856L, 15856L, 
15856L, 15856L, 15856L, 15856L, 15857L, 15857L, 15857L, 15857L, 
15857L, 15857L, 15857L, 15857L, 15858L, 15858L, 15858L, 15858L, 
15858L, 15858L, 15858L, 15858L, 15859L, 15859L, 15859L, 15859L, 
15859L, 15859L, 15859L, 15859L, 15860L, 15860L, 15860L, 15860L, 
15860L, 15860L, 15860L, 15860L, 15861L, 15861L, 15861L, 15861L, 
15861L, 15861L, 15861L, 15861L, 15862L, 15862L, 15862L, 15862L, 
15862L, 15862L, 15862L, 15862L, 15863L, 15863L, 15863L, 15863L, 
15863L, 15863L, 15863L, 15863L, 15864L, 15864L, 15864L, 15864L, 
15864L, 15864L, 15864L, 15864L, 15865L, 15865L, 15865L, 15865L, 
15865L, 15865L, 15865L, 15865L, 15866L, 15866L, 15866L, 15866L, 
15866L, 15866L, 15866L, 15866L, 15867L, 15867L, 15867L, 15867L, 
15867L, 15867L, 15867L, 15867L, 15868L, 15868L, 15868L, 15868L, 
15868L, 15868L, 15868L, 15868L, 15869L, 15869L, 15869L, 15869L, 
15869L, 15869L, 15869L, 15869L, 15870L, 15870L, 15870L, 15870L, 
15870L, 15870L, 15870L, 15870L, 15871L, 15871L, 15871L, 15871L, 
15871L, 15871L, 15871L, 15871L, 15872L, 15872L, 15872L, 15872L, 
15872L, 15872L, 15872L, 15872L, 15873L, 15873L, 15873L, 15873L, 
15873L, 15873L, 15873L, 15873L, 15874L, 15874L, 15874L, 15874L, 
15874L, 15874L, 15874L, 15874L, 15875L, 15875L, 15875L, 15875L, 
15875L, 15875L, 15875L, 15875L, 15876L, 15876L, 15876L, 15876L, 
15876L, 15876L, 15876L, 15876L, 15877L, 15877L, 15877L, 15877L, 
15877L, 15877L, 15877L, 15877L, 15878L, 15878L, 15878L, 15878L, 
15878L, 15878L, 15878L, 15878L, 15879L, 15879L, 15879L, 15879L, 
15879L, 15879L, 15879L, 15879L, 15880L, 15880L, 15880L, 15880L, 
15880L, 15880L, 15880L, 15880L, 15881L, 15881L, 15881L, 15881L, 
15881L, 15881L, 15881L, 15881L, 15882L, 15882L, 15882L, 15882L, 
15882L, 15882L, 15882L, 15882L, 15883L, 15883L, 15883L, 15883L, 
15883L, 15883L, 15883L, 15883L, 15884L, 15884L, 15884L, 15884L, 
15884L, 15884L, 15884L, 15884L, 15885L, 15885L, 15885L, 15885L, 
15885L, 15885L, 15885L, 15885L, 15886L, 15886L, 15886L, 15886L, 
15886L, 15886L, 15886L, 15886L, 15887L, 15887L, 15887L, 15887L, 
15887L, 15887L, 15887L, 15887L, 15888L, 15888L, 15888L, 15888L, 
15888L, 15888L, 15888L, 15888L, 15889L, 15889L, 15889L, 15889L, 
15889L, 15889L, 15889L, 15889L, 15890L, 15890L, 15890L, 15890L, 
15890L, 15890L, 15890L, 15890L, 15891L, 15891L, 15891L, 15891L, 
15891L, 15891L, 15891L, 15891L, 15892L, 15892L, 15892L, 15892L, 
15892L, 15892L, 15892L, 15892L, 15893L, 15893L, 15893L, 15893L, 
15893L, 15893L, 15893L, 15893L, 15894L, 15894L, 15894L, 15894L, 
15894L, 15894L, 15894L, 15894L, 15895L, 15895L, 15895L, 15895L, 
15895L, 15895L, 15895L, 15895L, 15896L, 15896L, 15896L, 15896L, 
15896L, 15896L, 15896L, 15896L, 15897L, 15897L, 15897L, 15897L, 
15897L, 15897L, 15897L, 15897L, 15898L, 15898L, 15898L, 15898L, 
15898L, 15898L, 15898L, 15898L, 15899L, 15899L, 15899L, 15899L, 
15899L, 15899L, 15899L, 15899L, 15900L, 15900L, 15900L, 15900L, 
15900L, 15900L, 15900L, 15900L, 15901L, 15901L, 15901L, 15901L, 
15901L, 15901L, 15901L, 15901L, 15902L, 15902L, 15902L, 15902L, 
15902L, 15902L, 15902L, 15902L, 15903L, 15903L, 15903L, 15903L, 
15903L, 15903L, 15903L, 15903L, 15904L, 15904L, 15904L, 15904L, 
15904L, 15904L, 15904L, 15904L, 15905L, 15905L, 15905L, 15905L, 
15905L, 15905L, 15905L, 15905L, 15906L, 15906L, 15906L, 15906L, 
15906L, 15906L, 15906L, 15906L, 15907L, 15907L, 15907L, 15907L, 
15907L, 15907L, 15907L, 15907L, 15908L, 15908L, 15908L, 15908L, 
15908L, 15908L, 15908L, 15908L, 15909L, 15909L, 15909L, 15909L, 
15909L, 15909L, 15909L, 15909L, 15910L, 15910L, 15910L, 15910L, 
15910L, 15910L, 15910L, 15910L, 15911L, 15911L, 15911L, 15911L, 
15911L, 15911L, 15911L, 15911L, 15912L, 15912L, 15912L, 15912L, 
15912L, 15912L, 15912L, 15912L, 15913L, 15913L, 15913L, 15913L, 
15913L, 15913L, 15913L, 15913L, 15914L, 15914L, 15914L, 15914L, 
15914L, 15914L, 15914L, 15914L, 15915L, 15915L, 15915L, 15915L, 
15915L, 15915L, 15915L, 15915L, 15916L, 15916L, 15916L, 15916L, 
15916L, 15916L, 15916L, 15916L, 15917L, 15917L, 15917L, 15917L, 
15917L, 15917L, 15917L, 15917L, 15918L, 15918L, 15918L, 15918L, 
15918L, 15918L, 15918L, 15918L, 15919L, 15919L, 15919L, 15919L, 
15919L, 15919L, 15919L, 15919L, 15920L, 15920L, 15920L, 15920L, 
15920L, 15920L, 15920L, 15920L, 15921L, 15921L, 15921L, 15921L, 
15921L, 15921L, 15921L, 15921L, 15922L, 15922L, 15922L, 15922L, 
15922L, 15922L, 15922L, 15922L, 15923L, 15923L, 15923L, 15923L, 
15923L, 15923L, 15923L, 15923L, 15924L, 15924L, 15924L, 15924L, 
15924L, 15924L, 15924L, 15924L, 15925L, 15925L, 15925L, 15925L, 
15925L, 15925L, 15925L, 15925L, 15926L, 15926L, 15926L, 15926L, 
15926L, 15926L, 15926L, 15926L, 15927L, 15927L, 15927L, 15927L, 
15927L, 15927L, 15927L, 15927L, 15928L, 15928L, 15928L, 15928L, 
15928L, 15928L, 15928L, 15928L, 15929L, 15929L, 15929L, 15929L, 
15929L, 15929L, 15929L, 15929L, 15930L, 15930L, 15930L, 15930L, 
15930L, 15930L, 15930L, 15930L, 15931L, 15931L, 15931L, 15931L, 
15931L, 15931L, 15931L, 15931L, 15932L, 15932L, 15932L, 15932L, 
15932L, 15932L, 15932L, 15932L, 15933L, 15933L, 15933L, 15933L, 
15933L, 15933L, 15933L, 15933L, 15934L, 15934L, 15934L, 15934L, 
15934L, 15934L, 15934L, 15934L, 15935L, 15935L, 15935L, 15935L, 
15935L, 15935L, 15935L, 15935L, 15936L, 15936L, 15936L, 15936L, 
15936L, 15936L, 15936L, 15936L, 15937L, 15937L, 15937L, 15937L, 
15937L, 15937L, 15937L, 15937L, 15938L, 15938L, 15938L, 15938L, 
15938L, 15938L, 15938L, 15938L, 15939L, 15939L, 15939L, 15939L, 
15939L, 15939L, 15939L, 15939L, 15940L, 15940L, 15940L, 15940L, 
15940L, 15940L, 15940L, 15940L, 15941L, 15941L, 15941L, 15941L, 
15941L, 15941L, 15941L, 15941L, 15942L, 15942L, 15942L, 15942L, 
15942L, 15942L, 15942L, 15942L, 15943L, 15943L, 15943L, 15943L, 
15943L, 15943L, 15943L, 15943L, 15944L, 15944L, 15944L, 15944L, 
15944L, 15944L, 15944L, 15944L, 15945L, 15945L, 15945L, 15945L, 
15945L, 15945L, 15945L, 15945L, 15946L, 15946L, 15946L, 15946L, 
15946L, 15946L, 15946L, 15946L, 15947L, 15947L, 15947L, 15947L, 
15947L, 15947L, 15947L, 15947L, 15948L, 15948L, 15948L, 15948L, 
15948L, 15948L, 15948L, 15948L, 15949L, 15949L, 15949L, 15949L, 
15949L, 15949L, 15949L, 15949L, 15950L, 15950L, 15950L, 15950L, 
15950L, 15950L, 15950L, 15950L, 15951L, 15951L, 15951L, 15951L, 
15951L, 15951L, 15951L, 15951L, 15952L, 15952L, 15952L, 15952L, 
15952L, 15952L, 15952L, 15952L, 15953L, 15953L, 15953L, 15953L, 
15953L, 15953L, 15953L, 15953L, 15954L, 15954L, 15954L, 15954L, 
15954L, 15954L, 15954L, 15954L, 15955L, 15955L, 15955L, 15955L, 
15955L, 15955L, 15955L, 15955L, 15956L, 15956L, 15956L, 15956L, 
15956L, 15956L, 15956L, 15956L, 15957L, 15957L, 15957L, 15957L, 
15957L, 15957L, 15957L, 15957L, 15958L, 15958L, 15958L, 15958L, 
15958L, 15958L, 15958L, 15958L, 15959L, 15959L, 15959L, 15959L, 
15959L, 15959L, 15959L, 15959L, 15960L, 15960L, 15960L, 15960L, 
15960L, 15960L, 15960L, 15960L, 15961L, 15961L, 15961L, 15961L, 
15961L, 15961L, 15961L, 15961L, 15962L, 15962L, 15962L, 15962L, 
15962L, 15962L, 15962L, 15962L, 15963L, 15963L, 15963L, 15963L, 
15963L, 15963L, 15963L, 15963L, 15964L, 15964L, 15964L, 15964L, 
15964L, 15964L, 15964L, 15964L, 15965L, 15965L, 15965L, 15965L, 
15965L, 15965L, 15965L, 15965L, 15966L, 15966L, 15966L, 15966L, 
15966L, 15966L, 15966L, 15966L, 15967L, 15967L, 15967L, 15967L, 
15967L, 15967L, 15967L, 15967L, 15968L, 15968L, 15968L, 15968L, 
15968L, 15968L, 15968L, 15968L, 15969L, 15969L, 15969L, 15969L, 
15969L, 15969L, 15969L, 15969L, 15970L, 15970L, 15970L, 15970L, 
15970L, 15970L, 15970L, 15970L, 15971L, 15971L, 15971L, 15971L, 
15971L, 15971L, 15971L, 15971L, 15972L, 15972L, 15972L, 15972L, 
15972L, 15972L, 15972L, 15972L, 15973L, 15973L, 15973L, 15973L, 
15973L, 15973L, 15973L, 15973L, 15974L, 15974L, 15974L, 15974L, 
15974L, 15974L, 15974L, 15974L, 15975L, 15975L, 15975L, 15975L, 
15975L, 15975L, 15975L, 15975L, 15976L, 15976L, 15976L, 15976L, 
15976L, 15976L, 15976L, 15976L, 15977L, 15977L, 15977L, 15977L, 
15977L, 15977L, 15977L, 15977L, 15978L, 15978L, 15978L, 15978L, 
15978L, 15978L, 15978L, 15978L, 15979L, 15979L, 15979L, 15979L, 
15979L, 15979L, 15979L, 15979L, 15980L, 15980L, 15980L, 15980L, 
15980L, 15980L, 15980L, 15980L, 15981L, 15981L, 15981L, 15981L, 
15981L, 15981L, 15981L, 15981L, 15982L, 15982L, 15982L, 15982L, 
15982L, 15982L, 15982L, 15982L, 15983L, 15983L, 15983L, 15983L, 
15983L, 15983L, 15983L, 15983L, 15984L, 15984L, 15984L, 15984L, 
15984L, 15984L, 15984L, 15984L, 15985L, 15985L, 15985L, 15985L, 
15985L, 15985L, 15985L, 15985L, 15986L, 15986L, 15986L, 15986L, 
15986L, 15986L, 15986L, 15986L, 15987L, 15987L, 15987L, 15987L, 
15987L, 15987L, 15987L, 15987L, 15988L, 15988L, 15988L, 15988L, 
15988L, 15988L, 15988L, 15988L, 15989L, 15989L, 15989L, 15989L, 
15989L, 15989L, 15989L, 15989L, 15990L, 15990L, 15990L, 15990L, 
15990L, 15990L, 15990L, 15990L, 15991L, 15991L, 15991L, 15991L, 
15991L, 15991L, 15991L, 15991L, 15992L, 15992L, 15992L, 15992L, 
15992L, 15992L, 15992L, 15992L, 15993L, 15993L, 15993L, 15993L, 
15993L, 15993L, 15993L, 15993L, 15994L, 15994L, 15994L, 15994L, 
15994L, 15994L, 15994L, 15994L, 15995L, 15995L, 15995L, 15995L, 
15995L, 15995L, 15995L, 15995L, 15996L, 15996L, 15996L, 15996L, 
15996L, 15996L, 15996L, 15996L, 15997L, 15997L, 15997L, 15997L, 
15997L, 15997L, 15997L, 15997L, 15998L, 15998L, 15998L, 15998L, 
15998L, 15998L, 15998L, 15998L, 15999L, 15999L, 15999L, 15999L, 
15999L, 15999L, 15999L, 15999L, 16000L, 16000L, 16000L, 16000L, 
16000L, 16000L, 16000L, 16000L, 16001L, 16001L, 16001L, 16001L, 
16001L, 16001L, 16001L, 16001L, 16002L, 16002L, 16002L, 16002L, 
16002L, 16002L, 16002L, 16002L, 16003L, 16003L, 16003L, 16003L, 
16003L, 16003L, 16003L, 16003L, 16004L, 16004L, 16004L, 16004L, 
16004L, 16004L, 16004L, 16004L, 16005L, 16005L, 16005L, 16005L, 
16005L, 16005L, 16005L, 16005L, 16006L, 16006L, 16006L, 16006L, 
16006L, 16006L, 16006L, 16006L, 16007L, 16007L, 16007L, 16007L, 
16007L, 16007L, 16007L, 16007L, 16008L, 16008L, 16008L, 16008L, 
16008L, 16008L, 16008L, 16008L, 16009L, 16009L, 16009L, 16009L, 
16009L, 16009L, 16009L, 16009L), class = "Date"), YEAR = c(2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013), MONTH = c(5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10), DAY = c(1, 1, 
1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 
3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 
6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 
9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 
11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 
13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 
15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 
17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 
19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 
21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 
23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 
25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 
27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 
29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 
31, 31, 31, 31, 31, 31, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 
2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 
5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 
7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 
10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 
12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 
14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 
16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 
18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 
20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 
22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 
24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 
26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 
28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 
30, 30, 30, 30, 30, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 
2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 
5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 
8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 
10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 
12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 
14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 
16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 
18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 
20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 
22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 
24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 
26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 
28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 
30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, 31, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 
9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 
11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 
13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 
15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 
17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 
19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 
21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 
23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 
25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 
27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 
29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 
31, 31, 31, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 
3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 
5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 
8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 
10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 
12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 
14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 
16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 
18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 
20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 
22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 
24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 
26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 
28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 
30, 30, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 
3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 
5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 
8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 
10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 
12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 
14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 
16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 
18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 
20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 
22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 
24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 
26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 
28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 
30, 31, 31, 31, 31, 31, 31, 31, 31), DOW = c("Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
"Thu", "Thu"), SITE = c(101, 101, 102, 102, 103, 103, 104,
104,
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 
103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 
102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 
104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 
101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 
104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 
102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
101, 101, 102, 102, 103, 103, 104, 104), TOD = structure(c(1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label =
c("MORN",
"AFTN"), class = "factor"), DOW. = c(5, 5, 5, 5, 5, 5, 5, 5,
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 
6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 
4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 
6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6)), .Names = c("DATE.", 
"YEAR", "MONTH", "DAY", "DOW",
"SITE", "TOD", "DOW."), class =
"data.frame", row.names = c(1L,
737L, 185L, 921L, 369L, 1105L, 553L, 1289L, 2L, 738L, 186L, 922L, 
370L, 1106L, 554L, 1290L, 3L, 739L, 187L, 923L, 371L, 1107L, 
555L, 1291L, 4L, 740L, 188L, 924L, 372L, 1108L, 556L, 1292L, 
5L, 741L, 189L, 925L, 373L, 1109L, 557L, 1293L, 6L, 742L, 190L, 
926L, 374L, 1110L, 558L, 1294L, 7L, 743L, 191L, 927L, 375L, 1111L, 
559L, 1295L, 8L, 744L, 192L, 928L, 376L, 1112L, 560L, 1296L, 
9L, 745L, 193L, 929L, 377L, 1113L, 561L, 1297L, 10L, 746L, 194L, 
930L, 378L, 1114L, 562L, 1298L, 11L, 747L, 195L, 931L, 379L, 
1115L, 563L, 1299L, 12L, 748L, 196L, 932L, 380L, 1116L, 564L, 
1300L, 13L, 749L, 197L, 933L, 381L, 1117L, 565L, 1301L, 14L, 
750L, 198L, 934L, 382L, 1118L, 566L, 1302L, 15L, 751L, 199L, 
935L, 383L, 1119L, 567L, 1303L, 16L, 752L, 200L, 936L, 384L, 
1120L, 568L, 1304L, 17L, 753L, 201L, 937L, 385L, 1121L, 569L, 
1305L, 18L, 754L, 202L, 938L, 386L, 1122L, 570L, 1306L, 19L, 
755L, 203L, 939L, 387L, 1123L, 571L, 1307L, 20L, 756L, 204L, 
940L, 388L, 1124L, 572L, 1308L, 21L, 757L, 205L, 941L, 389L, 
1125L, 573L, 1309L, 22L, 758L, 206L, 942L, 390L, 1126L, 574L, 
1310L, 23L, 759L, 207L, 943L, 391L, 1127L, 575L, 1311L, 24L, 
760L, 208L, 944L, 392L, 1128L, 576L, 1312L, 25L, 761L, 209L, 
945L, 393L, 1129L, 577L, 1313L, 26L, 762L, 210L, 946L, 394L, 
1130L, 578L, 1314L, 27L, 763L, 211L, 947L, 395L, 1131L, 579L, 
1315L, 28L, 764L, 212L, 948L, 396L, 1132L, 580L, 1316L, 29L, 
765L, 213L, 949L, 397L, 1133L, 581L, 1317L, 30L, 766L, 214L, 
950L, 398L, 1134L, 582L, 1318L, 31L, 767L, 215L, 951L, 399L, 
1135L, 583L, 1319L, 32L, 768L, 216L, 952L, 400L, 1136L, 584L, 
1320L, 33L, 769L, 217L, 953L, 401L, 1137L, 585L, 1321L, 34L, 
770L, 218L, 954L, 402L, 1138L, 586L, 1322L, 35L, 771L, 219L, 
955L, 403L, 1139L, 587L, 1323L, 36L, 772L, 220L, 956L, 404L, 
1140L, 588L, 1324L, 37L, 773L, 221L, 957L, 405L, 1141L, 589L, 
1325L, 38L, 774L, 222L, 958L, 406L, 1142L, 590L, 1326L, 39L, 
775L, 223L, 959L, 407L, 1143L, 591L, 1327L, 40L, 776L, 224L, 
960L, 408L, 1144L, 592L, 1328L, 41L, 777L, 225L, 961L, 409L, 
1145L, 593L, 1329L, 42L, 778L, 226L, 962L, 410L, 1146L, 594L, 
1330L, 43L, 779L, 227L, 963L, 411L, 1147L, 595L, 1331L, 44L, 
780L, 228L, 964L, 412L, 1148L, 596L, 1332L, 45L, 781L, 229L, 
965L, 413L, 1149L, 597L, 1333L, 46L, 782L, 230L, 966L, 414L, 
1150L, 598L, 1334L, 47L, 783L, 231L, 967L, 415L, 1151L, 599L, 
1335L, 48L, 784L, 232L, 968L, 416L, 1152L, 600L, 1336L, 49L, 
785L, 233L, 969L, 417L, 1153L, 601L, 1337L, 50L, 786L, 234L, 
970L, 418L, 1154L, 602L, 1338L, 51L, 787L, 235L, 971L, 419L, 
1155L, 603L, 1339L, 52L, 788L, 236L, 972L, 420L, 1156L, 604L, 
1340L, 53L, 789L, 237L, 973L, 421L, 1157L, 605L, 1341L, 54L, 
790L, 238L, 974L, 422L, 1158L, 606L, 1342L, 55L, 791L, 239L, 
975L, 423L, 1159L, 607L, 1343L, 56L, 792L, 240L, 976L, 424L, 
1160L, 608L, 1344L, 57L, 793L, 241L, 977L, 425L, 1161L, 609L, 
1345L, 58L, 794L, 242L, 978L, 426L, 1162L, 610L, 1346L, 59L, 
795L, 243L, 979L, 427L, 1163L, 611L, 1347L, 60L, 796L, 244L, 
980L, 428L, 1164L, 612L, 1348L, 61L, 797L, 245L, 981L, 429L, 
1165L, 613L, 1349L, 62L, 798L, 246L, 982L, 430L, 1166L, 614L, 
1350L, 63L, 799L, 247L, 983L, 431L, 1167L, 615L, 1351L, 64L, 
800L, 248L, 984L, 432L, 1168L, 616L, 1352L, 65L, 801L, 249L, 
985L, 433L, 1169L, 617L, 1353L, 66L, 802L, 250L, 986L, 434L, 
1170L, 618L, 1354L, 67L, 803L, 251L, 987L, 435L, 1171L, 619L, 
1355L, 68L, 804L, 252L, 988L, 436L, 1172L, 620L, 1356L, 69L, 
805L, 253L, 989L, 437L, 1173L, 621L, 1357L, 70L, 806L, 254L, 
990L, 438L, 1174L, 622L, 1358L, 71L, 807L, 255L, 991L, 439L, 
1175L, 623L, 1359L, 72L, 808L, 256L, 992L, 440L, 1176L, 624L, 
1360L, 73L, 809L, 257L, 993L, 441L, 1177L, 625L, 1361L, 74L, 
810L, 258L, 994L, 442L, 1178L, 626L, 1362L, 75L, 811L, 259L, 
995L, 443L, 1179L, 627L, 1363L, 76L, 812L, 260L, 996L, 444L, 
1180L, 628L, 1364L, 77L, 813L, 261L, 997L, 445L, 1181L, 629L, 
1365L, 78L, 814L, 262L, 998L, 446L, 1182L, 630L, 1366L, 79L, 
815L, 263L, 999L, 447L, 1183L, 631L, 1367L, 80L, 816L, 264L, 
1000L, 448L, 1184L, 632L, 1368L, 81L, 817L, 265L, 1001L, 449L, 
1185L, 633L, 1369L, 82L, 818L, 266L, 1002L, 450L, 1186L, 634L, 
1370L, 83L, 819L, 267L, 1003L, 451L, 1187L, 635L, 1371L, 84L, 
820L, 268L, 1004L, 452L, 1188L, 636L, 1372L, 85L, 821L, 269L, 
1005L, 453L, 1189L, 637L, 1373L, 86L, 822L, 270L, 1006L, 454L, 
1190L, 638L, 1374L, 87L, 823L, 271L, 1007L, 455L, 1191L, 639L, 
1375L, 88L, 824L, 272L, 1008L, 456L, 1192L, 640L, 1376L, 89L, 
825L, 273L, 1009L, 457L, 1193L, 641L, 1377L, 90L, 826L, 274L, 
1010L, 458L, 1194L, 642L, 1378L, 91L, 827L, 275L, 1011L, 459L, 
1195L, 643L, 1379L, 92L, 828L, 276L, 1012L, 460L, 1196L, 644L, 
1380L, 93L, 829L, 277L, 1013L, 461L, 1197L, 645L, 1381L, 94L, 
830L, 278L, 1014L, 462L, 1198L, 646L, 1382L, 95L, 831L, 279L, 
1015L, 463L, 1199L, 647L, 1383L, 96L, 832L, 280L, 1016L, 464L, 
1200L, 648L, 1384L, 97L, 833L, 281L, 1017L, 465L, 1201L, 649L, 
1385L, 98L, 834L, 282L, 1018L, 466L, 1202L, 650L, 1386L, 99L, 
835L, 283L, 1019L, 467L, 1203L, 651L, 1387L, 100L, 836L, 284L, 
1020L, 468L, 1204L, 652L, 1388L, 101L, 837L, 285L, 1021L, 469L, 
1205L, 653L, 1389L, 102L, 838L, 286L, 1022L, 470L, 1206L, 654L, 
1390L, 103L, 839L, 287L, 1023L, 471L, 1207L, 655L, 1391L, 104L, 
840L, 288L, 1024L, 472L, 1208L, 656L, 1392L, 105L, 841L, 289L, 
1025L, 473L, 1209L, 657L, 1393L, 106L, 842L, 290L, 1026L, 474L, 
1210L, 658L, 1394L, 107L, 843L, 291L, 1027L, 475L, 1211L, 659L, 
1395L, 108L, 844L, 292L, 1028L, 476L, 1212L, 660L, 1396L, 109L, 
845L, 293L, 1029L, 477L, 1213L, 661L, 1397L, 110L, 846L, 294L, 
1030L, 478L, 1214L, 662L, 1398L, 111L, 847L, 295L, 1031L, 479L, 
1215L, 663L, 1399L, 112L, 848L, 296L, 1032L, 480L, 1216L, 664L, 
1400L, 113L, 849L, 297L, 1033L, 481L, 1217L, 665L, 1401L, 114L, 
850L, 298L, 1034L, 482L, 1218L, 666L, 1402L, 115L, 851L, 299L, 
1035L, 483L, 1219L, 667L, 1403L, 116L, 852L, 300L, 1036L, 484L, 
1220L, 668L, 1404L, 117L, 853L, 301L, 1037L, 485L, 1221L, 669L, 
1405L, 118L, 854L, 302L, 1038L, 486L, 1222L, 670L, 1406L, 119L, 
855L, 303L, 1039L, 487L, 1223L, 671L, 1407L, 120L, 856L, 304L, 
1040L, 488L, 1224L, 672L, 1408L, 121L, 857L, 305L, 1041L, 489L, 
1225L, 673L, 1409L, 122L, 858L, 306L, 1042L, 490L, 1226L, 674L, 
1410L, 123L, 859L, 307L, 1043L, 491L, 1227L, 675L, 1411L, 124L, 
860L, 308L, 1044L, 492L, 1228L, 676L, 1412L, 125L, 861L, 309L, 
1045L, 493L, 1229L, 677L, 1413L, 126L, 862L, 310L, 1046L, 494L, 
1230L, 678L, 1414L, 127L, 863L, 311L, 1047L, 495L, 1231L, 679L, 
1415L, 128L, 864L, 312L, 1048L, 496L, 1232L, 680L, 1416L, 129L, 
865L, 313L, 1049L, 497L, 1233L, 681L, 1417L, 130L, 866L, 314L, 
1050L, 498L, 1234L, 682L, 1418L, 131L, 867L, 315L, 1051L, 499L, 
1235L, 683L, 1419L, 132L, 868L, 316L, 1052L, 500L, 1236L, 684L, 
1420L, 133L, 869L, 317L, 1053L, 501L, 1237L, 685L, 1421L, 134L, 
870L, 318L, 1054L, 502L, 1238L, 686L, 1422L, 135L, 871L, 319L, 
1055L, 503L, 1239L, 687L, 1423L, 136L, 872L, 320L, 1056L, 504L, 
1240L, 688L, 1424L, 137L, 873L, 321L, 1057L, 505L, 1241L, 689L, 
1425L, 138L, 874L, 322L, 1058L, 506L, 1242L, 690L, 1426L, 139L, 
875L, 323L, 1059L, 507L, 1243L, 691L, 1427L, 140L, 876L, 324L, 
1060L, 508L, 1244L, 692L, 1428L, 141L, 877L, 325L, 1061L, 509L, 
1245L, 693L, 1429L, 142L, 878L, 326L, 1062L, 510L, 1246L, 694L, 
1430L, 143L, 879L, 327L, 1063L, 511L, 1247L, 695L, 1431L, 144L, 
880L, 328L, 1064L, 512L, 1248L, 696L, 1432L, 145L, 881L, 329L, 
1065L, 513L, 1249L, 697L, 1433L, 146L, 882L, 330L, 1066L, 514L, 
1250L, 698L, 1434L, 147L, 883L, 331L, 1067L, 515L, 1251L, 699L, 
1435L, 148L, 884L, 332L, 1068L, 516L, 1252L, 700L, 1436L, 149L, 
885L, 333L, 1069L, 517L, 1253L, 701L, 1437L, 150L, 886L, 334L, 
1070L, 518L, 1254L, 702L, 1438L, 151L, 887L, 335L, 1071L, 519L, 
1255L, 703L, 1439L, 152L, 888L, 336L, 1072L, 520L, 1256L, 704L, 
1440L, 153L, 889L, 337L, 1073L, 521L, 1257L, 705L, 1441L, 154L, 
890L, 338L, 1074L, 522L, 1258L, 706L, 1442L, 155L, 891L, 339L, 
1075L, 523L, 1259L, 707L, 1443L, 156L, 892L, 340L, 1076L, 524L, 
1260L, 708L, 1444L, 157L, 893L, 341L, 1077L, 525L, 1261L, 709L, 
1445L, 158L, 894L, 342L, 1078L, 526L, 1262L, 710L, 1446L, 159L, 
895L, 343L, 1079L, 527L, 1263L, 711L, 1447L, 160L, 896L, 344L, 
1080L, 528L, 1264L, 712L, 1448L, 161L, 897L, 345L, 1081L, 529L, 
1265L, 713L, 1449L, 162L, 898L, 346L, 1082L, 530L, 1266L, 714L, 
1450L, 163L, 899L, 347L, 1083L, 531L, 1267L, 715L, 1451L, 164L, 
900L, 348L, 1084L, 532L, 1268L, 716L, 1452L, 165L, 901L, 349L, 
1085L, 533L, 1269L, 717L, 1453L, 166L, 902L, 350L, 1086L, 534L, 
1270L, 718L, 1454L, 167L, 903L, 351L, 1087L, 535L, 1271L, 719L, 
1455L, 168L, 904L, 352L, 1088L, 536L, 1272L, 720L, 1456L, 169L, 
905L, 353L, 1089L, 537L, 1273L, 721L, 1457L, 170L, 906L, 354L, 
1090L, 538L, 1274L, 722L, 1458L, 171L, 907L, 355L, 1091L, 539L, 
1275L, 723L, 1459L, 172L, 908L, 356L, 1092L, 540L, 1276L, 724L, 
1460L, 173L, 909L, 357L, 1093L, 541L, 1277L, 725L, 1461L, 174L, 
910L, 358L, 1094L, 542L, 1278L, 726L, 1462L, 175L, 911L, 359L, 
1095L, 543L, 1279L, 727L, 1463L, 176L, 912L, 360L, 1096L, 544L, 
1280L, 728L, 1464L, 177L, 913L, 361L, 1097L, 545L, 1281L, 729L, 
1465L, 178L, 914L, 362L, 1098L, 546L, 1282L, 730L, 1466L, 179L, 
915L, 363L, 1099L, 547L, 1283L, 731L, 1467L, 180L, 916L, 364L, 
1100L, 548L, 1284L, 732L, 1468L, 181L, 917L, 365L, 1101L, 549L, 
1285L, 733L, 1469L, 182L, 918L, 366L, 1102L, 550L, 1286L, 734L, 
1470L, 183L, 919L, 367L, 1103L, 551L, 1287L, 735L, 1471L, 184L, 
920L, 368L, 1104L, 552L, 1288L, 736L, 1472L)) 		 	   		  
_________________________________________________________________
Hotmail has tools for the New Busy. Search, chat and e-mail from your inbox.

N:WL:en-US:WM_HMP:042010_1

David Winsemius

2010-Apr-20 18:55 UTC

head link

[R] Assigning Week Numbers

On Apr 20, 2010, at 1:59 PM, Michael Hosack wrote:
>
> R experts,
>
> How could I extract the week number from a date vector (in Date class)
> such that week numbering (week 1...2...) begins (May 01) and ends
> (October 31) on the same specific dates each year? Week numbering
> must conform to the following day numbering format  
> (Sat=1,Sun=2,Mon=3.....Fri=7).
> This means that new weeks must begin on Saturdays, and end on Fridays
> (except for the first date of May 01, which always begins week 1;  
> week 2
> begins on the proceeding Saturday). This needs to be applicable  
> across years
> to work effectively. I have tried using both vectorized and loop  
> approaches with
> no success.
>
Modulo arithmetic will work if you first convert the difftime object  
to integer:

 > SCHEDULE3$wkoffset <- as.integer(SCHEDULE3$DATE. -  
as.Date("2010-05-01") )  %/% 7
 > str(head(SCHEDULE3))
'data.frame':	6 obs. of  9 variables:
  $ DATE.   :Class 'Date'  int [1:6] 15826 15826 15826 15826 15826 15826
  $ YEAR    : num  2013 2013 2013 2013 2013 ...
  $ MONTH   : num  5 5 5 5 5 5
  $ DAY     : num  1 1 1 1 1 1
  $ DOW     : chr  "Wed" "Wed" "Wed"
"Wed" ...
  $ SITE    : num  101 101 102 102 103 103
  $ TOD     : Factor w/ 2 levels "MORN","AFTN": 1 2 1 2 1 2
  $ DOW.    : num  5 5 5 5 5 5
  $ wkoffset: num  156 156 156 156 156 156
 > range(SCHEDULE3$DATE.)
[1] "2013-05-01" "2013-10-31"
 > range(SCHEDULE3$wkoffset)
[1] 156 182
> I am including a bit of old Systat code that does the trick simply  
> and concisely.
> If anyone knows an analogous method in R please let me know. My R  
> dataframe contains
> all the variables and data in the Systat temp file.
>
> Use sched3.t
> Save sched4.t
> Hold
> By mm dd
> If bof then let week=1
> Else if bog and DOW$="SAT" then let week = week + 1
> Run
>
>
> Thank you,
>
> Mike
>
>
> SCHEDULE3 <-
> structure(list(DATE. = structure(c(15826L, 15826L, 15826L, 15826L,
> 15826L, 15826L, 15826L, 15826L, 15827L, 15827L, 15827L, 15827L,
> 15827L, 15827L, 15827L, 15827L, 15828L, 15828L, 15828L, 15828L,
> 15828L, 15828L, 15828L, 15828L, 15829L, 15829L, 15829L, 15829L,
> 15829L, 15829L, 15829L, 15829L, 15830L, 15830L, 15830L, 15830L,
> 15830L, 15830L, 15830L, 15830L, 15831L, 15831L, 15831L, 15831L,
> 15831L, 15831L, 15831L, 15831L, 15832L, 15832L, 15832L, 15832L,
> 15832L, 15832L, 15832L, 15832L, 15833L, 15833L, 15833L, 15833L,
> 15833L, 15833L, 15833L, 15833L, 15834L, 15834L, 15834L, 15834L,
> 15834L, 15834L, 15834L, 15834L, 15835L, 15835L, 15835L, 15835L,
> 15835L, 15835L, 15835L, 15835L, 15836L, 15836L, 15836L, 15836L,
> 15836L, 15836L, 15836L, 15836L, 15837L, 15837L, 15837L, 15837L,
> 15837L, 15837L, 15837L, 15837L, 15838L, 15838L, 15838L, 15838L,
> 15838L, 15838L, 15838L, 15838L, 15839L, 15839L, 15839L, 15839L,
> 15839L, 15839L, 15839L, 15839L, 15840L, 15840L, 15840L, 15840L,
> 15840L, 15840L, 15840L, 15840L, 15841L, 15841L, 15841L, 15841L,
> 15841L, 15841L, 15841L, 15841L, 15842L, 15842L, 15842L, 15842L,
> 15842L, 15842L, 15842L, 15842L, 15843L, 15843L, 15843L, 15843L,
> 15843L, 15843L, 15843L, 15843L, 15844L, 15844L, 15844L, 15844L,
> 15844L, 15844L, 15844L, 15844L, 15845L, 15845L, 15845L, 15845L,
> 15845L, 15845L, 15845L, 15845L, 15846L, 15846L, 15846L, 15846L,
> 15846L, 15846L, 15846L, 15846L, 15847L, 15847L, 15847L, 15847L,
> 15847L, 15847L, 15847L, 15847L, 15848L, 15848L, 15848L, 15848L,
> 15848L, 15848L, 15848L, 15848L, 15849L, 15849L, 15849L, 15849L,
> 15849L, 15849L, 15849L, 15849L, 15850L, 15850L, 15850L, 15850L,
> 15850L, 15850L, 15850L, 15850L, 15851L, 15851L, 15851L, 15851L,
> 15851L, 15851L, 15851L, 15851L, 15852L, 15852L, 15852L, 15852L,
> 15852L, 15852L, 15852L, 15852L, 15853L, 15853L, 15853L, 15853L,
> 15853L, 15853L, 15853L, 15853L, 15854L, 15854L, 15854L, 15854L,
> 15854L, 15854L, 15854L, 15854L, 15855L, 15855L, 15855L, 15855L,
> 15855L, 15855L, 15855L, 15855L, 15856L, 15856L, 15856L, 15856L,
> 15856L, 15856L, 15856L, 15856L, 15857L, 15857L, 15857L, 15857L,
> 15857L, 15857L, 15857L, 15857L, 15858L, 15858L, 15858L, 15858L,
> 15858L, 15858L, 15858L, 15858L, 15859L, 15859L, 15859L, 15859L,
> 15859L, 15859L, 15859L, 15859L, 15860L, 15860L, 15860L, 15860L,
> 15860L, 15860L, 15860L, 15860L, 15861L, 15861L, 15861L, 15861L,
> 15861L, 15861L, 15861L, 15861L, 15862L, 15862L, 15862L, 15862L,
> 15862L, 15862L, 15862L, 15862L, 15863L, 15863L, 15863L, 15863L,
> 15863L, 15863L, 15863L, 15863L, 15864L, 15864L, 15864L, 15864L,
> 15864L, 15864L, 15864L, 15864L, 15865L, 15865L, 15865L, 15865L,
> 15865L, 15865L, 15865L, 15865L, 15866L, 15866L, 15866L, 15866L,
> 15866L, 15866L, 15866L, 15866L, 15867L, 15867L, 15867L, 15867L,
> 15867L, 15867L, 15867L, 15867L, 15868L, 15868L, 15868L, 15868L,
> 15868L, 15868L, 15868L, 15868L, 15869L, 15869L, 15869L, 15869L,
> 15869L, 15869L, 15869L, 15869L, 15870L, 15870L, 15870L, 15870L,
> 15870L, 15870L, 15870L, 15870L, 15871L, 15871L, 15871L, 15871L,
> 15871L, 15871L, 15871L, 15871L, 15872L, 15872L, 15872L, 15872L,
> 15872L, 15872L, 15872L, 15872L, 15873L, 15873L, 15873L, 15873L,
> 15873L, 15873L, 15873L, 15873L, 15874L, 15874L, 15874L, 15874L,
> 15874L, 15874L, 15874L, 15874L, 15875L, 15875L, 15875L, 15875L,
> 15875L, 15875L, 15875L, 15875L, 15876L, 15876L, 15876L, 15876L,
> 15876L, 15876L, 15876L, 15876L, 15877L, 15877L, 15877L, 15877L,
> 15877L, 15877L, 15877L, 15877L, 15878L, 15878L, 15878L, 15878L,
> 15878L, 15878L, 15878L, 15878L, 15879L, 15879L, 15879L, 15879L,
> 15879L, 15879L, 15879L, 15879L, 15880L, 15880L, 15880L, 15880L,
> 15880L, 15880L, 15880L, 15880L, 15881L, 15881L, 15881L, 15881L,
> 15881L, 15881L, 15881L, 15881L, 15882L, 15882L, 15882L, 15882L,
> 15882L, 15882L, 15882L, 15882L, 15883L, 15883L, 15883L, 15883L,
> 15883L, 15883L, 15883L, 15883L, 15884L, 15884L, 15884L, 15884L,
> 15884L, 15884L, 15884L, 15884L, 15885L, 15885L, 15885L, 15885L,
> 15885L, 15885L, 15885L, 15885L, 15886L, 15886L, 15886L, 15886L,
> 15886L, 15886L, 15886L, 15886L, 15887L, 15887L, 15887L, 15887L,
> 15887L, 15887L, 15887L, 15887L, 15888L, 15888L, 15888L, 15888L,
> 15888L, 15888L, 15888L, 15888L, 15889L, 15889L, 15889L, 15889L,
> 15889L, 15889L, 15889L, 15889L, 15890L, 15890L, 15890L, 15890L,
> 15890L, 15890L, 15890L, 15890L, 15891L, 15891L, 15891L, 15891L,
> 15891L, 15891L, 15891L, 15891L, 15892L, 15892L, 15892L, 15892L,
> 15892L, 15892L, 15892L, 15892L, 15893L, 15893L, 15893L, 15893L,
> 15893L, 15893L, 15893L, 15893L, 15894L, 15894L, 15894L, 15894L,
> 15894L, 15894L, 15894L, 15894L, 15895L, 15895L, 15895L, 15895L,
> 15895L, 15895L, 15895L, 15895L, 15896L, 15896L, 15896L, 15896L,
> 15896L, 15896L, 15896L, 15896L, 15897L, 15897L, 15897L, 15897L,
> 15897L, 15897L, 15897L, 15897L, 15898L, 15898L, 15898L, 15898L,
> 15898L, 15898L, 15898L, 15898L, 15899L, 15899L, 15899L, 15899L,
> 15899L, 15899L, 15899L, 15899L, 15900L, 15900L, 15900L, 15900L,
> 15900L, 15900L, 15900L, 15900L, 15901L, 15901L, 15901L, 15901L,
> 15901L, 15901L, 15901L, 15901L, 15902L, 15902L, 15902L, 15902L,
> 15902L, 15902L, 15902L, 15902L, 15903L, 15903L, 15903L, 15903L,
> 15903L, 15903L, 15903L, 15903L, 15904L, 15904L, 15904L, 15904L,
> 15904L, 15904L, 15904L, 15904L, 15905L, 15905L, 15905L, 15905L,
> 15905L, 15905L, 15905L, 15905L, 15906L, 15906L, 15906L, 15906L,
> 15906L, 15906L, 15906L, 15906L, 15907L, 15907L, 15907L, 15907L,
> 15907L, 15907L, 15907L, 15907L, 15908L, 15908L, 15908L, 15908L,
> 15908L, 15908L, 15908L, 15908L, 15909L, 15909L, 15909L, 15909L,
> 15909L, 15909L, 15909L, 15909L, 15910L, 15910L, 15910L, 15910L,
> 15910L, 15910L, 15910L, 15910L, 15911L, 15911L, 15911L, 15911L,
> 15911L, 15911L, 15911L, 15911L, 15912L, 15912L, 15912L, 15912L,
> 15912L, 15912L, 15912L, 15912L, 15913L, 15913L, 15913L, 15913L,
> 15913L, 15913L, 15913L, 15913L, 15914L, 15914L, 15914L, 15914L,
> 15914L, 15914L, 15914L, 15914L, 15915L, 15915L, 15915L, 15915L,
> 15915L, 15915L, 15915L, 15915L, 15916L, 15916L, 15916L, 15916L,
> 15916L, 15916L, 15916L, 15916L, 15917L, 15917L, 15917L, 15917L,
> 15917L, 15917L, 15917L, 15917L, 15918L, 15918L, 15918L, 15918L,
> 15918L, 15918L, 15918L, 15918L, 15919L, 15919L, 15919L, 15919L,
> 15919L, 15919L, 15919L, 15919L, 15920L, 15920L, 15920L, 15920L,
> 15920L, 15920L, 15920L, 15920L, 15921L, 15921L, 15921L, 15921L,
> 15921L, 15921L, 15921L, 15921L, 15922L, 15922L, 15922L, 15922L,
> 15922L, 15922L, 15922L, 15922L, 15923L, 15923L, 15923L, 15923L,
> 15923L, 15923L, 15923L, 15923L, 15924L, 15924L, 15924L, 15924L,
> 15924L, 15924L, 15924L, 15924L, 15925L, 15925L, 15925L, 15925L,
> 15925L, 15925L, 15925L, 15925L, 15926L, 15926L, 15926L, 15926L,
> 15926L, 15926L, 15926L, 15926L, 15927L, 15927L, 15927L, 15927L,
> 15927L, 15927L, 15927L, 15927L, 15928L, 15928L, 15928L, 15928L,
> 15928L, 15928L, 15928L, 15928L, 15929L, 15929L, 15929L, 15929L,
> 15929L, 15929L, 15929L, 15929L, 15930L, 15930L, 15930L, 15930L,
> 15930L, 15930L, 15930L, 15930L, 15931L, 15931L, 15931L, 15931L,
> 15931L, 15931L, 15931L, 15931L, 15932L, 15932L, 15932L, 15932L,
> 15932L, 15932L, 15932L, 15932L, 15933L, 15933L, 15933L, 15933L,
> 15933L, 15933L, 15933L, 15933L, 15934L, 15934L, 15934L, 15934L,
> 15934L, 15934L, 15934L, 15934L, 15935L, 15935L, 15935L, 15935L,
> 15935L, 15935L, 15935L, 15935L, 15936L, 15936L, 15936L, 15936L,
> 15936L, 15936L, 15936L, 15936L, 15937L, 15937L, 15937L, 15937L,
> 15937L, 15937L, 15937L, 15937L, 15938L, 15938L, 15938L, 15938L,
> 15938L, 15938L, 15938L, 15938L, 15939L, 15939L, 15939L, 15939L,
> 15939L, 15939L, 15939L, 15939L, 15940L, 15940L, 15940L, 15940L,
> 15940L, 15940L, 15940L, 15940L, 15941L, 15941L, 15941L, 15941L,
> 15941L, 15941L, 15941L, 15941L, 15942L, 15942L, 15942L, 15942L,
> 15942L, 15942L, 15942L, 15942L, 15943L, 15943L, 15943L, 15943L,
> 15943L, 15943L, 15943L, 15943L, 15944L, 15944L, 15944L, 15944L,
> 15944L, 15944L, 15944L, 15944L, 15945L, 15945L, 15945L, 15945L,
> 15945L, 15945L, 15945L, 15945L, 15946L, 15946L, 15946L, 15946L,
> 15946L, 15946L, 15946L, 15946L, 15947L, 15947L, 15947L, 15947L,
> 15947L, 15947L, 15947L, 15947L, 15948L, 15948L, 15948L, 15948L,
> 15948L, 15948L, 15948L, 15948L, 15949L, 15949L, 15949L, 15949L,
> 15949L, 15949L, 15949L, 15949L, 15950L, 15950L, 15950L, 15950L,
> 15950L, 15950L, 15950L, 15950L, 15951L, 15951L, 15951L, 15951L,
> 15951L, 15951L, 15951L, 15951L, 15952L, 15952L, 15952L, 15952L,
> 15952L, 15952L, 15952L, 15952L, 15953L, 15953L, 15953L, 15953L,
> 15953L, 15953L, 15953L, 15953L, 15954L, 15954L, 15954L, 15954L,
> 15954L, 15954L, 15954L, 15954L, 15955L, 15955L, 15955L, 15955L,
> 15955L, 15955L, 15955L, 15955L, 15956L, 15956L, 15956L, 15956L,
> 15956L, 15956L, 15956L, 15956L, 15957L, 15957L, 15957L, 15957L,
> 15957L, 15957L, 15957L, 15957L, 15958L, 15958L, 15958L, 15958L,
> 15958L, 15958L, 15958L, 15958L, 15959L, 15959L, 15959L, 15959L,
> 15959L, 15959L, 15959L, 15959L, 15960L, 15960L, 15960L, 15960L,
> 15960L, 15960L, 15960L, 15960L, 15961L, 15961L, 15961L, 15961L,
> 15961L, 15961L, 15961L, 15961L, 15962L, 15962L, 15962L, 15962L,
> 15962L, 15962L, 15962L, 15962L, 15963L, 15963L, 15963L, 15963L,
> 15963L, 15963L, 15963L, 15963L, 15964L, 15964L, 15964L, 15964L,
> 15964L, 15964L, 15964L, 15964L, 15965L, 15965L, 15965L, 15965L,
> 15965L, 15965L, 15965L, 15965L, 15966L, 15966L, 15966L, 15966L,
> 15966L, 15966L, 15966L, 15966L, 15967L, 15967L, 15967L, 15967L,
> 15967L, 15967L, 15967L, 15967L, 15968L, 15968L, 15968L, 15968L,
> 15968L, 15968L, 15968L, 15968L, 15969L, 15969L, 15969L, 15969L,
> 15969L, 15969L, 15969L, 15969L, 15970L, 15970L, 15970L, 15970L,
> 15970L, 15970L, 15970L, 15970L, 15971L, 15971L, 15971L, 15971L,
> 15971L, 15971L, 15971L, 15971L, 15972L, 15972L, 15972L, 15972L,
> 15972L, 15972L, 15972L, 15972L, 15973L, 15973L, 15973L, 15973L,
> 15973L, 15973L, 15973L, 15973L, 15974L, 15974L, 15974L, 15974L,
> 15974L, 15974L, 15974L, 15974L, 15975L, 15975L, 15975L, 15975L,
> 15975L, 15975L, 15975L, 15975L, 15976L, 15976L, 15976L, 15976L,
> 15976L, 15976L, 15976L, 15976L, 15977L, 15977L, 15977L, 15977L,
> 15977L, 15977L, 15977L, 15977L, 15978L, 15978L, 15978L, 15978L,
> 15978L, 15978L, 15978L, 15978L, 15979L, 15979L, 15979L, 15979L,
> 15979L, 15979L, 15979L, 15979L, 15980L, 15980L, 15980L, 15980L,
> 15980L, 15980L, 15980L, 15980L, 15981L, 15981L, 15981L, 15981L,
> 15981L, 15981L, 15981L, 15981L, 15982L, 15982L, 15982L, 15982L,
> 15982L, 15982L, 15982L, 15982L, 15983L, 15983L, 15983L, 15983L,
> 15983L, 15983L, 15983L, 15983L, 15984L, 15984L, 15984L, 15984L,
> 15984L, 15984L, 15984L, 15984L, 15985L, 15985L, 15985L, 15985L,
> 15985L, 15985L, 15985L, 15985L, 15986L, 15986L, 15986L, 15986L,
> 15986L, 15986L, 15986L, 15986L, 15987L, 15987L, 15987L, 15987L,
> 15987L, 15987L, 15987L, 15987L, 15988L, 15988L, 15988L, 15988L,
> 15988L, 15988L, 15988L, 15988L, 15989L, 15989L, 15989L, 15989L,
> 15989L, 15989L, 15989L, 15989L, 15990L, 15990L, 15990L, 15990L,
> 15990L, 15990L, 15990L, 15990L, 15991L, 15991L, 15991L, 15991L,
> 15991L, 15991L, 15991L, 15991L, 15992L, 15992L, 15992L, 15992L,
> 15992L, 15992L, 15992L, 15992L, 15993L, 15993L, 15993L, 15993L,
> 15993L, 15993L, 15993L, 15993L, 15994L, 15994L, 15994L, 15994L,
> 15994L, 15994L, 15994L, 15994L, 15995L, 15995L, 15995L, 15995L,
> 15995L, 15995L, 15995L, 15995L, 15996L, 15996L, 15996L, 15996L,
> 15996L, 15996L, 15996L, 15996L, 15997L, 15997L, 15997L, 15997L,
> 15997L, 15997L, 15997L, 15997L, 15998L, 15998L, 15998L, 15998L,
> 15998L, 15998L, 15998L, 15998L, 15999L, 15999L, 15999L, 15999L,
> 15999L, 15999L, 15999L, 15999L, 16000L, 16000L, 16000L, 16000L,
> 16000L, 16000L, 16000L, 16000L, 16001L, 16001L, 16001L, 16001L,
> 16001L, 16001L, 16001L, 16001L, 16002L, 16002L, 16002L, 16002L,
> 16002L, 16002L, 16002L, 16002L, 16003L, 16003L, 16003L, 16003L,
> 16003L, 16003L, 16003L, 16003L, 16004L, 16004L, 16004L, 16004L,
> 16004L, 16004L, 16004L, 16004L, 16005L, 16005L, 16005L, 16005L,
> 16005L, 16005L, 16005L, 16005L, 16006L, 16006L, 16006L, 16006L,
> 16006L, 16006L, 16006L, 16006L, 16007L, 16007L, 16007L, 16007L,
> 16007L, 16007L, 16007L, 16007L, 16008L, 16008L, 16008L, 16008L,
> 16008L, 16008L, 16008L, 16008L, 16009L, 16009L, 16009L, 16009L,
> 16009L, 16009L, 16009L, 16009L), class = "Date"), YEAR = c(2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013), MONTH = c(5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
> 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
> 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10), DAY = c(1, 1,
> 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3,
> 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6,
> 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9,
> 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11,
> 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13,
> 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15,
> 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17,
> 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19,
> 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21,
> 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23,
> 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25,
> 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27,
> 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29,
> 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31,
> 31, 31, 31, 31, 31, 31, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
> 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5,
> 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7,
> 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10,
> 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12,
> 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14,
> 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16,
> 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18,
> 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20,
> 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22,
> 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24,
> 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26,
> 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28,
> 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30,
> 30, 30, 30, 30, 30, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2,
> 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5,
> 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7,
> 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10,
> 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12,
> 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14,
> 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16,
> 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18,
> 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20,
> 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22,
> 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24,
> 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26,
> 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28,
> 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30,
> 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 31, 31, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9,
> 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11,
> 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13,
> 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15,
> 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17,
> 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19,
> 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21,
> 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23,
> 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25,
> 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27,
> 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29,
> 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31,
> 31, 31, 31, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3,
> 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5,
> 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8,
> 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10,
> 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12,
> 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14,
> 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16,
> 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18,
> 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20,
> 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22,
> 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24,
> 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26,
> 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28,
> 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30,
> 30, 30, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3,
> 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5,
> 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8,
> 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10,
> 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12,
> 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14,
> 14, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16,
> 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18,
> 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20,
> 20, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22,
> 22, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24,
> 24, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26,
> 26, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28,
> 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30,
> 30, 31, 31, 31, 31, 31, 31, 31, 31), DOW = c("Wed",
"Wed", "Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Thu", "Thu",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Fri", "Fri", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Sat", "Sat", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sun",
"Sun", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Mon", "Mon",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Tue", "Tue", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Wed", "Wed", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Thu",
> "Thu", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Fri",
"Fri",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Sat", "Sat",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sun", "Sun", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Mon", "Mon", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Tue",
"Tue", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Wed", "Wed",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Thu", "Thu", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Fri", "Fri", "Fri", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Sat",
> "Sat", "Sat", "Sat", "Sat",
"Sat", "Sat", "Sat", "Sun",
"Sun",
> "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Mon", "Mon",
"Mon",
> "Mon", "Mon", "Mon", "Mon",
"Mon", "Tue", "Tue", "Tue",
"Tue",
> "Tue", "Tue", "Tue", "Tue",
"Wed", "Wed", "Wed", "Wed",
"Wed",
> "Wed", "Wed", "Wed", "Thu",
"Thu", "Thu", "Thu", "Thu",
"Thu",
> "Thu", "Thu"), SITE = c(101, 101, 102, 102, 103, 103,
104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103,
> 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101,
> 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104,
> 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
> 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101,
> 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103,
> 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102,
> 102, 103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
> 101, 101, 102, 102, 103, 103, 104, 104), TOD = structure(c(1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
> 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label  
> = c("MORN",
> "AFTN"), class = "factor"), DOW. = c(5, 5, 5, 5, 5, 5,
5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
> 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3,
> 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5,
> 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1,
> 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4,
> 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6,
> 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
> 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5,
> 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6)), .Names =
c("DATE.",
> "YEAR", "MONTH", "DAY", "DOW",
"SITE", "TOD", "DOW."), class =
> "data.frame", row.names = c(1L,
> 737L, 185L, 921L, 369L, 1105L, 553L, 1289L, 2L, 738L, 186L, 922L,
> 370L, 1106L, 554L, 1290L, 3L, 739L, 187L, 923L, 371L, 1107L,
> 555L, 1291L, 4L, 740L, 188L, 924L, 372L, 1108L, 556L, 1292L,
> 5L, 741L, 189L, 925L, 373L, 1109L, 557L, 1293L, 6L, 742L, 190L,
> 926L, 374L, 1110L, 558L, 1294L, 7L, 743L, 191L, 927L, 375L, 1111L,
> 559L, 1295L, 8L, 744L, 192L, 928L, 376L, 1112L, 560L, 1296L,
> 9L, 745L, 193L, 929L, 377L, 1113L, 561L, 1297L, 10L, 746L, 194L,
> 930L, 378L, 1114L, 562L, 1298L, 11L, 747L, 195L, 931L, 379L,
> 1115L, 563L, 1299L, 12L, 748L, 196L, 932L, 380L, 1116L, 564L,
> 1300L, 13L, 749L, 197L, 933L, 381L, 1117L, 565L, 1301L, 14L,
> 750L, 198L, 934L, 382L, 1118L, 566L, 1302L, 15L, 751L, 199L,
> 935L, 383L, 1119L, 567L, 1303L, 16L, 752L, 200L, 936L, 384L,
> 1120L, 568L, 1304L, 17L, 753L, 201L, 937L, 385L, 1121L, 569L,
> 1305L, 18L, 754L, 202L, 938L, 386L, 1122L, 570L, 1306L, 19L,
> 755L, 203L, 939L, 387L, 1123L, 571L, 1307L, 20L, 756L, 204L,
> 940L, 388L, 1124L, 572L, 1308L, 21L, 757L, 205L, 941L, 389L,
> 1125L, 573L, 1309L, 22L, 758L, 206L, 942L, 390L, 1126L, 574L,
> 1310L, 23L, 759L, 207L, 943L, 391L, 1127L, 575L, 1311L, 24L,
> 760L, 208L, 944L, 392L, 1128L, 576L, 1312L, 25L, 761L, 209L,
> 945L, 393L, 1129L, 577L, 1313L, 26L, 762L, 210L, 946L, 394L,
> 1130L, 578L, 1314L, 27L, 763L, 211L, 947L, 395L, 1131L, 579L,
> 1315L, 28L, 764L, 212L, 948L, 396L, 1132L, 580L, 1316L, 29L,
> 765L, 213L, 949L, 397L, 1133L, 581L, 1317L, 30L, 766L, 214L,
> 950L, 398L, 1134L, 582L, 1318L, 31L, 767L, 215L, 951L, 399L,
> 1135L, 583L, 1319L, 32L, 768L, 216L, 952L, 400L, 1136L, 584L,
> 1320L, 33L, 769L, 217L, 953L, 401L, 1137L, 585L, 1321L, 34L,
> 770L, 218L, 954L, 402L, 1138L, 586L, 1322L, 35L, 771L, 219L,
> 955L, 403L, 1139L, 587L, 1323L, 36L, 772L, 220L, 956L, 404L,
> 1140L, 588L, 1324L, 37L, 773L, 221L, 957L, 405L, 1141L, 589L,
> 1325L, 38L, 774L, 222L, 958L, 406L, 1142L, 590L, 1326L, 39L,
> 775L, 223L, 959L, 407L, 1143L, 591L, 1327L, 40L, 776L, 224L,
> 960L, 408L, 1144L, 592L, 1328L, 41L, 777L, 225L, 961L, 409L,
> 1145L, 593L, 1329L, 42L, 778L, 226L, 962L, 410L, 1146L, 594L,
> 1330L, 43L, 779L, 227L, 963L, 411L, 1147L, 595L, 1331L, 44L,
> 780L, 228L, 964L, 412L, 1148L, 596L, 1332L, 45L, 781L, 229L,
> 965L, 413L, 1149L, 597L, 1333L, 46L, 782L, 230L, 966L, 414L,
> 1150L, 598L, 1334L, 47L, 783L, 231L, 967L, 415L, 1151L, 599L,
> 1335L, 48L, 784L, 232L, 968L, 416L, 1152L, 600L, 1336L, 49L,
> 785L, 233L, 969L, 417L, 1153L, 601L, 1337L, 50L, 786L, 234L,
> 970L, 418L, 1154L, 602L, 1338L, 51L, 787L, 235L, 971L, 419L,
> 1155L, 603L, 1339L, 52L, 788L, 236L, 972L, 420L, 1156L, 604L,
> 1340L, 53L, 789L, 237L, 973L, 421L, 1157L, 605L, 1341L, 54L,
> 790L, 238L, 974L, 422L, 1158L, 606L, 1342L, 55L, 791L, 239L,
> 975L, 423L, 1159L, 607L, 1343L, 56L, 792L, 240L, 976L, 424L,
> 1160L, 608L, 1344L, 57L, 793L, 241L, 977L, 425L, 1161L, 609L,
> 1345L, 58L, 794L, 242L, 978L, 426L, 1162L, 610L, 1346L, 59L,
> 795L, 243L, 979L, 427L, 1163L, 611L, 1347L, 60L, 796L, 244L,
> 980L, 428L, 1164L, 612L, 1348L, 61L, 797L, 245L, 981L, 429L,
> 1165L, 613L, 1349L, 62L, 798L, 246L, 982L, 430L, 1166L, 614L,
> 1350L, 63L, 799L, 247L, 983L, 431L, 1167L, 615L, 1351L, 64L,
> 800L, 248L, 984L, 432L, 1168L, 616L, 1352L, 65L, 801L, 249L,
> 985L, 433L, 1169L, 617L, 1353L, 66L, 802L, 250L, 986L, 434L,
> 1170L, 618L, 1354L, 67L, 803L, 251L, 987L, 435L, 1171L, 619L,
> 1355L, 68L, 804L, 252L, 988L, 436L, 1172L, 620L, 1356L, 69L,
> 805L, 253L, 989L, 437L, 1173L, 621L, 1357L, 70L, 806L, 254L,
> 990L, 438L, 1174L, 622L, 1358L, 71L, 807L, 255L, 991L, 439L,
> 1175L, 623L, 1359L, 72L, 808L, 256L, 992L, 440L, 1176L, 624L,
> 1360L, 73L, 809L, 257L, 993L, 441L, 1177L, 625L, 1361L, 74L,
> 810L, 258L, 994L, 442L, 1178L, 626L, 1362L, 75L, 811L, 259L,
> 995L, 443L, 1179L, 627L, 1363L, 76L, 812L, 260L, 996L, 444L,
> 1180L, 628L, 1364L, 77L, 813L, 261L, 997L, 445L, 1181L, 629L,
> 1365L, 78L, 814L, 262L, 998L, 446L, 1182L, 630L, 1366L, 79L,
> 815L, 263L, 999L, 447L, 1183L, 631L, 1367L, 80L, 816L, 264L,
> 1000L, 448L, 1184L, 632L, 1368L, 81L, 817L, 265L, 1001L, 449L,
> 1185L, 633L, 1369L, 82L, 818L, 266L, 1002L, 450L, 1186L, 634L,
> 1370L, 83L, 819L, 267L, 1003L, 451L, 1187L, 635L, 1371L, 84L,
> 820L, 268L, 1004L, 452L, 1188L, 636L, 1372L, 85L, 821L, 269L,
> 1005L, 453L, 1189L, 637L, 1373L, 86L, 822L, 270L, 1006L, 454L,
> 1190L, 638L, 1374L, 87L, 823L, 271L, 1007L, 455L, 1191L, 639L,
> 1375L, 88L, 824L, 272L, 1008L, 456L, 1192L, 640L, 1376L, 89L,
> 825L, 273L, 1009L, 457L, 1193L, 641L, 1377L, 90L, 826L, 274L,
> 1010L, 458L, 1194L, 642L, 1378L, 91L, 827L, 275L, 1011L, 459L,
> 1195L, 643L, 1379L, 92L, 828L, 276L, 1012L, 460L, 1196L, 644L,
> 1380L, 93L, 829L, 277L, 1013L, 461L, 1197L, 645L, 1381L, 94L,
> 830L, 278L, 1014L, 462L, 1198L, 646L, 1382L, 95L, 831L, 279L,
> 1015L, 463L, 1199L, 647L, 1383L, 96L, 832L, 280L, 1016L, 464L,
> 1200L, 648L, 1384L, 97L, 833L, 281L, 1017L, 465L, 1201L, 649L,
> 1385L, 98L, 834L, 282L, 1018L, 466L, 1202L, 650L, 1386L, 99L,
> 835L, 283L, 1019L, 467L, 1203L, 651L, 1387L, 100L, 836L, 284L,
> 1020L, 468L, 1204L, 652L, 1388L, 101L, 837L, 285L, 1021L, 469L,
> 1205L, 653L, 1389L, 102L, 838L, 286L, 1022L, 470L, 1206L, 654L,
> 1390L, 103L, 839L, 287L, 1023L, 471L, 1207L, 655L, 1391L, 104L,
> 840L, 288L, 1024L, 472L, 1208L, 656L, 1392L, 105L, 841L, 289L,
> 1025L, 473L, 1209L, 657L, 1393L, 106L, 842L, 290L, 1026L, 474L,
> 1210L, 658L, 1394L, 107L, 843L, 291L, 1027L, 475L, 1211L, 659L,
> 1395L, 108L, 844L, 292L, 1028L, 476L, 1212L, 660L, 1396L, 109L,
> 845L, 293L, 1029L, 477L, 1213L, 661L, 1397L, 110L, 846L, 294L,
> 1030L, 478L, 1214L, 662L, 1398L, 111L, 847L, 295L, 1031L, 479L,
> 1215L, 663L, 1399L, 112L, 848L, 296L, 1032L, 480L, 1216L, 664L,
> 1400L, 113L, 849L, 297L, 1033L, 481L, 1217L, 665L, 1401L, 114L,
> 850L, 298L, 1034L, 482L, 1218L, 666L, 1402L, 115L, 851L, 299L,
> 1035L, 483L, 1219L, 667L, 1403L, 116L, 852L, 300L, 1036L, 484L,
> 1220L, 668L, 1404L, 117L, 853L, 301L, 1037L, 485L, 1221L, 669L,
> 1405L, 118L, 854L, 302L, 1038L, 486L, 1222L, 670L, 1406L, 119L,
> 855L, 303L, 1039L, 487L, 1223L, 671L, 1407L, 120L, 856L, 304L,
> 1040L, 488L, 1224L, 672L, 1408L, 121L, 857L, 305L, 1041L, 489L,
> 1225L, 673L, 1409L, 122L, 858L, 306L, 1042L, 490L, 1226L, 674L,
> 1410L, 123L, 859L, 307L, 1043L, 491L, 1227L, 675L, 1411L, 124L,
> 860L, 308L, 1044L, 492L, 1228L, 676L, 1412L, 125L, 861L, 309L,
> 1045L, 493L, 1229L, 677L, 1413L, 126L, 862L, 310L, 1046L, 494L,
> 1230L, 678L, 1414L, 127L, 863L, 311L, 1047L, 495L, 1231L, 679L,
> 1415L, 128L, 864L, 312L, 1048L, 496L, 1232L, 680L, 1416L, 129L,
> 865L, 313L, 1049L, 497L, 1233L, 681L, 1417L, 130L, 866L, 314L,
> 1050L, 498L, 1234L, 682L, 1418L, 131L, 867L, 315L, 1051L, 499L,
> 1235L, 683L, 1419L, 132L, 868L, 316L, 1052L, 500L, 1236L, 684L,
> 1420L, 133L, 869L, 317L, 1053L, 501L, 1237L, 685L, 1421L, 134L,
> 870L, 318L, 1054L, 502L, 1238L, 686L, 1422L, 135L, 871L, 319L,
> 1055L, 503L, 1239L, 687L, 1423L, 136L, 872L, 320L, 1056L, 504L,
> 1240L, 688L, 1424L, 137L, 873L, 321L, 1057L, 505L, 1241L, 689L,
> 1425L, 138L, 874L, 322L, 1058L, 506L, 1242L, 690L, 1426L, 139L,
> 875L, 323L, 1059L, 507L, 1243L, 691L, 1427L, 140L, 876L, 324L,
> 1060L, 508L, 1244L, 692L, 1428L, 141L, 877L, 325L, 1061L, 509L,
> 1245L, 693L, 1429L, 142L, 878L, 326L, 1062L, 510L, 1246L, 694L,
> 1430L, 143L, 879L, 327L, 1063L, 511L, 1247L, 695L, 1431L, 144L,
> 880L, 328L, 1064L, 512L, 1248L, 696L, 1432L, 145L, 881L, 329L,
> 1065L, 513L, 1249L, 697L, 1433L, 146L, 882L, 330L, 1066L, 514L,
> 1250L, 698L, 1434L, 147L, 883L, 331L, 1067L, 515L, 1251L, 699L,
> 1435L, 148L, 884L, 332L, 1068L, 516L, 1252L, 700L, 1436L, 149L,
> 885L, 333L, 1069L, 517L, 1253L, 701L, 1437L, 150L, 886L, 334L,
> 1070L, 518L, 1254L, 702L, 1438L, 151L, 887L, 335L, 1071L, 519L,
> 1255L, 703L, 1439L, 152L, 888L, 336L, 1072L, 520L, 1256L, 704L,
> 1440L, 153L, 889L, 337L, 1073L, 521L, 1257L, 705L, 1441L, 154L,
> 890L, 338L, 1074L, 522L, 1258L, 706L, 1442L, 155L, 891L, 339L,
> 1075L, 523L, 1259L, 707L, 1443L, 156L, 892L, 340L, 1076L, 524L,
> 1260L, 708L, 1444L, 157L, 893L, 341L, 1077L, 525L, 1261L, 709L,
> 1445L, 158L, 894L, 342L, 1078L, 526L, 1262L, 710L, 1446L, 159L,
> 895L, 343L, 1079L, 527L, 1263L, 711L, 1447L, 160L, 896L, 344L,
> 1080L, 528L, 1264L, 712L, 1448L, 161L, 897L, 345L, 1081L, 529L,
> 1265L, 713L, 1449L, 162L, 898L, 346L, 1082L, 530L, 1266L, 714L,
> 1450L, 163L, 899L, 347L, 1083L, 531L, 1267L, 715L, 1451L, 164L,
> 900L, 348L, 1084L, 532L, 1268L, 716L, 1452L, 165L, 901L, 349L,
> 1085L, 533L, 1269L, 717L, 1453L, 166L, 902L, 350L, 1086L, 534L,
> 1270L, 718L, 1454L, 167L, 903L, 351L, 1087L, 535L, 1271L, 719L,
> 1455L, 168L, 904L, 352L, 1088L, 536L, 1272L, 720L, 1456L, 169L,
> 905L, 353L, 1089L, 537L, 1273L, 721L, 1457L, 170L, 906L, 354L,
> 1090L, 538L, 1274L, 722L, 1458L, 171L, 907L, 355L, 1091L, 539L,
> 1275L, 723L, 1459L, 172L, 908L, 356L, 1092L, 540L, 1276L, 724L,
> 1460L, 173L, 909L, 357L, 1093L, 541L, 1277L, 725L, 1461L, 174L,
> 910L, 358L, 1094L, 542L, 1278L, 726L, 1462L, 175L, 911L, 359L,
> 1095L, 543L, 1279L, 727L, 1463L, 176L, 912L, 360L, 1096L, 544L,
> 1280L, 728L, 1464L, 177L, 913L, 361L, 1097L, 545L, 1281L, 729L,
> 1465L, 178L, 914L, 362L, 1098L, 546L, 1282L, 730L, 1466L, 179L,
> 915L, 363L, 1099L, 547L, 1283L, 731L, 1467L, 180L, 916L, 364L,
> 1100L, 548L, 1284L, 732L, 1468L, 181L, 917L, 365L, 1101L, 549L,
> 1285L, 733L, 1469L, 182L, 918L, 366L, 1102L, 550L, 1286L, 734L,
> 1470L, 183L, 919L, 367L, 1103L, 551L, 1287L, 735L, 1471L, 184L,
> 920L, 368L, 1104L, 552L, 1288L, 736L, 1472L)) 		 	   		
> _________________________________________________________________
> Hotmail has tools for the New Busy. Search, chat and e-mail from  
> your inbox.
>
> N:WL:en-US:WM_HMP:042010_1
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
David Winsemius, MD
West Hartford, CT

Gustaf Rydevik

2010-Apr-21 15:48 UTC

head link

[R] Assigning Week Numbers

On Tue, Apr 20, 2010 at 7:59 PM, Michael Hosack <mhosack9 at hotmail.com>
wrote:>
> R experts,
>
> How could I extract the week number from a date vector (in Date class)
> such that week numbering (week 1...2...) begins (May 01) and ends
> (October 31) on the same specific dates each year? Week numbering
> must conform to the following day numbering format
(Sat=1,Sun=2,Mon=3.....Fri=7).
> This means that new weeks must begin on Saturdays, and end on Fridays
> (except for the first date of May 01, which always begins week 1; week 2
> begins on the proceeding Saturday). This needs to be applicable across
years
> to work effectively. I have tried using both vectorized and loop approaches
with
> no success.
>
> I am including a bit of old Systat code that does the trick simply and
concisely.
> If anyone knows an analogous method in R please let me know. My R dataframe
contains
> all the variables and data in the Systat temp file.
>
> Use sched3.t
> Save sched4.t
> Hold
> By mm dd
> If bof then let week=1
> Else if bog and DOW$="SAT" then let week = week + 1
> Run
>
>
> Thank you,
>
> Mike
>
>
>From your code, it seems as if you're assuming that SCHEDULE3 containsall consecutive saturdays, without skipping any. Is that correct?

/Gustaf

Michael Hosack

2010-Apr-21 16:50 UTC

head link

[R] Assigning week numbers

I provided a minimized version of my dataframe at the bottom of this message
containing the results of David's code in variable ('wkoffset') and
Jeff Hallman's code in ('WEEK'). Jeff's code produced the
correct results (thank you Jeff) though I have been unable to understand it.
David, as you can see your code begins week 2 for year 2011 on a Wednesday,
rather than on a Saturday, as it should. Your adjustment seems not to correct
the problem, but I concede I may be using it incorrectly. If you are obtaining
the correct results please let me know what I am doing wrong.
 
Thanks,
 
Mike
 
Jeff Hallman's code:
 
weeknumber <- function(aDate){
    aTi <- ti(aDate, tif = "wfriday")
    may1ymd <- 10000*year(aTi) + 501
    baseWeek <- ti(may1ymd, tif = "wfriday")
    return(aTi - baseWeek + 1)
}

SCHEDULE3$WEEK<-weeknumber(SCHEDULE3$DATE.) 
 
 
 
 
Thank you David, this approach is a start in the right direction but 
> it does
> not yield the needed results. I need new week numbers to only begin
> on Saturdays. The only exception will be for the first date (May 01)
> which will start week 1 on a different day of the week depending on
> the year. The proceeding Saturday will begin Week #2. The approach you
> provided does not end Week 1 on a Friday and does not end subsequent
> week #'s on Fridays. 
My solution should be adjustable for any day-of-week ending number.  
Why don't you provide a minimal example for testing and show how apply  
my solution fails? Your original version was definitely not "minimal."
-- 
David.>
> Thanks again,
>
> Mike
>
> ----------------------------------------
>> CC: mhosack9 at hotmail.com; r-help at r-project.org
>> From: dwinsemius at comcast.net
>> To: dwinsemius at comcast.net
>> Subject: Re: [R] Assigning Week Numbers
>> Date: Tue, 20 Apr 2010 16:03:09 -0400
>>
>>
>> On Apr 20, 2010, at 2:55 PM, David Winsemius wrote:
>>
>>>
>>> On Apr 20, 2010, at 1:59 PM, Michael Hosack wrote:
>>>
>>>>
>>>> R experts,
>>>>
>>>> How could I extract the week number from a date vector (in Date
>>>> class)
>>>> such that week numbering (week 1...2...) begins (May 01) and
ends
>>>> (October 31) on the same specific dates each year? Week
numbering
>>>> must conform to the following day numbering format
>>>> (Sat=1,Sun=2,Mon=3.....Fri=7).
>>>> This means that new weeks must begin on Saturdays, and end on  
>>>> Fridays
>>>> (except for the first date of May 01, which always begins week
1;
>>>> week 2
>>>> begins on the proceeding Saturday). This needs to be applicable
>>>> across years
>>>> to work effectively. I have tried using both vectorized and
loop
>>>> approaches with
>>>> no success.
>>>>
>>>
>>> Modulo arithmetic will work if you first convert the difftime
object
>>> to integer:
>>
>> And you can use teh chron function day.of.week to return an offset  
>> for
>> the first week
>>
>>> weekdays(as.Date("2013-05-01") )
>> [1] "Wednesday"
>>> day.of.week(2013, 5, 1)
>> [1] 5
>>> SCHEDULE3$wkoffset <- as.integer(SCHEDULE3$DATE. -
>> as.Date("2013-05-01")- day.of.week(2013, 5, 1) ) %/% 7
>>> range(SCHEDULE3$wkoffset)
>> [1] -1 25
>> # So you need a further adjustment of 2 to set the starting week
>> number to "1":
>>
>>> SCHEDULE3$wkoffset <- 2+as.integer(SCHEDULE3$DATE. -
>> as.Date("2013-05-01")- day.of.week(2013, 5, 1) ) %/% 7
>>> range(SCHEDULE3$wkoffset)
>> [1] 1 27
>>
>>>
>>>> SCHEDULE3$wkoffset <- as.integer(SCHEDULE3$DATE. -
>>> as.Date("2010-05-01") ) %/% 7
>>>> str(head(SCHEDULE3))
>>> 'data.frame': 6 obs. of 9 variables:
>>> $ DATE. :Class 'Date' int [1:6] 15826 15826 15826 15826
15826 15826
>>> $ YEAR : num 2013 2013 2013 2013 2013 ...
>>> $ MONTH : num 5 5 5 5 5 5
>>> $ DAY : num 1 1 1 1 1 1
>>> $ DOW : chr "Wed" "Wed" "Wed"
"Wed" ...
>>> $ SITE : num 101 101 102 102 103 103
>>> $ TOD : Factor w/ 2 levels "MORN","AFTN": 1 2 1
2 1 2
>>> $ DOW. : num 5 5 5 5 5 5
>>> $ wkoffset: num 156 156 156 156 156 156
>>>> range(SCHEDULE3$DATE.)
>>> [1] "2013-05-01" "2013-10-31"
>>>> range(SCHEDULE3$wkoffset)
>>> [1] 156 182
>>>
>>>> I am including a bit of old Systat code that does the trick
simply
>>>> and concisely.
>>>> If anyone knows an analogous method in R please let me know. My
R
>>>> dataframe contains
>>>> all the variables and data in the Systat temp file.
>>>>
>>>> Use sched3.t
>>>> Save sched4.t
>>>> Hold
>>>> By mm dd
>>>> If bof then let week=1
>>>> Else if bog and DOW$="SAT" then let week = week + 1
>>>> Run
>>>>
>>>>
>>>> Thank you,
>>>>
>>>> Mike
>>>>
>>>>
>>>> SCHEDULE3 <-
>>>> structure(list(DATE. = structure(c(15826L, 15826L, 15826L,
15826L,
>snipped the rather larger than minimal example.
David Winsemius, MD
West Hartford, CT


 
 
This is about as minimal as I could get it.
 
SCHEDULE4 <-
structure(list(DATE. = structure(c(15095L, 15095L, 15095L, 15095L, 
15095L, 15095L, 15095L, 15095L, 15096L, 15096L, 15096L, 15096L, 
15096L, 15096L, 15096L, 15096L, 15097L, 15097L, 15097L, 15097L, 
15097L, 15097L, 15097L, 15097L, 15098L, 15098L, 15098L, 15098L, 
15098L, 15098L, 15098L, 15098L, 15099L, 15099L, 15099L, 15099L, 
15099L, 15099L, 15099L, 15099L, 15100L, 15100L, 15100L, 15100L, 
15100L, 15100L, 15100L, 15100L, 15101L, 15101L), class = "Date"), 
    YEAR = c(2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
    2011, 2011), MONTH = c(5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
    5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
    5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), 
    DAY = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 
    3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 
    5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7), DOW = c("Sun", 
    "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
    "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
    "Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
    "Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
    "Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
    "Fri", "Fri", "Sat", "Sat"), SITE =
c(101, 101, 102, 102,
    103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
    101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102, 
    103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104, 
    101, 101, 102, 102, 103, 103, 104, 104, 101, 101), TOD = structure(c(1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L), .Label = c("MORN", "AFTN"), class =
"factor"),
    DOW. = c(2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 
    4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 
    6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1), wkoffset = c(1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), WEEK = c(1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 2, 2)), .Names = c("DATE.", "YEAR",
"MONTH",
"DAY", "DOW", "SITE", "TOD",
"DOW.", "wkoffset", "WEEK"), row.names = c(1L,
737L, 185L, 921L, 369L, 1105L, 553L, 1289L, 2L, 738L, 186L, 922L, 
370L, 1106L, 554L, 1290L, 3L, 739L, 187L, 923L, 371L, 1107L, 
555L, 1291L, 4L, 740L, 188L, 924L, 372L, 1108L, 556L, 1292L, 
5L, 741L, 189L, 925L, 373L, 1109L, 557L, 1293L, 6L, 742L, 190L, 
926L, 374L, 1110L, 558L, 1294L, 7L, 743L), class = "data.frame")
_________________________________________________________________
Hotmail has tools for the New Busy. Search, chat and e-mail from your inbox.

N:WL:en-US:WM_HMP:042010_1

Michael Hosack

2010-Apr-21 18:49 UTC

head link

[R] Assigning Week Numbers

David, there is still a problem. The data in variable 'wkoffset' should 
be equivalent to the data in 'WEEK'. May 07 should begin wkoffset=2 and 
the preceeding days should all be assigned wkoffset=1. I did make sure to 
adjust the year within day.of.week(). Could you please explain what you 
mean by "registration" with a Saturday==1? Maybe that is where the
problem
lies. 
 
Thanks,
 
Mike

--------------------------------------------------------------------------------
On Apr 21, 2010, at 12:50 PM, Michael Hosack wrote:>
>
> I provided a minimized version of my dataframe at the bottom of this  
> message containing the results of David's code in variable  
> ('wkoffset') and Jeff Hallman's code in ('WEEK').
Jeff's code
> produced the correct results (thank you Jeff) though I have been  
> unable to understand it. David, as you can see your code begins week  
> 2 for year 2011 on a Wednesday, rather than on a Saturday, as it  
> should. Your adjustment seems not to correct the problem, but I  
> concede I may be using it incorrectly. If you are obtaining the  
> correct results please let me know what I am doing wrong.
require(chron)
SCHEDULE4$wkoffset <- 2 + as.integer(SCHEDULE4$DATE. -
           as.Date("2011-05-01")- day.of.week(2011, 5, 1) ) %/%
7> tail(SCHEDULE4)           DATE. YEAR MONTH DAY DOW SITE  TOD DOW. wkoffset WEEK
374  2011-05-06 2011     5   6 Fri  103 MORN    7        2    1
1110 2011-05-06 2011     5   6 Fri  103 AFTN    7        2    1
558  2011-05-06 2011     5   6 Fri  104 MORN    7        2    1
1294 2011-05-06 2011     5   6 Fri  104 AFTN    7        2    1
7    2011-05-07 2011     5   7 Sat  101 MORN    1        2    2
743  2011-05-07 2011     5   7 Sat  101 AFTN    1        2    2

I don't know how you are using it, but the "registration" with a  
Saturday==1 seems to be working for me. Perhaps you did not adjust the 
year within day.of.week()?
>
> Thanks,
>
> Mike
>
> Jeff Hallman's code:
>
> weeknumber <- function(aDate){
>    aTi <- ti(aDate, tif = "wfriday")
>    may1ymd <- 10000*year(aTi) + 501
>    baseWeek <- ti(may1ymd, tif = "wfriday")
>    return(aTi - baseWeek + 1)
> }
>
> SCHEDULE3$WEEK<-weeknumber(SCHEDULE3$DATE.)
>
>
>
>
> Thank you David, this approach is a start in the right direction but
>> it does
>> not yield the needed results. I need new week numbers to only begin
>> on Saturdays. The only exception will be for the first date (May 01)
>> which will start week 1 on a different day of the week depending on
>> the year. The proceeding Saturday will begin Week #2. The approach  
>> you
>> provided does not end Week 1 on a Friday and does not end subsequent
>> week #'s on Fridays.
>
> My solution should be adjustable for any day-of-week ending number.
> Why don't you provide a minimal example for testing and show how apply
> my solution fails? Your original version was definitely not
"minimal."
> -- 
> David.
>>
>> Thanks again,
>>
>> Mike
>>
>> ----------------------------------------
>>> CC: mhosack9 at hotmail.com; r-help at r-project.org
>>> From: dwinsemius at comcast.net
>>> To: dwinsemius at comcast.net
>>> Subject: Re: [R] Assigning Week Numbers
>>> Date: Tue, 20 Apr 2010 16:03:09 -0400
>>>
>>>
>>> On Apr 20, 2010, at 2:55 PM, David Winsemius wrote:
>>>
>>>>
>>>> On Apr 20, 2010, at 1:59 PM, Michael Hosack wrote:
>>>>
>>>>>
>>>>> R experts,
>>>>>
>>>>> How could I extract the week number from a date vector (in
Date
>>>>> class)
>>>>> such that week numbering (week 1...2...) begins (May 01)
and ends
>>>>> (October 31) on the same specific dates each year? Week
numbering
>>>>> must conform to the following day numbering format
>>>>> (Sat=1,Sun=2,Mon=3.....Fri=7).
>>>>> This means that new weeks must begin on Saturdays, and end
on
>>>>> Fridays
>>>>> (except for the first date of May 01, which always begins
week 1;
>>>>> week 2
>>>>> begins on the proceeding Saturday). This needs to be
applicable
>>>>> across years
>>>>> to work effectively. I have tried using both vectorized and
loop
>>>>> approaches with
>>>>> no success.
>>>>>
>>>>
>>>> Modulo arithmetic will work if you first convert the difftime  
>>>> object
>>>> to integer:
>>>
>>> And you can use teh chron function day.of.week to return an offset
>>> for
>>> the first week
>>>
>>>> weekdays(as.Date("2013-05-01") )
>>> [1] "Wednesday"
>>>> day.of.week(2013, 5, 1)
>>> [1] 5
>>>> SCHEDULE3$wkoffset <- as.integer(SCHEDULE3$DATE. -
>>> as.Date("2013-05-01")- day.of.week(2013, 5, 1) ) %/% 7
>>>> range(SCHEDULE3$wkoffset)
>>> [1] -1 25
>>> # So you need a further adjustment of 2 to set the starting week
>>> number to "1":
>>>
>>>> SCHEDULE3$wkoffset <- 2+as.integer(SCHEDULE3$DATE. -
>>> as.Date("2013-05-01")- day.of.week(2013, 5, 1) ) %/% 7
>>>> range(SCHEDULE3$wkoffset)
>>> [1] 1 27
>>>
>>>>
>>>>> SCHEDULE3$wkoffset <- as.integer(SCHEDULE3$DATE. -
>>>> as.Date("2010-05-01") ) %/% 7
>>>>> str(head(SCHEDULE3))
>>>> 'data.frame': 6 obs. of 9 variables:
>>>> $ DATE. :Class 'Date' int [1:6] 15826 15826 15826 15826
15826 15826
>>>> $ YEAR : num 2013 2013 2013 2013 2013 ...
>>>> $ MONTH : num 5 5 5 5 5 5
>>>> $ DAY : num 1 1 1 1 1 1
>>>> $ DOW : chr "Wed" "Wed" "Wed"
"Wed" ...
>>>> $ SITE : num 101 101 102 102 103 103
>>>> $ TOD : Factor w/ 2 levels "MORN","AFTN": 1
2 1 2 1 2
>>>> $ DOW. : num 5 5 5 5 5 5
>>>> $ wkoffset: num 156 156 156 156 156 156
>>>>> range(SCHEDULE3$DATE.)
>>>> [1] "2013-05-01" "2013-10-31"
>>>>> range(SCHEDULE3$wkoffset)
>>>> [1] 156 182
>>>>
>>>>> I am including a bit of old Systat code that does the trick
simply
>>>>> and concisely.
>>>>> If anyone knows an analogous method in R please let me
know. My R
>>>>> dataframe contains
>>>>> all the variables and data in the Systat temp file.
>>>>>
>>>>> Use sched3.t
>>>>> Save sched4.t
>>>>> Hold
>>>>> By mm dd
>>>>> If bof then let week=1
>>>>> Else if bog and DOW$="SAT" then let week = week +
1
>>>>> Run
>>>>>
>>>>>
>>>>> Thank you,
>>>>>
>>>>> Mike
>>>>>
>>>>>
>>>>> SCHEDULE3 <-
>>>>> structure(list(DATE. = structure(c(15826L, 15826L, 15826L,
15826L,
>>
> snipped the rather larger than minimal example.
> David Winsemius, MD
> West Hartford, CT
>
>
>
>
> This is about as minimal as I could get it.
>
> SCHEDULE4 <-
> structure(list(DATE. = structure(c(15095L, 15095L, 15095L, 15095L,
> 15095L, 15095L, 15095L, 15095L, 15096L, 15096L, 15096L, 15096L,
> 15096L, 15096L, 15096L, 15096L, 15097L, 15097L, 15097L, 15097L,
> 15097L, 15097L, 15097L, 15097L, 15098L, 15098L, 15098L, 15098L,
> 15098L, 15098L, 15098L, 15098L, 15099L, 15099L, 15099L, 15099L,
> 15099L, 15099L, 15099L, 15099L, 15100L, 15100L, 15100L, 15100L,
> 15100L, 15100L, 15100L, 15100L, 15101L, 15101L), class = "Date"),
>    YEAR = c(2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
>    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
>    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
>    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
>    2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
>    2011, 2011), MONTH = c(5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
>    5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
>    5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5),
>    DAY = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3,
>    3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5,
>    5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7), DOW = c("Sun",
>    "Sun", "Sun", "Sun", "Sun",
"Sun", "Sun", "Sun", "Mon",
"Mon",
>    "Mon", "Mon", "Mon", "Mon",
"Mon", "Mon", "Tue", "Tue",
"Tue",
>    "Tue", "Tue", "Tue", "Tue",
"Tue", "Wed", "Wed", "Wed",
"Wed",
>    "Wed", "Wed", "Wed", "Wed",
"Thu", "Thu", "Thu", "Thu",
"Thu",
>    "Thu", "Thu", "Thu", "Fri",
"Fri", "Fri", "Fri", "Fri",
"Fri",
>    "Fri", "Fri", "Sat", "Sat"),
SITE = c(101, 101, 102, 102,
>    103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
>    101, 101, 102, 102, 103, 103, 104, 104, 101, 101, 102, 102,
>    103, 103, 104, 104, 101, 101, 102, 102, 103, 103, 104, 104,
>    101, 101, 102, 102, 103, 103, 104, 104, 101, 101), TOD =  
> structure(c(1L,
>    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
>    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
>    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
>    1L, 2L, 1L, 2L), .Label = c("MORN", "AFTN"), class =
"factor"),
>    DOW. = c(2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3,
>    4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6,
>    6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1), wkoffset = c(1,
>    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
>    1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
>    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), WEEK = c(1, 1, 1, 1, 1,
>    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
>    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
>    1, 1, 1, 1, 1, 2, 2)), .Names = c("DATE.", "YEAR",
"MONTH",
> "DAY", "DOW", "SITE", "TOD",
"DOW.", "wkoffset", "WEEK"), row.names
> = c(1L,
> 737L, 185L, 921L, 369L, 1105L, 553L, 1289L, 2L, 738L, 186L, 922L,
> 370L, 1106L, 554L, 1290L, 3L, 739L, 187L, 923L, 371L, 1107L,
> 555L, 1291L, 4L, 740L, 188L, 924L, 372L, 1108L, 556L, 1292L,
> 5L, 741L, 189L, 925L, 373L, 1109L, 557L, 1293L, 6L, 742L, 190L,
> 926L, 374L, 1110L, 558L, 1294L, 7L, 743L), class = "data.frame")
>       
> _________________________________________________________________
> Hotmail has tools for the New Busy. Search, chat and e-mail from  
> your inbox.
>
> N:WL:en-US:WM_HMP:042010_1
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.David Winsemius, MD
West Hartford, CT

--------------------------------------------------------------------------------

Previous message: [R] Assigning week numbers 
Next message: [R] (no subject) 
Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] 
--------------------------------------------------------------------------------
More information about the R-help mailing list 		 	   		  
_________________________________________________________________
Hotmail is redefining busy with tools for the New Busy. Get more from your
inbox.

N:WL:en-US:WM_HMP:042010_2

Michael Hosack

2010-Apr-21 19:00 UTC

head link

[R] Assigning week numbers

Gustaf,
 
That is correct. Schedule3 does contain all of the Saturdays between April 30 
and Nov. 01 for a given year. 
 
Mike

R experts,>
> How could I extract the week number from a date vector (in Date class) 
> such that week numbering (week 1...2...) begins (May 01) and ends 
> (October 31) on the same specific dates each year? Week numbering must 
> conform to the following day numbering format
(Sat=1,Sun=2,Mon=3.....Fri=7).
> This means that new weeks must begin on Saturdays, and end on Fridays 
> (except for the first date of May 01, which always begins week 1; week 
> 2 begins on the proceeding Saturday). This needs to be applicable 
> across years to work effectively. I have tried using both vectorized 
> and loop approaches with no success.
>
> I am including a bit of old Systat code that does the trick simply and
concisely.
> If anyone knows an analogous method in R please let me know. My R 
> dataframe contains all the variables and data in the Systat temp file.
>
> Use sched3.t
> Save sched4.t
> Hold
> By mm dd
> If bof then let week=1
> Else if bog and DOW$="SAT" then let week = week + 1 Run
>
>
> Thank you,
>
> Mike 
>From your code, it seems as if you're assuming that SCHEDULE3 containsall consecutive saturdays, without skipping any. Is that correct?
/Gustaf 		 	   		  
_________________________________________________________________
The New Busy is not the too busy. Combine all your e-mail accounts with Hotmail.

ID28326::T:WLMTAGL:ON:WL:en-US:WM_HMP:042010_4

Reasonably Related Threads

Search for more apparently analagous threads

R help - Apr 2010 - Assigning Week Numbers

[R] Assigning Week Numbers

[R] Assigning Week Numbers

[R] Assigning Week Numbers

[R] Assigning week numbers

[R] Assigning Week Numbers

[R] Assigning week numbers

Reasonably Related Threads