if (FALSE) {
x <- BNDataset()
has.imputed.data(x) # FALSE
x <- read.dataset(x, "file.header", "file.data")
has.imputed.data(x) # FALSE, since read.dataset() actually reads raw data.
x <- impute(x)
has.imputed.data(x) # TRUE
}
Run the code above in your browser using DataLab