Redes Neuronales

0. Concepto

Una Red Neuronal Artificial (ANN) modela la relación entre un conjunto de entradas y una salida, resolviendo un problema de aprendizaje.

Ejemplos de aplicación de Redes Neuronales son:
1. La recomendación de contenido de Netflix.
2. El feed de Instagram o TikTok.
3. Determinar el número o letra escrito a mano.

1. Instalar paquetes y llamar librerías

# install.packages("neuralnet")
library(neuralnet)

2. Alimentar con ejemplos

examen <- c(20,10,30,20,80,30)
proyecto <- c(90,20,40,50,50,80)
estatus <- c(1,0,0,0,0,1)
df <- data.frame(examen,proyecto,estatus)

3. Generar la Red Neuronal

red_neuronal <- neuralnet(estatus~., data=df) #para hacer la red neuronal
plot(red_neuronal, rep = "best")

4. Predecir con la Red Neuronal

prueba_examen <- c(30,40,85)
prueba_proyecto <- c(85,50,40)
prueba <-data.frame(prueba_examen,prueba_proyecto)
prediccion <- compute(red_neuronal, prueba) #se hace la predicción
prediccion$net.result
##             [,1]
## [1,]  1.04181012
## [2,] -0.02752338
## [3,] -0.02752338
probabilidad <- prediccion$net.result
resultado <- ifelse(probabilidad>0.5,1,0)
resultado
##      [,1]
## [1,]    1
## [2,]    0
## [3,]    0

5. Conclusión

Las redes neuronales permiten que los programas reconozcan patrones y resuelvan problemas comunes en inteligencia artificial y aprendizaje automático.

LS0tDQp0aXRsZTogIlJlZGVzIE5ldXJvbmFsZXMiDQphdXRob3I6ICJNYXJpYW5hIFJhbcOtcmV6IFJhbW9zIC0gQTAxMTc0MTU1Ig0KZGF0ZTogIjIwMjQtMDgtMTUiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0aGVtZTogInNwYWNlbGFiIg0KICAgIGhpZ2hsaWdodDogImthdGUiDQotLS0NCg0KIVtdKEM6XFxVc2Vyc1xcbWFyaTBcXE9uZURyaXZlXFxEb2N1bWVudHNcXFIgU3R1ZGlvXFxJQSBjb24gaW1wYWN0byBlbXByZXNhcmlhbFxcTW9kdWxvIDJcXEdpZnNcXGdpZl9yZWRlcy5naWYpDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiAjOTBBNTgzOyI+UmVkZXMgTmV1cm9uYWxlczwvc3Bhbj4NCg0KIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiAjOTBBNTgzOyI+MC4gQ29uY2VwdG88L3NwYW4+DQpVbmEgUmVkIE5ldXJvbmFsIEFydGlmaWNpYWwgKEFOTikgbW9kZWxhIGxhIHJlbGFjacOzbiBlbnRyZSB1biBjb25qdW50byBkZSBlbnRyYWRhcyB5IHVuYSBzYWxpZGEsIHJlc29sdmllbmRvIHVuIHByb2JsZW1hIGRlIGFwcmVuZGl6YWplLiAgDQoNCkVqZW1wbG9zIGRlIGFwbGljYWNpw7NuIGRlIFJlZGVzIE5ldXJvbmFsZXMgc29uOiAgDQoxLiBMYSByZWNvbWVuZGFjacOzbiBkZSBjb250ZW5pZG8gZGUgTmV0ZmxpeC4gIA0KMi4gRWwgZmVlZCBkZSBJbnN0YWdyYW0gbyBUaWtUb2suICANCjMuIERldGVybWluYXIgZWwgbsO6bWVybyBvIGxldHJhIGVzY3JpdG8gYSBtYW5vLiAgDQoNCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjogIzkwQTU4MzsiPjEuIEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXM8L3NwYW4+DQpgYGB7cn0NCiMgaW5zdGFsbC5wYWNrYWdlcygibmV1cmFsbmV0IikNCmxpYnJhcnkobmV1cmFsbmV0KQ0KYGBgDQoNCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjogIzkwQTU4MzsiPjIuIEFsaW1lbnRhciBjb24gZWplbXBsb3M8L3NwYW4+DQpgYGB7cn0NCmV4YW1lbiA8LSBjKDIwLDEwLDMwLDIwLDgwLDMwKQ0KcHJveWVjdG8gPC0gYyg5MCwyMCw0MCw1MCw1MCw4MCkNCmVzdGF0dXMgPC0gYygxLDAsMCwwLDAsMSkNCmRmIDwtIGRhdGEuZnJhbWUoZXhhbWVuLHByb3llY3RvLGVzdGF0dXMpDQpgYGANCg0KIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiAjOTBBNTgzOyI+My4gR2VuZXJhciBsYSBSZWQgTmV1cm9uYWw8L3NwYW4+DQpgYGB7cn0NCnJlZF9uZXVyb25hbCA8LSBuZXVyYWxuZXQoZXN0YXR1c34uLCBkYXRhPWRmKSAjcGFyYSBoYWNlciBsYSByZWQgbmV1cm9uYWwNCnBsb3QocmVkX25ldXJvbmFsLCByZXAgPSAiYmVzdCIpDQpgYGANCg0KIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiAjOTBBNTgzOyI+NC4gUHJlZGVjaXIgY29uIGxhIFJlZCBOZXVyb25hbDwvc3Bhbj4NCmBgYHtyfQ0KcHJ1ZWJhX2V4YW1lbiA8LSBjKDMwLDQwLDg1KQ0KcHJ1ZWJhX3Byb3llY3RvIDwtIGMoODUsNTAsNDApDQpwcnVlYmEgPC1kYXRhLmZyYW1lKHBydWViYV9leGFtZW4scHJ1ZWJhX3Byb3llY3RvKQ0KcHJlZGljY2lvbiA8LSBjb21wdXRlKHJlZF9uZXVyb25hbCwgcHJ1ZWJhKSAjc2UgaGFjZSBsYSBwcmVkaWNjacOzbg0KcHJlZGljY2lvbiRuZXQucmVzdWx0DQpwcm9iYWJpbGlkYWQgPC0gcHJlZGljY2lvbiRuZXQucmVzdWx0DQpyZXN1bHRhZG8gPC0gaWZlbHNlKHByb2JhYmlsaWRhZD4wLjUsMSwwKQ0KcmVzdWx0YWRvDQpgYGANCg0KIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiAjOTBBNTgzOyI+NS4gQ29uY2x1c2nDs248L3NwYW4+DQoNCkxhcyByZWRlcyBuZXVyb25hbGVzIHBlcm1pdGVuIHF1ZSBsb3MgcHJvZ3JhbWFzIHJlY29ub3pjYW4gcGF0cm9uZXMgeSByZXN1ZWx2YW4gcHJvYmxlbWFzIGNvbXVuZXMgZW4gaW50ZWxpZ2VuY2lhIGFydGlmaWNpYWwgeSBhcHJlbmRpemFqZSBhdXRvbcOhdGljby4gDQo=