swh:1:snp:0c004a03453a29b80f921a24433f7e780b9ceb53
Tip revision: 80c7b427b73eabcf1cbf64adf47708e2640d3ffb authored by Nitesh Turaga on 29 October 2019, 17:11:02 UTC
bump x.y.z version to even y prior to creation of RELEASE_3_10 branch
bump x.y.z version to even y prior to creation of RELEASE_3_10 branch
Tip revision: 80c7b42
testkmeans.R
context("Kmeans")
library(jsonlite)
test_that("kmeans finishes with result", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
expect_is(performKmeans(es, k = 10), "json")
})
test_that("kmeans works with datasets with lots of NAs", {
es <- read.gct(system.file("testdata/centers.gct", package="phantasus"))
clusters = fromJSON(performKmeans(es, k=2))
expect_length(clusters, nrow(es))
expect_equal(clusters[4], "")
})
# Invalid test. Interface changed such way so no indices passed to arguments
#test_that("kmeans returns only vector for a subset", {
# es <- read.gct(system.file("testdata/centers.gct", package="phantasus"))
# rows <- c(0, 2, 3, 5)
# expect_length(fromJSON(performKmeans(es, rows=rows, k = 2)), length(rows))
#})