KidsFeet2 <- KidsFeet |> select(-name, -birthmonth) |> rescale()
testcase3 <- structure(list(birthyear = c(1, 0, 0),
testcase4 <- structure(list(x = c(1, 2, 3),
expect_equal(testcase1, fortify(Cl, k=5) |> head(3))
expect_equal(testcase2, fortify(Cl, which="heatmap", data=KidsFeet2) |> head(3))
expect_equal(testcase3, fortify(Cl, which="data", data=KidsFeet2) |> head(3))
# seems like ggdendro migth be caught by the stringsAsFactors change, so this
# didn't succeed on debian when CRAN checked it.  Removing the check for now  3/5/2020
# expect_equal(testcase4, fortify(Cl, which="labels") |> head(3))
wrapped_expect_doppelganger("clustering1", mplot(Cl, data=KidsFeet2, k=4, heatmap=2))
wrapped_expect_doppelganger("clustering2", mplot(Cl, data=KidsFeet2, k=4, heatmap=0.5, enumerate="transparent"))
wrapped_expect_doppelganger("clustering3", mplot(Cl, data=KidsFeet2, k=4, heatmap=2, type="triangle"))
wrapped_expect_doppelganger("clustering4", mplot(Cl, data=KidsFeet2, k=4, heatmap=0, type="triangle"))