### Generation of artificial longData
data <- gald3d(percentOfMissing=0.3)
part <- partition(rep(1:3,each=50))
plot3d(data,part)
### Imputation
data1 <- imputation(data,method="copyMean")
### Quality criterion
# qualityCriterion(data,part)
Run the code above in your browser using DataLab