Raw Message

Message-ID: <BANLkTimieoagGtTv+8fvfODgS66FmSpSig@mail.gmail.com>
Date: 2011-06-01T21:34:22Z
From: Steven Kennedy
Subject: Missing completely at random
In-Reply-To: <290812.68412.qm@web34207.mail.mud.yahoo.com>

This works, but there might be a better way:

misscols<-lapply(howmanyMiss, function(x) sample(1:n, x))

for (i in 1:nMiss){
	for (j in misscols[[i]]){
		X[idMiss[i],j]<-NA
	}
}