# NOT RUN {
##Simulate data
N = 500
m = rep(1:2, each=N)
x1 = rnorm(n=N*2)
x2 = rnorm(n=N*2)
x3 = rnorm(n=N*2)
y = x1 + x2 + x3 + rnorm(n=N*2)
dat = data.frame(m, x1, x2, x3, y)
m1 = lm(y ~ x1 + x2 + x3, data=dat, subset=m==1)
m2 = lm(y ~ x1 + x2 + x3, data=dat, subset=m==2)
mList = list(m1, m2)
compare_resids(model_list = mList)
# }
Run the code above in your browser using DataLab