Nothing
data("CBF")
w <- 60; p <- 6; a <- 6
bag1 <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 1,],
w, p, a, "exact", 0.01)
bag2 <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 2,],
w, p, a, "exact", 0.01)
bag3 <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 3,],
w, p, a, "exact", 0.01)
sample <- (CBF[["data_test"]][CBF[["labels_test"]] == 3,])[1,]
test_that("test cosine sim #1", {
tfidf <- bags_to_tfidf( list("cylinder" = bag1, "bell" = bag2, "funnel" = bag3) )
bag <- series_to_wordbag(sample, w, p, a, "exact", 0.01)
cosines <- cosine_sim(list("bag" = bag, "tfidf" = tfidf))
expect_equal(3, which(cosines$cosines == max(cosines$cosines)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.