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
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
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
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
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
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