Notas de clase

Clasificación básica de las emociones

Resumen

En este documento se puede observar la manera en la que podemos declarar funciones en R y también la forma en la que se pueden pasar argumentos a las funciones.

Objetivo de las funciones

Lo que se declara son cuatro funciones cuyo objetivo es el de encontrar en una lista cerrada de palabras, el lugar al que corresponde la emoción.

1. El parámetro de entrada es una cadena de texto con una emoción del tercer nivel.

2. El parámetro de salida es el número identificador de la emoción central:

Tabla de equivalencias de las emociones

Emoción	Valor asignado
Enojo	1
Miedo	2
Tristeza	3
Alegría	4

Declaración de las funciones

v_alegria <- function(x){
  variantes <- list("optimismo", "serenidad", "amor")
  emocionCentral <- 0
  if( x %in% variantes ) {
    print("Se encontró en alegría")
    emocionCentral <- 4
  }
  return(emocionCentral)
}

v_enojo <- function(emocion){
  variantes <- list("Herido","Amenazado","Odioso","Enojado","Agresivo","Frustado","Distante", "crítico")
  resultadoE <- 0
  if ( emocion %in% variantes){
    print("Se encontró en enojo")
    resultadoE <- 1
  }
  else{ 
    print("No se encontró en enojo")
    resultadoE <- v_miedo(emocion)
  }
  return(resultadoE)
}


v_miedo <- function(emocion){
  variantes <- list("Humillado", "Rechazado", "Sumiso", "Inseguro", "Ansioso", "Asustado", "Ridiculizado", "Despreciado", "Alienado", "Inadecuado", "Insignificante", "Inútil", "Inferior", "Deficiente", "Preocupado", "Abrumado", "Temeroso", "Aterrorizado")
  resultado <- 0
  if(emocion %in% variantes){
    print("Se encontró en miedo")
    resultado <- 2
  }else{
    print("No se encontró en miedo")
    resultado <- v_tristeza(emocion)
  }
  return(resultado)
}

v_tristeza <- function (emotion) {
  variantes <- list("culpables", "abandonado", "desesperado", "deprimido", "solitario", "aburrido")
  resultadoT <- 0
  if (emotion %in% variantes){
    print("Se encontró en tristeza")
    resultadoT <- 3
  }
  else{
    print("No se encontró en tristeza")
    resultadoT <- v_alegria(emotion)
  }
  return (resultadoT)
}

Función de unión

La siguiente función tiene como objetivo el de ser el disparador principal para el resto de las funciones.

  paste("Emoción a clasificar: ", respuesta)

Error in paste("Emoción a clasificar: ", respuesta) : 
  object 'respuesta' not found

Aplicación

Para llamar a la función principal, ejecutamos la función v_emociones

v_emociones("amor")

Emoción a clasificar:  amor 
[1] "No se encontró en enojo"
[1] "No se encontró en miedo"
[1] "No se encontró en tristeza"
[1] "Se encontró en alegría"
[1] 4
[1] "Se logró"