layout(matrix(1:6, 1, 2, byrow = TRUE))
filnam<- "L3AGS1.csv"
zz<- read.csv(filnam)
attach(zz)
zzsort<- sort(ProbeZ, index.return=TRUE)
zzsi<-zzsort$ix
plot(HoursFrom[zzsi], Xo.3.mV[zzsi], typ='n', main=filnam, cex.axis=1.5, cex.lab=1.5)
lines(HoursFrom[zzsi[1:31]], Xo.1.mV[zzsi[1:31]], typ='b', col='red', lwd=1)
lines(HoursFrom[zzsi[32:61]], Xo.1.mV[zzsi[32:61]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[62:91]], Xo.1.mV[zzsi[62:91]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[92:122]], Xo.1.mV[zzsi[92:122]], typ='b', col='purple', lwd=1)
lines(HoursFrom[zzsi[1:31]], Xo.2.mV[zzsi[1:31]], typ='b', col='red', lwd=1)
lines(HoursFrom[zzsi[32:61]], Xo.2.mV[zzsi[32:61]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[62:91]], Xo.2.mV[zzsi[62:91]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[92:122]], Xo.2.mV[zzsi[92:122]], typ='b', col='purple', lwd=1)
lines(HoursFrom[zzsi[1:31]], Xo.3.mV[zzsi[1:31]], typ='b', col='red', lwd=1)
lines(HoursFrom[zzsi[32:61]], Xo.3.mV[zzsi[32:61]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[62:91]], Xo.3.mV[zzsi[62:91]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[92:122]], Xo.3.mV[zzsi[92:122]], typ='b', col='purple', lwd=1)
Xo.Av.mV<- (Xo.1.mV+Xo.2.mV+Xo.3.mV)/3
lines(HoursFrom[zzsi[1:31]], Xo.Av.mV[zzsi[1:31]], typ='b', col='red', lwd=2)
lines(HoursFrom[zzsi[32:61]], Xo.Av.mV[zzsi[32:61]], typ='b', col='green', lwd=2)
lines(HoursFrom[zzsi[62:91]], Xo.Av.mV[zzsi[62:91]], typ='b', col='blue', lwd=2)
lines(HoursFrom[zzsi[92:122]], Xo.Av.mV[zzsi[92:122]], typ='b', col='purple', lwd=2)

Zo.Av.mV<- (Zo.1.mV+Zo.2.mV+Zo.3.mV)/3
plot(HoursFrom[zzsi], Zo.Av.mV[zzsi], typ='n', main=filnam, cex.axis=1.5, cex.lab=1.5)
lines(HoursFrom[zzsi[1:31]], Zo.Av.mV[zzsi[1:31]], typ='b', col='red', lwd=2)
lines(HoursFrom[zzsi[32:61]], Zo.Av.mV[zzsi[32:61]], typ='b', col='green', lwd=2)
lines(HoursFrom[zzsi[62:91]], Zo.Av.mV[zzsi[62:91]], typ='b', col='blue', lwd=2)
lines(HoursFrom[zzsi[92:122]], Zo.Av.mV[zzsi[92:122]], typ='b', col='purple', lwd=2)

detach(zz)
browser()
filnam<- "L3AWAT.csv"
zz<- read.csv(filnam, skip=5)
attach(zz)
# zzsort<- sort(ProbeZ, index.return=TRUE)
print(names(zz))
Av.mV<- (Zo.1.mV+Xo.1.mV)/2
plot(c(15.3,16.0), c(28,48), typ='n', main=filnam, cex.axis=1.5, cex.lab=1.5)
lines(HoursFrom, Av.mV, typ='b', main=filnam)

plot(c(14.9,16.15), c(30,43), typ='n', main=filnam, cex.axis=1.5, cex.lab=1.5)
lines(HoursFrom, Av.mV, typ='b', main=filnam)
detach(zz)