Create arbuthnot.R