dataset <- TEST.study@datasets[[1]]
shouldSuccess("Impute matrix with knn impute", {
res <- Impute(dataset)
if(any(is.na(res)))
stop("there are still NA value is the cells")
})
shouldSuccess("Impute matrix with remove impute", {
res <- Impute(dataset, method=IMPUTE.method.remove)
if(any(is.na(res)))
stop("there are still NA value is the cells")
})
shouldSuccess("Impute study object with knn impute", {
res <- Impute(TEST.study, k=3)
if(any(is.na(res@datasets[[1]])))
stop("there are still NA value is the cells")
})
shouldSuccess("Impute study object with remove impute", {
res <- Impute(TEST.study, method=IMPUTE.method.remove)
if(any(is.na(res@datasets[[1]])))
stop("there are still NA value is the cells")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.