quartz(width=8, height=8)
NoOx<-read.csv("Oxygen054.csv", header=FALSE, skip=304, nrows=180)
attach(NoOx)
NoOxV<-V7
back<-seq(1,0,-0.03445)
forw<-seq(0,1,0.03445)
fwdPback<-c(forw,back)
five<-c(fwdPback,fwdPback,fwdPback,fwdPback,fwdPback)
three<-c(fwdPback,fwdPback,fwdPback)
plot(-three,OxV,typ='l',
     ylab="uA",
     xlab="-Volts",
     lwd=2,
     col='red',
     cex.axis=2,
     cex.lab=1.5,
     main="Oxygen C/V plot, deoxygenated (black), air saturated (red)")
detach(NoOx)
Ox<-read.csv("Oxygen054.csv", header=FALSE, skip=486, nrows=180)
attach(Ox)
OxV<-V7
three<-c(fwdPback,fwdPback,fwdPback)
lines(-three, NoOxV, col='black',
     lwd=2)
detach(Ox)