Displaying 1 result from an estimated 1 matches for "emptydiamonds1".
2012 May 09
0
Failed Convergence when using mi to generate synthetic data
...:
library(ggplot2)
library(mi)
data(diamonds)
#use only 2800 or so observations!
diamonds1 <-subset(diamonds, color=="J")
rm(diamonds)
#simplify the data structure
diamonds1 <-subset(diamonds1, select=-c(x, z, y, cut, clarity, depth,
table))
str(diamonds1)
#generate a blank table
emptydiamonds1 <-diamonds1
for(j in 1:dim(diamonds1)[2]) {
emptydiamonds1[,j] <- NA
}
#throw up a dummy variable for imputation
diamonds1$impute=0
emptydiamonds1$impute=1
#package the two into one dataset
d2 <-rbind(diamonds1, emptydiamonds1)
str(d2)
#run in.info
miinfo <-...