MVO2 Protocol

MVO2 Volume Progress

The picture above is generated by the following R script.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/Rscript
library(GDD) 
GDD(file="mvo2.png", type="png", width=420, height=240, ps=11, bg="white")
stats<-read.table("~/mvo2")
date<-as.Date(stats[,2])
volume<-stats[,1]
par(mfrow=c(1,1))
plot(date
  , volume
  , pch = 16
  , xaxt = "n"
  , type = "b"
  , xlab = "Date"
  , ylab = "Number of Sets"
  , sub = "Cadence: 7 snatches per round"
)
axis(1, at=date, labels=format(date, "%Y-%m-%d"))
title("MVO2 Volume Progress")
dev.off()