Teoría

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

Algunos ejemplos de aplicación de ANN son:

  • La recomendación de contenido de Netflix.
  • El feed de Instagram.
  • Determinar el número escrito a mano.

Ejercicio 2. Cáncer de Mama

1. Instalar paquetes y librerias

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

2. Obtener datos

#file.choose()
df2 <- read.csv("/Users/jazmincortez/Desktop/Concentración IA/M2 Tareas/cancer_de_mama.csv")
df2$diagnosis <- ifelse(df2$diagnosis == "M",1,0)

3. Generar la Red Neuronal

set.seed(123)
rn2<- neuralnet(diagnosis ~., data=df2   ) 
plot(rn2, rep="best")

4. Predecir Resultados

prueba2 <- df2[c(19,20,21,22,23), ]
prediccion2 <- compute(rn2,prueba2)
prediccion2$net.result
##         [,1]
## 19 0.3725802
## 20 0.3725802
## 21 0.3725802
## 22 0.3725802
## 23 0.3725802

probabilidad2 <- prediccion2$net.result
resultado2 <- ifelse(probabilidad2>0.5,1,0)
resultado2
##    [,1]
## 19    0
## 20    0
## 21    0
## 22    0
## 23    0
LS0tCnRpdGxlOiAiUmVkZXMgTmV1cm9uYWxlczogQ8OhbmNlciBkZSBNYW1hIgphdXRob3I6ICJKYXptaW4gQ29ydGV6IgpkYXRlOiAiMjAyNC0wMi0yMiIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICB0b2M6IHRydWUKICAgdG9jX2Zsb2F0OiB0cnVlCiAgIGNvZGVfZG93bmxvYWQ6IHRydWUKICAgdGhlbWU6ICJzcGFjZWxhYiIKICAgaGlnaGxpZ2h0OiAia2F0ZSIKLS0tCgohW10oL1VzZXJzL2phem1pbmNvcnRlei9EZXNrdG9wL0NvbmNlbnRyYWNpb8yBbiBJQS9NMiBUYXJlYXMvY2FuY2VyLmdpZikKCiMgPHNwYW4gc3R5bGU9ImNvbG9yOnBpbms7Ij5UZW9yw61hPC9zcGFuPgoKVW5hIFJlZCBOZXVyb25hbCBBcnRpZmljaWFsIChBTk4pIG1vZGVsYSBsYSByZWxhY2nDs24gZW50cmUgdW4gY29uanVudG8gZGUgZW50cmFkYXMgeSB1bmEgc2FsaWRhLCByZXNvbHZpZW5kbyB1biBwcm9ibGVtYSBkZSBhcHJlbmRpemFqZS4KCkFsZ3Vub3MgZWplbXBsb3MgZGUgYXBsaWNhY2nDs24gZGUgQU5OIHNvbjoKCiogTGEgcmVjb21lbmRhY2nDs24gZGUgY29udGVuaWRvIGRlIE5ldGZsaXguCiogRWwgZmVlZCBkZSBJbnN0YWdyYW0uCiogRGV0ZXJtaW5hciBlbCBuw7ptZXJvIGVzY3JpdG8gYSBtYW5vLgoKIyA8c3BhbiBzdHlsZT0iY29sb3I6cGluayA7Ij4gRWplcmNpY2lvIDIuIEPDoW5jZXIgZGUgTWFtYSA8L3NwYW4+CgojIyA8c3BhbiBzdHlsZT0iY29sb3I6cGluayA7Ij4gMS4gSW5zdGFsYXIgcGFxdWV0ZXMgeSBsaWJyZXJpYXMgPC9zcGFuPgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJuZXVyYWxuZXQiKQpsaWJyYXJ5KG5ldXJhbG5ldCkKYGBgCgojIyA8c3BhbiBzdHlsZT0iY29sb3I6cGluazsiPiAyLiBPYnRlbmVyIGRhdG9zIDwvc3Bhbj4KYGBge3J9CiNmaWxlLmNob29zZSgpCmRmMiA8LSByZWFkLmNzdigiL1VzZXJzL2phem1pbmNvcnRlei9EZXNrdG9wL0NvbmNlbnRyYWNpb8yBbiBJQS9NMiBUYXJlYXMvY2FuY2VyX2RlX21hbWEuY3N2IikKZGYyJGRpYWdub3NpcyA8LSBpZmVsc2UoZGYyJGRpYWdub3NpcyA9PSAiTSIsMSwwKQpgYGAKCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjpwaW5rOyI+My4gR2VuZXJhciBsYSBSZWQgTmV1cm9uYWw8L3NwYW4+CgpgYGB7cn0Kc2V0LnNlZWQoMTIzKQpybjI8LSBuZXVyYWxuZXQoZGlhZ25vc2lzIH4uLCBkYXRhPWRmMiAgICkgCnBsb3Qocm4yLCByZXA9ImJlc3QiKQpgYGAKCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjpwaW5rOyI+NC4gUHJlZGVjaXIgUmVzdWx0YWRvczwvc3Bhbj4KYGBge3J9CnBydWViYTIgPC0gZGYyW2MoMTksMjAsMjEsMjIsMjMpLCBdCnByZWRpY2Npb24yIDwtIGNvbXB1dGUocm4yLHBydWViYTIpCnByZWRpY2Npb24yJG5ldC5yZXN1bHQKYGBgCgojIwpgYGB7cn0KcHJvYmFiaWxpZGFkMiA8LSBwcmVkaWNjaW9uMiRuZXQucmVzdWx0CnJlc3VsdGFkbzIgPC0gaWZlbHNlKHByb2JhYmlsaWRhZDI+MC41LDEsMCkKcmVzdWx0YWRvMgpgYGAKCgo=