densefly:

library(densefly)


test_that("Check GetActivations", {
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.domean.rda")
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.domean.rda")
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.160.rda")
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.320.rda")
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.160.rda")
    load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.320.rda")

    set.seed(20000217)
    expect_equal(GetActivations(mnist.test.domean, 160, 0.1), mnist.test.Activations.160)
    set.seed(20000217)
    expect_equal(GetActivations(mnist.test.domean, 320, 0.1), mnist.test.Activations.320)
    set.seed(20000217)
    expect_equal(GetActivations(mnist.train.domean, 160, 0.1), mnist.train.Activations.160)
    set.seed(20000217)
    expect_equal(GetActivations(mnist.train.domean, 320, 0.1), mnist.train.Activations.320)
})

# test_that("Check GetLonGHash", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.LongHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.LongHash.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.LongHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.LongHash.320.rda")
#
#     expect_equal(GetLongHash(mnist.test.Activations.160), mnist.test.LongHash.160)
#     expect_equal(GetLongHash(mnist.test.Activations.320), mnist.test.LongHash.320)
#     expect_equal(GetLongHash(mnist.train.Activations.160), mnist.train.LongHash.160)
#     expect_equal(GetLongHash(mnist.train.Activations.320), mnist.train.LongHash.320)
# })
#
# test_that("Check GetShortHash", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.Activations.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.Activations.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.ShortHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.ShortHash.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.ShortHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.ShortHash.320.rda")
#
#     expect_equal(GetShortHash(mnist.test.Activations.160, 20), mnist.test.ShortHash.160)
#     expect_equal(GetShortHash(mnist.test.Activations.320, 20), mnist.test.ShortHash.320)
#     expect_equal(GetShortHash(mnist.train.Activations.160, 20), mnist.train.ShortHash.160)
#     expect_equal(GetShortHash(mnist.train.Activations.320, 20), mnist.train.ShortHash.320)
# })
#
# test_that("Check BuildEmbeddedObject", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.domean.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.domean.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.320.rda")
#
#     expect_equal(BuildEmbeddedObject(mnist.test, 8, 20, 0.1, TRUE, 20000217, FALSE), mnist.test.EmbeddedObject.160)
#     expect_equal(BuildEmbeddedObject(mnist.test, 16, 20, 0.1, TRUE, 20000217, FALSE), mnist.test.EmbeddedObject.320)
#     expect_equal(BuildEmbeddedObject(mnist.train, 8, 20, 0.1, TRUE, 20000217, FALSE), mnist.train.EmbeddedObject.160)
#     expect_equal(BuildEmbeddedObject(mnist.train, 16, 20, 0.1, TRUE, 20000217, FALSE), mnist.train.EmbeddedObject.320)
#     expect_equal(BuildEmbeddedObject(mnist.test.domean, 8, 20, 0.1, FALSE, 20000217, FALSE), mnist.test.EmbeddedObject.160)
#     expect_equal(BuildEmbeddedObject(mnist.test.domean, 16, 20, 0.1, FALSE, 20000217, FALSE), mnist.test.EmbeddedObject.320)
#     expect_equal(BuildEmbeddedObject(mnist.train.domean, 8, 20, 0.1, FALSE, 20000217, FALSE), mnist.train.EmbeddedObject.160)
#     expect_equal(BuildEmbeddedObject(mnist.train.domean, 16, 20, 0.1, FALSE, 20000217, FALSE), mnist.train.EmbeddedObject.320)
# })
#
# test_that("Check FindCandidateIndex", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.ShortHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.ShortHash.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.ShortHash.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.ShortHash.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.160.1.0.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.160.5.0.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.160.10.2.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.320.1.0.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.320.5.0.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.CandidateIndex.320.10.2.rda")
#
#     expect_equal(apply(mnist.test.ShortHash.160, 1, FindCandidateIndex, mnist.train.ShortHash.160, 1, 0), mnist.query.CandidateIndex.160.1.0)
#     expect_equal(apply(mnist.test.ShortHash.160, 1, FindCandidateIndex, mnist.train.ShortHash.160, 5, 0), mnist.query.CandidateIndex.160.5.0)
#     expect_equal(apply(mnist.test.ShortHash.160, 1, FindCandidateIndex, mnist.train.ShortHash.160, 10, 2), mnist.query.CandidateIndex.160.10.2)
#     expect_equal(apply(mnist.test.ShortHash.320, 1, FindCandidateIndex, mnist.train.ShortHash.320, 1, 0), mnist.query.CandidateIndex.320.1.0)
#     expect_equal(apply(mnist.test.ShortHash.320, 1, FindCandidateIndex, mnist.train.ShortHash.320, 5, 0), mnist.query.CandidateIndex.320.5.0)
#     expect_equal(apply(mnist.test.ShortHash.320, 1, FindCandidateIndex, mnist.train.ShortHash.320, 10, 2), mnist.query.CandidateIndex.320.10.2)
# })
#
# test_that("Check NearestNeighbour", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.160.0.5.FALSE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.160.0.10.FALSE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.160.0.5.TRUE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.160.0.10.TRUE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.320.0.5.FALSE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.320.0.10.FALSE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.320.0.5.TRUE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.NearestNeighbour.320.0.10.TRUE.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.320.rda")
#
#     mnist.query.NearestNeighbour.160.0.5.TRUE.check <- list()
#     mnist.query.NearestNeighbour.160.0.10.TRUE.check <- list()
#     mnist.query.NearestNeighbour.160.0.5.FALSE.check <- list()
#     mnist.query.NearestNeighbour.160.0.10.FALSE.check <- list()
#     mnist.query.NearestNeighbour.320.0.5.TRUE.check <- list()
#     mnist.query.NearestNeighbour.320.0.10.TRUE.check <- list()
#     mnist.query.NearestNeighbour.320.0.5.FALSE.check <- list()
#     mnist.query.NearestNeighbour.320.0.10.FALSE.check <- list()
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.160.0.5.TRUE.check <- c(mnist.query.NearestNeighbour.160.0.5.TRUE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.160[["encode.short"]][idx, ], mnist.test.EmbeddedObject.160[["encode.long"]][idx, ], mnist.train.EmbeddedObject.160, 0, 5, TRUE))
#     expect_equal(mnist.query.NearestNeighbour.160.0.5.TRUE.check, mnist.query.NearestNeighbour.160.0.5.TRUE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.160.0.10.TRUE.check <- c(mnist.query.NearestNeighbour.160.0.10.TRUE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.160[["encode.short"]][idx, ], mnist.test.EmbeddedObject.160[["encode.long"]][idx, ], mnist.train.EmbeddedObject.160, 0, 10, TRUE))
#     expect_equal(mnist.query.NearestNeighbour.160.0.10.TRUE.check, mnist.query.NearestNeighbour.160.0.10.TRUE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.160.0.5.FALSE.check <- c(mnist.query.NearestNeighbour.160.0.5.FALSE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.160[["encode.short"]][idx, ], mnist.test.EmbeddedObject.160[["encode.long"]][idx, ], mnist.train.EmbeddedObject.160, 0, 5, FALSE))
#     expect_equal(mnist.query.NearestNeighbour.160.0.5.FALSE.check, mnist.query.NearestNeighbour.160.0.5.FALSE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.160.0.10.FALSE.check <- c(mnist.query.NearestNeighbour.160.0.10.FALSE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.160[["encode.short"]][idx, ], mnist.test.EmbeddedObject.160[["encode.long"]][idx, ], mnist.train.EmbeddedObject.160, 0, 10, FALSE))
#     expect_equal(mnist.query.NearestNeighbour.160.0.5.TRUE.check, mnist.query.NearestNeighbour.160.0.5.TRUE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.320.0.5.TRUE.check <- c(mnist.query.NearestNeighbour.320.0.5.TRUE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.320[["encode.short"]][idx, ], mnist.test.EmbeddedObject.320[["encode.long"]][idx, ], mnist.train.EmbeddedObject.320, 0, 5, TRUE))
#     expect_equal(mnist.query.NearestNeighbour.320.0.5.TRUE.check, mnist.query.NearestNeighbour.320.0.5.TRUE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.320.0.10.TRUE.check <- c(mnist.query.NearestNeighbour.320.0.10.TRUE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.320[["encode.short"]][idx, ], mnist.test.EmbeddedObject.320[["encode.long"]][idx, ], mnist.train.EmbeddedObject.320, 0, 10, TRUE))
#     expect_equal(mnist.query.NearestNeighbour.320.0.10.TRUE.check, mnist.query.NearestNeighbour.320.0.10.TRUE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.320.0.5.FALSE.check <- c(mnist.query.NearestNeighbour.320.0.5.FALSE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.320[["encode.short"]][idx, ], mnist.test.EmbeddedObject.320[["encode.long"]][idx, ], mnist.train.EmbeddedObject.320, 0, 5, FALSE))
#     expect_equal(mnist.query.NearestNeighbour.320.0.5.FALSE.check, mnist.query.NearestNeighbour.320.0.5.FALSE)
#     for(idx in 1:100)
#         mnist.query.NearestNeighbour.320.0.10.FALSE.check <- c(mnist.query.NearestNeighbour.320.0.10.FALSE.check, FindNearestNeighbour(mnist.test.EmbeddedObject.320[["encode.short"]][idx, ], mnist.test.EmbeddedObject.320[["encode.long"]][idx, ], mnist.train.EmbeddedObject.320, 0, 10, FALSE))
#     expect_equal(mnist.query.NearestNeighbour.320.0.10.FALSE.check, mnist.query.NearestNeighbour.320.0.10.FALSE)
# })
#
# test_that("Check FindAllNearestNeighbour", {
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.AllNearestNeighbour.160.0.5.1.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.AllNearestNeighbour.160.0.10.1.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.AllNearestNeighbour.320.0.5.1.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.query.AllNearestNeighbour.320.0.10.1.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.test.EmbeddedObject.320.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.160.rda")
#     load("C:/Users/ray/Desktop/R Project/densefly/man/mnist.train.EmbeddedObject.320.rda")
#
#     expect_equal(FindAllNearestNeighbour(mnist.test.EmbeddedObject.160, mnist.train.EmbeddedObject.160, 0, 5, 1), mnist.query.AllNearestNeighbour.160.0.5.1)
#     expect_equal(FindAllNearestNeighbour(mnist.test.EmbeddedObject.160, mnist.train.EmbeddedObject.160, 0, 10, 1), mnist.query.AllNearestNeighbour.160.0.10.1)
#     expect_equal(FindAllNearestNeighbour(mnist.test.EmbeddedObject.320, mnist.train.EmbeddedObject.320, 0, 5, 1), mnist.query.AllNearestNeighbour.320.0.5.1)
#     expect_equal(FindAllNearestNeighbour(mnist.test.EmbeddedObject.320, mnist.train.EmbeddedObject.320, 0, 10, 1), mnist.query.AllNearestNeighbour.320.0.10.1)
# })