Sort out why .data doesn't work

[ettieunwin]

Work out why getting a NOTE in the devtools::check() for
ret <- ggplot(melt(df,id.vars="t"), aes(x=t,y=value,col=variable))

in model_functions.R

[ettieunwin]

Fixed this in #24