filnam="OXY0824_17.csv"
zz<-read.csv(filnam, header=FALSE, skip=2)
print(names(zz))
attach(zz)
up<-1:19
up2<-38+up
up3<-76+up
up4<-(3*38)+up
up5<-(4*38)+up
plot(c(0,-1), c(0,-3.2), typ='n', main=paste(filnam, "in Oxygenated SW"))
lines(V7,V8, typ='b')
browser()
Oxy<- V8
plot(c(0,-1), c(0,-3.2), typ='n', main=paste(filnam, "in Oxygenated SW"))
lines(V7[up],V8[up], typ='b', col='red')
lines(V7[up2],V8[up2], typ='b', col='red')
lines(V7[up3],V8[up3], typ='b', col='red')
lines(V7[up4],V8[up4], typ='b', col='red')
lines(V7[up5],V8[up5], typ='b', col='red')
lines(c(-0.75,-0.75),c(-3,0), col='red',lwd=3)
detach(zz)
browser()

filnam="OXY0824_16.csv"
zz<-read.csv(filnam, header=FALSE, skip=1)
print(names(zz))
attach(zz)
plot(V7,V8, typ='b', col='blue', main=paste(filnam, "in Deoxygenated SW"))
lines(V7[up],V8[up], typ='b', col='green')
lines(V7[up2],V8[up2], typ='b', col='green')

browser()
plot(V7,V8, typ='n', col='blue', main=paste(filnam, "in Deoxygenated SW"))
lines(V7[up],V8[up], typ='b', col='green')
lines(V7[up2],V8[up2], typ='b', col='green')

lines(V7[up],Oxy[up], typ='b', col='red')
lines(V7[up2],Oxy[up2], typ='b', col='red')
lines(V7[up3],Oxy[up3], typ='b', col='red')
lines(V7[up4],Oxy[up4], typ='b', col='red')
lines(V7[up5],Oxy[up5], typ='b', col='red')

detach(zz)