quartz(width=18, height=9)
layout(matrix(1:1, 1, 1, byrow = TRUE))

XX<-read.csv("jgk080826lob_r061.csv", skip=267, nrows=-1)
attach(XX)
OxuV<-AvgGradO2uV
Start<- Hrs_From[1]
Minutes<- round((Hrs_From -Start)*60,1)

minMin<-min(Minutes); maxMin<- max(Minutes)
plot(c(minMin, maxMin),c(-6000,1000),typ='n',
     ylab="uV",
     xlab="Time (Minutes)",
     lwd=2,
     col='red',
     cex.axis=2,
     cex.lab=1.5,
     cex.main=1.5,
     main="UNE 2.2: artificial lesions: Xpos(green), Ypos(blu), Zpos(purp)")

lines(Minutes, OxuV/2, col='red', typ='p', lwd=2)

par(new=TRUE, ann=FALSE)
minX<- min(X_microns);  maxX<-max(X_microns)
plot(c(minMin, maxMin),c(minX, maxX),typ='n', yaxt='n', xaxt='n')
lines(Minutes,X_microns, typ='p', col='green', cex=2, lwd=3, lty=2)

par(new=TRUE, ann=FALSE)
minY<- min(Y_microns);  maxY<-max(Y_microns)
plot(c(minMin, maxMin),c(minY, maxY),typ='n', yaxt='n', xaxt='n')
lines(Minutes,Y_microns, typ='p', col='blue', cex=2, lwd=3, lty=2)

par(new=TRUE, ann=FALSE)
minZ<- min(Z_microns);  maxZ<-max(Z_microns)
plot(c(minMin, maxMin), c(minZ, maxZ), typ='n', yaxt='n', xaxt='n')
lines(Minutes,Z_microns, typ='p', col='purple', cex=2, lwd=3, lty=2)

mtext(" Biddeford, VIII-26-2008", line=-2, cex=2, adj=0)
mtext("Electrode 3", line=-2, cex=2, adj=1)
mtext(paste("Data Start at",Start), cex=1.25, adj=0)
browser()
detach(XX)