data(rp)
V1
V2
V3
V4
V5
V6
data(rp)
z<-rp[,3]
dz<- c(0,diff(z))
plot(1:104,dz,ylim=c(-1,1),main="Volume-Volume Displacement",
xlab="Time(scans)",ylab="Displacement(mm)")
lines(1:104,dz,col="blue",lwd=3)
legend("topright",legend="dZ/dt Translation",lwd=3,col="blue")
arrows(54,.5,91,-.184)
text(48,.5,"-.184mm")
Run the code above in your browser using DataLab