quartz(width=11, height=7.5)
op <- par(mfrow = c(2, 3), # 2 x 2 pictures on one plot
          pty = "m")       # square plotting region,
skiplin<-22
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')
detach(XX)
browser()
#quartz()
skiplin<-161
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')


detach(XX)
browser()
#quartz()
skiplin<-300
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')


detach(XX)
browser()
#quartz()
skiplin<-451
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')


detach(XX)
browser()
#quartz()
skiplin<-590
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')


detach(XX)
browser()
#quartz()
skiplin<-729
XX<-read.csv("http://www.bio.umass.edu/biology/kunkel/LabWiki/images/7/7c/Chris044.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

ClmVav<-(DiffCl1_1_mV + DiffCl1_2_mV + DiffCl1_2_mV)/3
plot(Y_microns,ClmVav,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
        
lines(Y_microns,ClmVav , col='red')


detach(XX)