Nothing
#' @title Frecuencia, menciones e intensidad.
#' @description Funcion que usa las funciones acep_frec, acep_men y acep_int y
#' devuelve una tabla con tres columnas nuevas: numero de palabras,
#' numero de menciones del diccionario, indice de intensidad.
#' @param db data frame con los textos a procesar.
#' @param t columna de data frame que contiene el vector
#' de textos a procesar.
#' @param d diccionario en formato vector.
#' @param n cantidad de decimales del indice de intensidad.
#' @return Si todas las entradas son correctas, la salida sera una
#' base de datos en formato tabular con tres nuevas variables.
#' @keywords indicadores
#' @export acep_db
#' @examples
#' 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")
#' acep_db(df, df$texto, diccionario, 4)
#' @export
acep_db <- function(db, t, d, n) {
if(is.data.frame(db) != TRUE){
mensaje <- "No ingresaste un marco de datos en el parametro db. Vuelve a intentarlo ingresando un marco de datos!"
return(message(mensaje))
}
if(is.vector(t) != TRUE){
mensaje <- "No ingresaste un vector en el parametro t. Vuelve a intentarlo ingresando un vector!"
return(message(mensaje))
}
if(is.vector(d) != TRUE){
mensaje <- "No ingresaste un vector en el parametro d. Vuelve a intentarlo ingresando un vector!"
return(message(mensaje))
} else {
tryCatch({
if(is.data.frame(db) == TRUE){
db <- db
db$n_palabras <- acep_frec(t)
db$conflictos <- acep_men(t, d)
db$intensidad <- acep_int(db$conflictos, db$n_palabras, n)
}
}
)
return(db)
}
}
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.