analyze the toenail data in R package HSAUR$2$using glmer. Write function and get summary of both random$-$intercept model, random$-$slope model with all predictors and reduced random$-$slope model. Make sure your code is in R studio. Below is the example code for random$-$intercept model:

# Load the library

library$($HSAUR$2)$

# Upload the data

data$("$toenail$",$package$=$"HSAUR$2")$

# Details from the data

summary$($toenail$)$

head$($toenail$)$

# Load the package

library$($lme$4)$

# Random$-$intercept model

m$1<-$ glmer$($outcome ~ treatment$*$time $+(1|$patientID$),$

data$=$toenail, family$=$binomial$)$

summary$($m$1)$