\begin{Schunk}
\begin{Sinput}
 library(mice)
 ## I was careless, did not look at hbsc carefully first
 set5 <- mice(hbsc, m = 5)
 ## To see what you get, do this
 par(ask = TRUE)
 plot(set5)
\end{Sinput}
\end{Schunk}
