begin audit of R code model