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/3/3b/Chris039.txt", skip=skiplin, nrows=121)
attach(XX)
print(names(XX))

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

plot(Y_microns,Avg_zgradCl_uV ,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
lines(Y_microns,Avg_zgradCl_uV , col='red')


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

plot(Y_microns,Avg_zgradCl_uV ,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
lines(Y_microns,Avg_zgradCl_uV , col='red')


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

plot(Y_microns,Avg_zgradCl_uV ,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
lines(Y_microns,Avg_zgradCl_uV , col='red')


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

plot(Y_microns,Avg_zgradCl_uV ,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
lines(Y_microns,Avg_zgradCl_uV , col='red')


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

plot(Y_microns,Avg_zgradCl_uV ,
        'b', 
        col=rainbow(121), 
        lwd= (1:121)/11, 
        main=paste(skiplin, 'Hours from =', Hrs_From[1])) 
lines(Y_microns,Avg_zgradCl_uV , col='red')


detach(XX)