id column in hlm_resid() error

[aloy]

We should allow for a column to be called "id" or check for this before creating the return object.

alcohol <- read.csv("https://raw.githubusercontent.com/proback/BeyondMLR/master/data/alcohol.csv")
library(HLMdiag)
#> 
#> Attaching package: 'HLMdiag'
#> The following object is masked from 'package:stats':
#> 
#>     covratio
library(lme4)
#> Loading required package: Matrix
fit <- lmer(alcuse ~ age + (1|id), alcohol)
hlm_resid(fit)
#> Error: Column name `id` must not be duplicated.