data(mdata)
s <- prelim.norm(mdata) #do preliminary manipulations
thetahat <- em.norm(s) #find the mle
rngseed(1234567) #set random number generator seed
ximp <- imp.norm(s,thetahat,mdata) #impute missing data under the MLE
Run the code above in your browser using DataLab