layout(matrix(1:6, 1, 3, byrow = TRUE))
XX<-read.csv("L2Mgrid.csv")
print(names(XX))
attach(XX)
plot(ProbeX, Xo.1.mV, typ='b')
points(ProbeX, Zo.1.mV, typ='b')
points(ProbeX, Zo.1.mV, typ='b', col='red')
points(ProbeX, Zo.2.mV, typ='b', col='green')
points(ProbeX, Zo.3.mV, typ='b', col='blue')
points(ProbeX, Xo.2.mV, typ='b', col='green')
points(ProbeX, Xo.3.mV, typ='b', col='blue')

mVAv<- (Xo.1.mV + Xo.2.mV + Xo.3.mV + Zo.1.mV + Zo.2.mV + Zo.3.mV)/6
plot(mVAv, typ='b')
plot(mVAv-lowess(mVAv, f=0.99)$y, typ='b')

detach(XX)