Nothing
test_that("ACEP DB", {
skip_if_offline()
skip_on_cran()
df <- data.frame(texto = c("El SUTEBA fue al paro. Reclaman mejoras salariales.",
"El SOIP lleva adelante un plan de lucha con paros y piquetes."))
diccionario <- c("paro", "lucha", "piquetes")
db <- acep_db(df, df$texto, diccionario, 4)
dimensiones <- length(df)
expect_equal(dimensiones, length(df))
})
test_that("ACEP DB E1", {
skip_if_offline()
skip_on_cran()
df <- data.frame(texto = c("El SUTEBA fue al paro. Reclaman mejoras salariales.",
"El SOIP lleva adelante un plan de lucha con paros y piquetes."))
diccionario <- c("paro", "lucha", "piquetes")
db <- acep_db(diccionario, df$texto, diccionario, 4)
dimensiones <- length(df)
expect_equal(dimensiones, length(df))
})
test_that("ACEP DB E2", {
skip_if_offline()
skip_on_cran()
df <- data.frame(texto = c("El SUTEBA fue al paro. Reclaman mejoras salariales.",
"El SOIP lleva adelante un plan de lucha con paros y piquetes."))
diccionario <- c("paro", "lucha", "piquetes")
db <- acep_db(df, df, diccionario, 4)
dimensiones <- length(df)
expect_equal(dimensiones, length(df))
})
test_that("ACEP DB E3", {
skip_if_offline()
skip_on_cran()
df <- data.frame(texto = c("El SUTEBA fue al paro. Reclaman mejoras salariales.",
"El SOIP lleva adelante un plan de lucha con paros y piquetes."))
diccionario <- c("paro", "lucha", "piquetes")
db <- acep_db(df, df$texto, df, 4)
dimensiones <- length(df)
expect_equal(dimensiones, length(df))
})
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.