# NOT RUN {
model.miss <- model_missing_data(
data = GBload[,-1], S = c(48,7*48),
no.of.last.indices.to.fix = dim(GBload)[1], consider.as.missing = 0,
min.val = 0
)
model.miss$estimated.models
model.miss$replaced.indices
new.GBload <- impute_modelled_data(model.miss)
# }
Run the code above in your browser using DataLab