layout(matrix(1:6, 2, 3, byrow = TRUE))
filnam<- "L2+3_0830_Grid.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=2)
lines(HoursFrom[zzsi[1:7]], Xo.1.mV[zzsi[1:7]], typ='b', col='red', lwd=1, lty=1)
lines(HoursFrom[zzsi[8:14]], Xo.1.mV[zzsi[8:14]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[15:21]], Xo.1.mV[zzsi[15:21]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[22:28]], Xo.1.mV[zzsi[22:28]], typ='b', col='purple', lwd=1, lty=1)
lines(HoursFrom[zzsi[1:7]], Xo.2.mV[zzsi[1:7]], typ='b', col='red', lwd=2, lty=2)
lines(HoursFrom[zzsi[8:14]], Xo.2.mV[zzsi[8:14]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[15:21]], Xo.2.mV[zzsi[15:21]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[22:28]], Xo.2.mV[zzsi[22:28]], typ='b', col='purple', lwd=1, lty=2)
lines(HoursFrom[zzsi[1:7]], Xo.3.mV[zzsi[1:7]], typ='b', col='red', lwd=3, lty=3)
lines(HoursFrom[zzsi[8:14]], Xo.3.mV[zzsi[8:14]], typ='b', col='green', lwd=1)
lines(HoursFrom[zzsi[15:21]], Xo.3.mV[zzsi[15:21]], typ='b', col='blue', lwd=1)
lines(HoursFrom[zzsi[22:28]], Xo.3.mV[zzsi[22:28]], typ='b', col='purple', lwd=1, lty=3)
Xo.Av.mV<- (Xo.1.mV+Xo.2.mV+Xo.3.mV)/3
lines(HoursFrom[zzsi[1:7]], Xo.Av.mV[zzsi[1:7]], typ='b', col='red', lwd=2)
lines(HoursFrom[zzsi[8:14]], Xo.Av.mV[zzsi[8:14]], typ='b', col='green', lwd=2)
lines(HoursFrom[zzsi[15:21]], Xo.Av.mV[zzsi[15:21]], typ='b', col='blue', lwd=2)
lines(HoursFrom[zzsi[22:28]], Xo.Av.mV[zzsi[22:28]], 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=2, cex.lab=2)
lines(HoursFrom[zzsi[1:7]], Zo.Av.mV[zzsi[1:7]], typ='b', col='red', lwd=2)
lines(HoursFrom[zzsi[8:14]], Zo.Av.mV[zzsi[8:14]], typ='b', col='green', lwd=2)
lines(HoursFrom[zzsi[15:21]], Zo.Av.mV[zzsi[15:21]], typ='b', col='blue', lwd=2)
lines(HoursFrom[zzsi[22:28]], Zo.Av.mV[zzsi[22:28]], typ='b', col='purple', lwd=2)

detach(zz)