quartz(width=8, height=7)
layout(matrix(1:1, 1, 1, byrow = TRUE))

XX<-read.csv("UNE2.2_062.csv", skip=3, nrows=-1)
print(names(XX))
attach(XX)
OxuV<-AvgGradO2uV
Start<- Hrs_From[1]
Minutes<- round((Hrs_From -Start)*60,1)
ThisMax<-25
minMin<-min(Minutes); maxMin<- max(Minutes)
plot(c(minMin,ThisMax),c(-18000,2000),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: 14 + 27 day 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, ThisMax),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, ThisMax),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, ThisMax), c(minZ, maxZ), typ='n', yaxt='n', xaxt='n')
lines(Minutes,Z_microns, typ='p', col='purple', cex=2, lwd=3, lty=2)

detach(XX)

mtext(" Biddeford, VIII-27-2008", line=-2, cex=2, adj=0)
mtext("Electrode 4", line=-2, cex=2, adj=1)
mtext(paste("Data Start at",Start), cex=1.25, adj=0)