# Lobster_Lesion_CaH_080613.R
filnam="Lobster_CaHScanJun13.csv"
ZZ<- read.csv(filnam, skip=0)
attach(ZZ)
print(names(ZZ))
Min_From<-ZZ[,1]
X_microns<-ZZ[,2]
Y_microns<-ZZ[,3]
Z_microns<-ZZ[,4]

quartz(width=18, height=6)
plot(c(min(Min_From),max(Min_From)), c(min(X_microns),max(X_microns)), 
     typ='n', 
     main=paste(filnam,"Position, X=red, Y=green, Z=blue"),
     xlab="time (min)",
     ylab="position um")
points(Min_From, Z_microns, col='blue', pch=20, cex=2)
points(Min_From, Y_microns, col='green', pch=20, cex=2)
points(Min_From, X_microns, col='red', pch=20, cex=2)

browser()
quartz(width=8, height=5)
plot(X_microns, Y_microns, main=paste(filnam,"Y_microns vs X_microns"), cex=2, lwd=3) 
browser()
quartz(width=8, height=6)
plot(X_microns,AvggradCauV, typ='l', main=paste(filnam,"600x100um Grid of Ca uV"), cex=2, lwd=3)
browser()
quartz(width=8, height=6)
plot(X_microns,NagelRead0Ca_1_mV, typ='l', main=paste(filnam,"600x100um Grid of Ca mV"), cex=2, lwd=3)
detach(ZZ)