xx<-read.csv("8JulyTides.csv")
attach(xx)
day<- sort(as.real(Day))
junk<- as.POSIXlt(strptime(PMhi, "%H:%M"))
hrs<-junk$hour
hrs<- 12 + hrs - 12*(hrs==12)
mins<-junk$min
PMh<-hrs+mins/60
junk<- as.POSIXlt(strptime(PMlo, "%H:%M"))
hrs<-junk$hour
hrs<- 12 + hrs - 12*(hrs==12)
mins<-junk$min
PMl<-hrs+mins/60
Dayhi<- (day-1)+(PMh)/24
Daylo<- (day-1)+(PMl)/24
plot(c(1,32), c(0,24), typ='n', 
     main="Old Orchard Beach PM Tides July 2008, black = high, red = low",
     ylab="PM hi/lo black/red",
     xlab="day of the month")
points(Dayhi, PMh)
points(Daylo,PMl, col='red')
junk<- as.POSIXlt(strptime(AMhi, "%H:%M"))
hrs<-junk$hour
hrs<- hrs - 12*(hrs==12)
mins<-junk$min
AMh<-hrs+mins/60
junk<- as.POSIXlt(strptime(AMlo, "%H:%M"))
hrs<-junk$hour
hrs<- hrs - 12*(hrs==12)
mins<-junk$min
AMl<-hrs+mins/60
Dayhi<- (day-1)+(AMh)/24
Daylo<- (day-1)+(AMl)/24
points(Dayhi, AMh)
points(Daylo,AMl, col='red')
browser()
detach(xx)