Red-neuronal.

r2600873

2024-05-14

install.packages('neuralnet')

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3'

## (as 'lib' is unspecified)
library(neuralnet)
#Cargar datos
data(iris)
head(iris)

## Sepal.Length Sepal.Width Petal.Length Petal.Width Species

## 1 5.1 3.5 1.4 0.2 setosa
## 2 4.9 3.0 1.4 0.2 setosa
## 3 4.7 3.2 1.3 0.2 setosa
## 4 4.6 3.1 1.5 0.2 setosa
## 5 5.0 3.6 1.4 0.2 setosa
## 6 5.4 3.9 1.7 0.4 setosa
#Dividir conjunto de datos en datos de testeo y entrenamiento
fold.test <- sample(nrow(iris), nrow(iris) / 3)
test <- iris[fold.test, ]
train <- iris[-fold.test, ]

#Entrenamiento de la red
ann <- neuralnet(as.numeric(Species) ~ Sepal.Length + Sepal.Width +
Petal.Length + Petal.Width, train, hidden = c(10,5))
ann

## $call
## neuralnet(formula = as.numeric(Species) ~ Sepal.Length + Sepal.Width +
## Petal.Length + Petal.Width, data = train, hidden = c(10,
## 5))
##
## $response
## as.numeric(Species)
## 3 1
## 5 1
## 6 1
## 7 1
## 8 1
## 11 1
## 12 1
## 14 1
## 16 1

1
## 17 1
## 20 1
## 22 1
## 23 1
## 24 1
## 25 1
## 26 1
## 27 1
## 28 1
## 29 1
## 30 1
## 31 1
## 35 1
## 37 1
## 38 1
## 39 1
## 40 1
## 44 1
## 47 1
## 48 1
## 50 1
## 52 2
## 53 2
## 55 2
## 56 2
## 57 2
## 58 2
## 59 2
## 60 2
## 61 2
## 62 2
## 63 2
## 65 2
## 66 2
## 67 2
## 68 2
## 69 2
## 72 2
## 73 2
## 74 2
## 76 2
## 77 2
## 78 2
## 80 2
## 81 2
## 82 2
## 83 2
## 85 2
## 86 2
## 88 2
## 89 2
## 90 2
## 92 2
## 93 2

2
## 94 2
## 95 2
## 97 2
## 98 2
## 101 3
## 102 3
## 103 3
## 105 3
## 106 3
## 108 3
## 109 3
## 111 3
## 112 3
## 113 3
## 114 3
## 117 3
## 118 3
## 119 3
## 120 3
## 121 3
## 122 3
## 123 3
## 125 3
## 127 3
## 129 3
## 131 3
## 135 3
## 137 3
## 138 3
## 139 3
## 143 3
## 144 3
## 145 3
## 146 3
## 147 3
## 149 3
## 150 3
##
## $covariate
## Sepal.Length Sepal.Width Petal.Length Petal.Width
## 3 4.7 3.2 1.3 0.2
## 5 5.0 3.6 1.4 0.2
## 6 5.4 3.9 1.7 0.4
## 7 4.6 3.4 1.4 0.3
## 8 5.0 3.4 1.5 0.2
## 11 5.4 3.7 1.5 0.2
## 12 4.8 3.4 1.6 0.2
## 14 4.3 3.0 1.1 0.1
## 16 5.7 4.4 1.5 0.4
## 17 5.4 3.9 1.3 0.4
## 20 5.1 3.8 1.5 0.3
## 22 5.1 3.7 1.5 0.4
## 23 4.6 3.6 1.0 0.2
## 24 5.1 3.3 1.7 0.5

3
## 25 4.8 3.4 1.9 0.2
## 26 5.0 3.0 1.6 0.2
## 27 5.0 3.4 1.6 0.4
## 28 5.2 3.5 1.5 0.2
## 29 5.2 3.4 1.4 0.2
## 30 4.7 3.2 1.6 0.2
## 31 4.8 3.1 1.6 0.2
## 35 4.9 3.1 1.5 0.2
## 37 5.5 3.5 1.3 0.2
## 38 4.9 3.6 1.4 0.1
## 39 4.4 3.0 1.3 0.2
## 40 5.1 3.4 1.5 0.2
## 44 5.0 3.5 1.6 0.6
## 47 5.1 3.8 1.6 0.2
## 48 4.6 3.2 1.4 0.2
## 50 5.0 3.3 1.4 0.2
## 52 6.4 3.2 4.5 1.5
## 53 6.9 3.1 4.9 1.5
## 55 6.5 2.8 4.6 1.5
## 56 5.7 2.8 4.5 1.3
## 57 6.3 3.3 4.7 1.6
## 58 4.9 2.4 3.3 1.0
## 59 6.6 2.9 4.6 1.3
## 60 5.2 2.7 3.9 1.4
## 61 5.0 2.0 3.5 1.0
## 62 5.9 3.0 4.2 1.5
## 63 6.0 2.2 4.0 1.0
## 65 5.6 2.9 3.6 1.3
## 66 6.7 3.1 4.4 1.4
## 67 5.6 3.0 4.5 1.5
## 68 5.8 2.7 4.1 1.0
## 69 6.2 2.2 4.5 1.5
## 72 6.1 2.8 4.0 1.3
## 73 6.3 2.5 4.9 1.5
## 74 6.1 2.8 4.7 1.2
## 76 6.6 3.0 4.4 1.4
## 77 6.8 2.8 4.8 1.4
## 78 6.7 3.0 5.0 1.7
## 80 5.7 2.6 3.5 1.0
## 81 5.5 2.4 3.8 1.1
## 82 5.5 2.4 3.7 1.0
## 83 5.8 2.7 3.9 1.2
## 85 5.4 3.0 4.5 1.5
## 86 6.0 3.4 4.5 1.6
## 88 6.3 2.3 4.4 1.3
## 89 5.6 3.0 4.1 1.3
## 90 5.5 2.5 4.0 1.3
## 92 6.1 3.0 4.6 1.4
## 93 5.8 2.6 4.0 1.2
## 94 5.0 2.3 3.3 1.0
## 95 5.6 2.7 4.2 1.3
## 97 5.7 2.9 4.2 1.3
## 98 6.2 2.9 4.3 1.3
## 101 6.3 3.3 6.0 2.5

4
## 102 5.8 2.7 5.1 1.9
## 103 7.1 3.0 5.9 2.1
## 105 6.5 3.0 5.8 2.2
## 106 7.6 3.0 6.6 2.1
## 108 7.3 2.9 6.3 1.8
## 109 6.7 2.5 5.8 1.8
## 111 6.5 3.2 5.1 2.0
## 112 6.4 2.7 5.3 1.9
## 113 6.8 3.0 5.5 2.1
## 114 5.7 2.5 5.0 2.0
## 117 6.5 3.0 5.5 1.8
## 118 7.7 3.8 6.7 2.2
## 119 7.7 2.6 6.9 2.3
## 120 6.0 2.2 5.0 1.5
## 121 6.9 3.2 5.7 2.3
## 122 5.6 2.8 4.9 2.0
## 123 7.7 2.8 6.7 2.0
## 125 6.7 3.3 5.7 2.1
## 127 6.2 2.8 4.8 1.8
## 129 6.4 2.8 5.6 2.1
## 131 7.4 2.8 6.1 1.9
## 135 6.1 2.6 5.6 1.4
## 137 6.3 3.4 5.6 2.4
## 138 6.4 3.1 5.5 1.8
## 139 6.0 3.0 4.8 1.8
## 143 5.8 2.7 5.1 1.9
## 144 6.8 3.2 5.9 2.3
## 145 6.7 3.3 5.7 2.5
## 146 6.7 3.0 5.2 2.3
## 147 6.3 2.5 5.0 1.9
## 149 6.2 3.4 5.4 2.3
## 150 5.9 3.0 5.1 1.8
##
## $model.list
## $model.list$response
## [1] "as.numeric(Species)"
##
## $model.list$variables
## [1] "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width"
##
##
## $err.fct
## function (x, y)
## {
## 1/2 * (y - x)^2
## }
## <bytecode: 0x61b40689bd98>
## <environment: 0x61b40689e540>
## attr(,"type")
## [1] "sse"
##
## $act.fct
## function (x)
## {

5
## 1/(1 + exp(-x))
## }
## <bytecode: 0x61b40689b260>
## <environment: 0x61b40689a968>
## attr(,"type")
## [1] "logistic"
##
## $linear.output
## [1] TRUE
##
## $data
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 3 4.7 3.2 1.3 0.2 setosa
## 5 5.0 3.6 1.4 0.2 setosa
## 6 5.4 3.9 1.7 0.4 setosa
## 7 4.6 3.4 1.4 0.3 setosa
## 8 5.0 3.4 1.5 0.2 setosa
## 11 5.4 3.7 1.5 0.2 setosa
## 12 4.8 3.4 1.6 0.2 setosa
## 14 4.3 3.0 1.1 0.1 setosa
## 16 5.7 4.4 1.5 0.4 setosa
## 17 5.4 3.9 1.3 0.4 setosa
## 20 5.1 3.8 1.5 0.3 setosa
## 22 5.1 3.7 1.5 0.4 setosa
## 23 4.6 3.6 1.0 0.2 setosa
## 24 5.1 3.3 1.7 0.5 setosa
## 25 4.8 3.4 1.9 0.2 setosa
## 26 5.0 3.0 1.6 0.2 setosa
## 27 5.0 3.4 1.6 0.4 setosa
## 28 5.2 3.5 1.5 0.2 setosa
## 29 5.2 3.4 1.4 0.2 setosa
## 30 4.7 3.2 1.6 0.2 setosa
## 31 4.8 3.1 1.6 0.2 setosa
## 35 4.9 3.1 1.5 0.2 setosa
## 37 5.5 3.5 1.3 0.2 setosa
## 38 4.9 3.6 1.4 0.1 setosa
## 39 4.4 3.0 1.3 0.2 setosa
## 40 5.1 3.4 1.5 0.2 setosa
## 44 5.0 3.5 1.6 0.6 setosa
## 47 5.1 3.8 1.6 0.2 setosa
## 48 4.6 3.2 1.4 0.2 setosa
## 50 5.0 3.3 1.4 0.2 setosa
## 52 6.4 3.2 4.5 1.5 versicolor
## 53 6.9 3.1 4.9 1.5 versicolor
## 55 6.5 2.8 4.6 1.5 versicolor
## 56 5.7 2.8 4.5 1.3 versicolor
## 57 6.3 3.3 4.7 1.6 versicolor
## 58 4.9 2.4 3.3 1.0 versicolor
## 59 6.6 2.9 4.6 1.3 versicolor
## 60 5.2 2.7 3.9 1.4 versicolor
## 61 5.0 2.0 3.5 1.0 versicolor
## 62 5.9 3.0 4.2 1.5 versicolor
## 63 6.0 2.2 4.0 1.0 versicolor
## 65 5.6 2.9 3.6 1.3 versicolor

6
## 66 6.7 3.1 4.4 1.4 versicolor
## 67 5.6 3.0 4.5 1.5 versicolor
## 68 5.8 2.7 4.1 1.0 versicolor
## 69 6.2 2.2 4.5 1.5 versicolor
## 72 6.1 2.8 4.0 1.3 versicolor
## 73 6.3 2.5 4.9 1.5 versicolor
## 74 6.1 2.8 4.7 1.2 versicolor
## 76 6.6 3.0 4.4 1.4 versicolor
## 77 6.8 2.8 4.8 1.4 versicolor
## 78 6.7 3.0 5.0 1.7 versicolor
## 80 5.7 2.6 3.5 1.0 versicolor
## 81 5.5 2.4 3.8 1.1 versicolor
## 82 5.5 2.4 3.7 1.0 versicolor
## 83 5.8 2.7 3.9 1.2 versicolor
## 85 5.4 3.0 4.5 1.5 versicolor
## 86 6.0 3.4 4.5 1.6 versicolor
## 88 6.3 2.3 4.4 1.3 versicolor
## 89 5.6 3.0 4.1 1.3 versicolor
## 90 5.5 2.5 4.0 1.3 versicolor
## 92 6.1 3.0 4.6 1.4 versicolor
## 93 5.8 2.6 4.0 1.2 versicolor
## 94 5.0 2.3 3.3 1.0 versicolor
## 95 5.6 2.7 4.2 1.3 versicolor
## 97 5.7 2.9 4.2 1.3 versicolor
## 98 6.2 2.9 4.3 1.3 versicolor
## 101 6.3 3.3 6.0 2.5 virginica
## 102 5.8 2.7 5.1 1.9 virginica
## 103 7.1 3.0 5.9 2.1 virginica
## 105 6.5 3.0 5.8 2.2 virginica
## 106 7.6 3.0 6.6 2.1 virginica
## 108 7.3 2.9 6.3 1.8 virginica
## 109 6.7 2.5 5.8 1.8 virginica
## 111 6.5 3.2 5.1 2.0 virginica
## 112 6.4 2.7 5.3 1.9 virginica
## 113 6.8 3.0 5.5 2.1 virginica
## 114 5.7 2.5 5.0 2.0 virginica
## 117 6.5 3.0 5.5 1.8 virginica
## 118 7.7 3.8 6.7 2.2 virginica
## 119 7.7 2.6 6.9 2.3 virginica
## 120 6.0 2.2 5.0 1.5 virginica
## 121 6.9 3.2 5.7 2.3 virginica
## 122 5.6 2.8 4.9 2.0 virginica
## 123 7.7 2.8 6.7 2.0 virginica
## 125 6.7 3.3 5.7 2.1 virginica
## 127 6.2 2.8 4.8 1.8 virginica
## 129 6.4 2.8 5.6 2.1 virginica
## 131 7.4 2.8 6.1 1.9 virginica
## 135 6.1 2.6 5.6 1.4 virginica
## 137 6.3 3.4 5.6 2.4 virginica
## 138 6.4 3.1 5.5 1.8 virginica
## 139 6.0 3.0 4.8 1.8 virginica
## 143 5.8 2.7 5.1 1.9 virginica
## 144 6.8 3.2 5.9 2.3 virginica
## 145 6.7 3.3 5.7 2.5 virginica

7
## 146 6.7 3.0 5.2 2.3 virginica
## 147 6.3 2.5 5.0 1.9 virginica
## 149 6.2 3.4 5.4 2.3 virginica
## 150 5.9 3.0 5.1 1.8 virginica
##
## $exclude
## NULL
##
## $net.result
## $net.result[[1]]
## [,1]
## 3 0.9924507
## 5 0.9991320
## 6 0.9905098
## 7 0.9922232
## 8 1.0042474
## 11 1.0119214
## 12 1.0039752
## 14 0.9778858
## 16 0.9824611
## 17 0.9763881
## 20 0.9917681
## 22 0.9865378
## 23 0.9802914
## 24 1.0165102
## 25 1.0168002
## 26 1.0128013
## 27 1.0014470
## 28 1.0083430
## 29 1.0069067
## 30 1.0047863
## 31 1.0073769
## 35 1.0055577
## 37 1.0140564
## 38 1.0081474
## 39 0.9890398
## 40 1.0068444
## 44 1.0135800
## 47 1.0053924
## 48 0.9947591
## 50 1.0021877
## 52 1.9959159
## 53 2.0067556
## 55 2.0001264
## 56 1.9954899
## 57 1.9983675
## 58 2.0073306
## 59 2.0093603
## 60 2.0021613
## 61 1.9995667
## 62 1.9938193
## 63 1.9870755
## 65 1.9890593
## 66 2.0135141

8
## 67 2.0010776
## 68 1.9948227
## 69 2.0003176
## 72 2.0040220
## 73 2.0027776
## 74 1.9984295
## 76 2.0085008
## 77 2.0042884
## 78 2.0148045
## 80 1.9888608
## 81 1.9999299
## 82 1.9963815
## 83 2.0035515
## 85 2.0088040
## 86 1.9879001
## 88 1.9956238
## 89 1.9923489
## 90 1.9929342
## 92 1.9950455
## 93 1.9998489
## 94 2.0046921
## 95 1.9938925
## 97 1.9938612
## 98 2.0021735
## 101 3.0036896
## 102 2.9969871
## 103 2.9981648
## 105 2.9881980
## 106 3.0035232
## 108 3.0076014
## 109 3.0027821
## 111 3.0065368
## 112 2.9929367
## 113 3.0019564
## 114 3.0113889
## 117 2.9906914
## 118 2.9987427
## 119 3.0018287
## 120 2.9960916
## 121 3.0028801
## 122 3.0143795
## 123 3.0190543
## 125 2.9949349
## 127 2.9964748
## 129 2.9896014
## 131 3.0111290
## 135 3.0002936
## 137 2.9998963
## 138 2.9877952
## 139 2.9950349
## 143 2.9969871
## 144 2.9928344
## 145 3.0079987
## 146 3.0108953

9
## 147 2.9940409
## 149 2.9976563
## 150 2.9909826
##
##
## $weights
## $weights[[1]]
## $weights[[1]][[1]]
## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] -0.7575306 2.0348163 -0.9311109 -1.445959547 -1.59469910 -0.9717035
## [2,] 0.7577555 -0.1037934 -2.1068349 -0.002527957 0.56463345 -1.7911789
## [3,] 0.2479109 -0.5973057 0.2066697 1.968466101 0.68393006 -0.3637765
## [4,] -0.6429540 0.3625081 1.6720277 -1.452102203 -0.06100969 1.7477791
## [5,] -2.5221038 1.5817992 2.4155021 1.555211006 1.28086624 1.7047388
## [,7] [,8] [,9] [,10]
## [1,] -13.9723446 0.1517999 -0.5489891 0.09317314
## [2,] -0.2626335 -0.3174740 -1.1194120 -1.04277742
## [3,] -19.7469786 0.8040835 -0.4527977 -0.51049096
## [4,] 20.8660180 -0.3776927 0.3547625 0.18317026
## [5,] 25.2109997 0.5065830 3.9667406 1.59334210
##
## $weights[[1]][[2]]
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1.4795841 -1.4620835 -2.0023581 1.4535970 2.82517678
## [2,] 11.3780471 -1.7593922 -59.3630692 -1.8933898 1.13852642
## [3,] 0.2082999 2.1831227 -0.7641463 -0.6643279 0.07891124
## [4,] 6.8774757 2.5695000 7.4081547 1.0370758 1.00928697
## [5,] -0.7898206 0.5946449 -9.1495305 0.2181901 -0.69620960
## [6,] 0.6396803 -0.1042531 -0.9967325 1.6019260 -2.06453398
## [7,] -3.0474301 -0.1324060 24.4973541 -0.7525873 -0.97938016
## [8,] -4.7489337 -1.7557619 0.7655758 -1.5046699 -2.00083692
## [9,] 1.1018465 1.1520671 -50.1763151 -1.0750240 0.26210762
## [10,] -6.4484220 -3.8329595 55.9697212 -1.1058274 -0.41172326
## [11,] 32.6861701 -9.6828126 -1.9933897 0.6529621 -3.49796358
##
## $weights[[1]][[3]]
## [,1]
## [1,] 1.5632712
## [2,] 0.3646829
## [3,] -0.6686696
## [4,] 0.9838138
## [5,] 1.7488630
## [6,] -2.1251887
##
##
##
## $generalized.weights
## $generalized.weights[[1]]
## [,1] [,2] [,3] [,4]
## 3 2.736010e+00 -1.091252e+00 5.092502e+00 -5.967605e+00
## 5 2.707260e+01 -8.560926e+00 3.259072e+01 -1.285411e+02
## 6 6.213027e-02 -2.183539e+00 4.454616e+00 -8.463452e+00
## 7 -9.615341e-01 -2.040026e+00 6.934046e+00 1.813138e+00
## 8 -5.694864e+00 2.889434e+00 -7.811092e+00 2.054476e+01

10
## 11 -2.698133e+00 1.051683e+00 -1.875234e+00 1.297493e+01
## 12 -3.683695e+00 2.764490e+00 -9.979276e+00 1.099629e+01
## 14 1.475439e+00 5.089805e-01 1.510073e+00 -6.622853e-01
## 16 6.383986e-01 1.649636e-01 9.551086e-01 -8.815430e+00
## 17 3.971205e-01 -3.921456e-01 1.253105e+00 -5.214925e+00
## 20 1.041506e+00 -1.282447e+00 4.190742e+00 -1.131401e+01
## 22 -5.064398e-01 -1.574792e+00 3.647374e+00 -3.045704e+00
## 23 8.723698e-01 3.608984e-01 1.306576e+00 -4.634314e+00
## 24 1.896581e+00 3.080717e+00 -4.891352e+00 -5.710144e+00
## 25 -4.032107e-01 7.657755e-01 -2.659246e+00 1.109713e-01
## 26 -1.995610e+00 7.764898e-01 -2.701746e+00 2.265353e+00
## 27 9.033861e+00 2.347665e+01 -4.346575e+01 -1.493882e+01
## 28 -3.506964e+00 1.613173e+00 -3.372207e+00 1.458329e+01
## 29 -4.676387e+00 1.980944e+00 -3.986191e+00 1.802199e+01
## 30 -2.671939e+00 2.175082e+00 -9.119452e+00 6.978023e-01
## 31 -2.393269e+00 1.410017e+00 -5.535006e+00 1.149838e+00
## 35 -4.316678e+00 2.075035e+00 -6.671160e+00 7.267859e+00
## 37 -2.838852e+00 1.072387e+00 -1.449514e+00 1.210603e+01
## 38 -4.060746e+00 9.706158e-02 -2.636684e+00 1.516060e+01
## 39 9.975447e-01 -4.476282e-01 4.415545e+00 3.426698e+00
## 40 -4.007684e+00 1.967097e+00 -4.544038e+00 1.480106e+01
## 44 4.145334e+00 3.929628e+00 -6.849751e+00 -1.086377e+01
## 47 -3.778050e+00 1.425894e+00 -5.090509e+00 2.161706e+01
## 48 2.703713e+00 -1.532110e+00 8.199281e+00 -2.592629e+00
## 50 -1.258059e+01 5.592196e+00 -1.481441e+01 4.111375e+01
## 52 -7.929949e-03 1.237933e-02 -6.056870e-03 1.169462e-04
## 53 -1.268376e-02 -3.547525e-03 5.816845e-03 3.906320e-03
## 55 -5.038957e-03 -2.809244e-03 2.344356e-03 -2.006627e-02
## 56 7.198788e-03 -2.299240e-03 -5.225953e-03 2.057372e-03
## 57 -3.226135e-03 1.814669e-02 -7.546954e-03 -2.756985e-02
## 58 8.776578e-03 -4.152543e-03 3.723619e-03 -2.538558e-02
## 59 -1.878485e-02 -9.124160e-03 1.386302e-02 3.065601e-02
## 60 1.851680e-02 7.018519e-03 -1.079710e-02 -2.540555e-02
## 61 9.297790e-03 -3.280633e-03 -4.145144e-05 -1.442790e-02
## 62 2.009857e-03 1.557696e-02 -9.915788e-03 -2.565349e-02
## 63 2.048695e-02 5.726447e-03 -1.774955e-02 -1.227560e-01
## 65 -1.275562e-02 1.493809e-02 -4.095785e-03 5.935297e-02
## 66 -2.487697e-02 4.894815e-05 1.075465e-02 5.089224e-02
## 67 9.389576e-03 8.101464e-03 -5.260193e-03 -2.216814e-02
## 68 9.702447e-03 -4.158366e-03 -2.587634e-03 -8.593289e-02
## 69 2.040887e-02 2.162575e-02 -2.470098e-02 -8.193358e-02
## 72 -2.001703e-02 -2.724612e-03 1.097411e-02 4.817266e-02
## 73 2.025523e-02 2.420655e-02 -2.605117e-02 -7.474433e-02
## 74 -5.693271e-03 -4.208323e-03 1.704073e-03 2.000693e-02
## 76 -2.165387e-02 -2.533952e-03 1.046930e-02 4.147893e-02
## 77 -1.515656e-02 -7.210846e-03 8.962568e-03 2.065675e-02
## 78 -5.008707e-03 3.975722e-04 4.735527e-03 -4.346614e-02
## 80 2.785465e-02 1.898022e-04 -1.532756e-02 -1.673247e-01
## 81 -5.486095e-03 -7.919668e-03 9.038752e-03 1.209302e-02
## 82 8.156949e-03 -5.490714e-03 4.804901e-04 -7.270637e-02
## 83 -1.474439e-02 -5.630257e-03 1.145971e-02 3.670129e-02
## 85 4.914053e-02 3.760717e-02 -4.012195e-02 -1.001465e-01
## 86 -1.636874e-04 3.051005e-02 -1.544255e-02 -2.157514e-02
## 88 -1.102588e-02 -2.179297e-03 2.870172e-03 2.616784e-02

11
## 89 8.270682e-04 6.495622e-03 -6.623642e-03 2.191506e-02
## 90 6.285086e-03 -3.390681e-03 -2.016576e-03 -3.911844e-03
## 92 -2.388435e-03 7.824297e-05 -1.123761e-03 -2.146962e-03
## 93 -1.219199e-02 -7.989680e-03 1.095464e-02 3.195655e-02
## 94 7.191829e-03 -6.110271e-03 5.202181e-03 -3.491678e-02
## 95 5.236934e-03 -2.438750e-03 -2.799637e-03 1.235811e-03
## 97 -4.119593e-04 6.899767e-04 -2.311678e-03 1.552411e-02
## 98 -1.672234e-02 -4.929314e-03 9.863522e-03 3.741897e-02
## 101 5.182071e-03 7.492017e-03 4.578182e-03 -2.055414e-02
## 102 4.230964e-03 7.718543e-04 1.965797e-03 -8.779760e-03
## 103 -6.279537e-03 -2.703447e-03 5.398444e-03 3.916466e-03
## 105 -6.363700e-04 2.976885e-04 5.196998e-03 -7.399404e-03
## 106 -7.128385e-03 3.097733e-03 1.721647e-03 1.005202e-02
## 108 -4.241893e-03 5.959007e-03 -1.210503e-03 2.125022e-03
## 109 -2.953026e-03 5.610405e-03 -2.386185e-03 6.776199e-03
## 111 -4.664270e-03 1.788406e-03 2.957552e-03 -2.844959e-03
## 112 -2.834127e-03 -1.299909e-03 3.059460e-03 2.431848e-04
## 113 -5.101469e-03 -3.978545e-03 5.987292e-03 3.648798e-04
## 114 1.055237e-02 2.092340e-03 -4.098910e-05 -1.834531e-02
## 117 -4.029979e-03 7.380008e-04 3.756769e-03 -3.286824e-03
## 118 -1.080425e-02 2.575394e-04 9.499994e-03 -4.756114e-04
## 119 -3.164677e-03 4.893919e-03 -2.465973e-03 1.232043e-02
## 120 4.055447e-03 7.085198e-03 -7.430858e-03 -6.034857e-03
## 121 -4.118957e-03 -2.196039e-03 6.056645e-03 -3.139712e-03
## 122 8.632312e-03 2.605795e-03 1.818703e-03 -1.765162e-02
## 123 -5.969448e-03 5.664697e-03 -8.972206e-04 9.968962e-03
## 125 -6.187790e-03 -4.189179e-04 6.948722e-03 -1.834116e-03
## 127 1.104360e-02 1.135222e-02 -1.007572e-02 -4.330005e-02
## 129 1.103690e-04 1.144115e-05 3.446426e-03 -5.119439e-03
## 131 -4.719975e-03 3.327701e-03 -9.537612e-05 2.588187e-03
## 135 1.895536e-02 1.610785e-02 -2.116112e-02 -3.084253e-02
## 137 7.516461e-04 8.267690e-03 3.517557e-03 -1.164148e-02
## 138 -3.986252e-03 1.013279e-03 4.348893e-03 -3.485349e-03
## 139 9.174087e-03 1.147560e-02 -8.373377e-03 -3.535793e-02
## 143 4.230964e-03 7.718543e-04 1.965797e-03 -8.779760e-03
## 144 -3.367042e-03 -1.140602e-03 6.750993e-03 -5.620231e-03
## 145 -5.962101e-04 4.307649e-03 4.212714e-03 -1.046373e-02
## 146 -1.015513e-03 -1.519989e-03 2.750424e-03 -4.841981e-03
## 147 -1.852803e-03 -2.769497e-03 2.517631e-03 1.677111e-04
## 149 5.703867e-05 8.449179e-03 2.612236e-03 -8.987770e-03
## 150 -3.653302e-04 1.019575e-03 3.633644e-03 -5.649547e-03
##
##
## $startweights
## $startweights[[1]]
## $startweights[[1]][[1]]
## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] -0.58303578 2.11072821 -1.4863516 -1.45734820 -0.3591525 -1.2460125
## [2,] 0.89735402 -0.01967327 -2.0004144 -0.02517415 0.6111589 -2.2327679
## [3,] 0.06124314 -0.07037453 -1.2118888 1.95797402 1.0022628 -0.1039694
## [4,] -0.30621288 0.07813169 0.4280317 -1.47779539 0.3510259 1.3124334
## [5,] -2.16241980 1.75952227 0.8941681 1.84438572 1.1671837 0.7286471
## [,7] [,8] [,9] [,10]
## [1,] -0.7867756 0.05787175 -0.10010605 -2.5780209

12
## [2,] -0.4284437 -0.28240023 -1.23503370 -1.3067372
## [3,] -0.9841360 0.75466148 -0.44771819 -0.6989808
## [4,] 1.0311049 -1.33281234 -0.02828564 -0.0972651
## [5,] -0.5212899 -0.11247008 1.68424112 0.7584406
##
## $startweights[[1]][[2]]
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1.10794832 -1.28484403 -1.30997730 1.28786911 2.96463730
## [2,] 0.14824418 -1.67287307 -0.77666604 -2.14965566 1.29336936
## [3,] 0.18763239 2.42425296 -0.57086761 -0.84868013 0.21837423
## [4,] 0.09759439 0.06501029 0.44565054 0.06733259 1.04659457
## [5,] -0.78653854 0.72997723 1.32562852 0.14099336 -0.08778843
## [6,] 0.35889532 0.07298637 -0.30435167 1.43619811 -1.92507346
## [7,] 0.94943922 1.09895409 1.65132805 0.05699781 -0.18532739
## [8,] -0.30888824 -0.72786190 -0.03799838 -1.18706940 -1.92759962
## [9,] -0.59306855 -0.31585423 0.27133498 -0.07608301 -1.05721657
## [10,] 0.84337564 -0.11818305 -0.44417545 -1.04630316 -0.27238542
## [11,] 2.81704845 0.75662227 0.82503214 0.59594441 0.09131570
##
## $startweights[[1]][[3]]
## [,1]
## [1,] 1.38232950
## [2,] 0.01620710
## [3,] -0.95429936
## [4,] -0.01216671
## [5,] 1.56122381
## [6,] -2.27443976
##
##
##
## $result.matrix
## [,1]
## error 0.003846735
## reached.threshold 0.009926879
## steps 959.000000000
## Intercept.to.1layhid1 -0.757530622
## Sepal.Length.to.1layhid1 0.757755530
## Sepal.Width.to.1layhid1 0.247910948
## Petal.Length.to.1layhid1 -0.642953965
## Petal.Width.to.1layhid1 -2.522103808
## Intercept.to.1layhid2 2.034816292
## Sepal.Length.to.1layhid2 -0.103793437
## Sepal.Width.to.1layhid2 -0.597305683
## Petal.Length.to.1layhid2 0.362508133
## Petal.Width.to.1layhid2 1.581799207
## Intercept.to.1layhid3 -0.931110862
## Sepal.Length.to.1layhid3 -2.106834931
## Sepal.Width.to.1layhid3 0.206669714
## Petal.Length.to.1layhid3 1.672027671
## Petal.Width.to.1layhid3 2.415502098
## Intercept.to.1layhid4 -1.445959547
## Sepal.Length.to.1layhid4 -0.002527957
## Sepal.Width.to.1layhid4 1.968466101
## Petal.Length.to.1layhid4 -1.452102203

13
## Petal.Width.to.1layhid4 1.555211006
## Intercept.to.1layhid5 -1.594699103
## Sepal.Length.to.1layhid5 0.564633448
## Sepal.Width.to.1layhid5 0.683930057
## Petal.Length.to.1layhid5 -0.061009691
## Petal.Width.to.1layhid5 1.280866239
## Intercept.to.1layhid6 -0.971703456
## Sepal.Length.to.1layhid6 -1.791178902
## Sepal.Width.to.1layhid6 -0.363776471
## Petal.Length.to.1layhid6 1.747779106
## Petal.Width.to.1layhid6 1.704738774
## Intercept.to.1layhid7 -13.972344566
## Sepal.Length.to.1layhid7 -0.262633512
## Sepal.Width.to.1layhid7 -19.746978612
## Petal.Length.to.1layhid7 20.866018039
## Petal.Width.to.1layhid7 25.210999677
## Intercept.to.1layhid8 0.151799921
## Sepal.Length.to.1layhid8 -0.317473983
## Sepal.Width.to.1layhid8 0.804083518
## Petal.Length.to.1layhid8 -0.377692724
## Petal.Width.to.1layhid8 0.506583043
## Intercept.to.1layhid9 -0.548989096
## Sepal.Length.to.1layhid9 -1.119411983
## Sepal.Width.to.1layhid9 -0.452797657
## Petal.Length.to.1layhid9 0.354762530
## Petal.Width.to.1layhid9 3.966740607
## Intercept.to.1layhid10 0.093173136
## Sepal.Length.to.1layhid10 -1.042777419
## Sepal.Width.to.1layhid10 -0.510490956
## Petal.Length.to.1layhid10 0.183170264
## Petal.Width.to.1layhid10 1.593342105
## Intercept.to.2layhid1 1.479584069
## 1layhid1.to.2layhid1 11.378047081
## 1layhid2.to.2layhid1 0.208299931
## 1layhid3.to.2layhid1 6.877475688
## 1layhid4.to.2layhid1 -0.789820572
## 1layhid5.to.2layhid1 0.639680290
## 1layhid6.to.2layhid1 -3.047430092
## 1layhid7.to.2layhid1 -4.748933738
## 1layhid8.to.2layhid1 1.101846516
## 1layhid9.to.2layhid1 -6.448422044
## 1layhid10.to.2layhid1 32.686170129
## Intercept.to.2layhid2 -1.462083485
## 1layhid1.to.2layhid2 -1.759392242
## 1layhid2.to.2layhid2 2.183122708
## 1layhid3.to.2layhid2 2.569500039
## 1layhid4.to.2layhid2 0.594644920
## 1layhid5.to.2layhid2 -0.104253085
## 1layhid6.to.2layhid2 -0.132405966
## 1layhid7.to.2layhid2 -1.755761907
## 1layhid8.to.2layhid2 1.152067056
## 1layhid9.to.2layhid2 -3.832959537
## 1layhid10.to.2layhid2 -9.682812603
## Intercept.to.2layhid3 -2.002358076

14
## 1layhid1.to.2layhid3 -59.363069248
## 1layhid2.to.2layhid3 -0.764146316
## 1layhid3.to.2layhid3 7.408154678
## 1layhid4.to.2layhid3 -9.149530490
## 1layhid5.to.2layhid3 -0.996732454
## 1layhid6.to.2layhid3 24.497354149
## 1layhid7.to.2layhid3 0.765575840
## 1layhid8.to.2layhid3 -50.176315092
## 1layhid9.to.2layhid3 55.969721192
## 1layhid10.to.2layhid3 -1.993389691
## Intercept.to.2layhid4 1.453597036
## 1layhid1.to.2layhid4 -1.893389845
## 1layhid2.to.2layhid4 -0.664327854
## 1layhid3.to.2layhid4 1.037075788
## 1layhid4.to.2layhid4 0.218190086
## 1layhid5.to.2layhid4 1.601926024
## 1layhid6.to.2layhid4 -0.752587289
## 1layhid7.to.2layhid4 -1.504669907
## 1layhid8.to.2layhid4 -1.075023965
## 1layhid9.to.2layhid4 -1.105827421
## 1layhid10.to.2layhid4 0.652962055
## Intercept.to.2layhid5 2.825176781
## 1layhid1.to.2layhid5 1.138526419
## 1layhid2.to.2layhid5 0.078911245
## 1layhid3.to.2layhid5 1.009286971
## 1layhid4.to.2layhid5 -0.696209602
## 1layhid5.to.2layhid5 -2.064533976
## 1layhid6.to.2layhid5 -0.979380165
## 1layhid7.to.2layhid5 -2.000836920
## 1layhid8.to.2layhid5 0.262107623
## 1layhid9.to.2layhid5 -0.411723262
## 1layhid10.to.2layhid5 -3.497963578
## Intercept.to.as.numeric(Species) 1.563271197
## 2layhid1.to.as.numeric(Species) 0.364682879
## 2layhid2.to.as.numeric(Species) -0.668669604
## 2layhid3.to.as.numeric(Species) 0.983813848
## 2layhid4.to.as.numeric(Species) 1.748863040
## 2layhid5.to.as.numeric(Species) -2.125188687
##
## attr(,"class")
## [1] "nn"
plot(ann, rep = "best")

15
 −0.7
1 5753 1 1.47 1

2.
11.3 95

03 −
780 8

480.9 −

−−151
76 5

1.1. 3 −−00.07 11.0 0−0

2 3111.44 −1
57

.79.39633339.76644931.4303790289 2168962.610.0645 0.97

. 7
0−0.10379 0. 20 83

59 07 1 81
8 85 0 .6 8 7 .0 0 . . 1−2

−1 .
Sepal.Length 2.
−−02.10

39
18 748

0.3
462
.0 683 731

1 596 .594−0.9−713.97
8

0−−.101...231014927
.

64
02 6 22

567962744718
53 2.5968

08

68
4611683
8 9 5

97 1
31
.7
.5479
3

5
67 −0 .59464
06

−2.0
0 −0

8
−00.2
2

1.56
.

313 43 6
01.96847 −9 5 .6
.110442

65.99832681517.9863428−9456210 5210851..77548−90. .047 .639

5
Sepal.Width 68
−00.68393

0236
67

7
.
−0 953

327
0
.36
−0−1.08.451

41
37 −0.99
9.045020849
.47205195

76 2
673

19 1
8

17 2340.15−108.548909.09317
74 8

0.98381 as.numeric(Species)
52 3
−10−1.063.6242

−3
35
1

1
69

7
10 24.49
.06 778
8

1.4536
5
93 3 938
0 −0 58
−1.74 6.7552 6
Petal.Length
−
−200.86602 0.7 . 0 −−4
59 88

2
4
29 39 97 .17 7
63
.37 −1 .7
−2 .50467
00..1

76 1
3583

9
39.6 5−36.4 1 .1

.0 502
..7258510551225821
4717
04 871

07

2.82518
−1.008 3
2
74
6

9
11

51
−.245.85

0.2 584
.2 0658 06

.12
5 .1 211
.
1

20.5
12

Petal.Width −1

−2
13..9 6674 −0.41172
6

59
68

33
4 96
497
0−.12

−3.

Error: 0.003847 Steps: 959

# Observar la contribución de cada variable a la predicción
par(mfrow=c(2,2))
gwplot(ann, selected.covariate = "Sepal.Length")
gwplot(ann, selected.covariate = "Sepal.Width")
gwplot(ann, selected.covariate = "Petal.Length")
gwplot(ann, selected.covariate = "Petal.Width")

16
 Response: as.numeric(Species) Response: as.numeric(Species)

10
10
GW

GW
−10

−5
4.5 5.5 6.5 7.5 2.0 2.5 3.0 3.5 4.0

Sepal.Length Sepal.Width

Response: as.numeric(Species) Response: as.numeric(Species)

0
GW

GW
0

−100
−40

1 2 3 4 5 6 7 0.5 1.0 1.5 2.0 2.5

Petal.Length Petal.Width
# Probar la red para predecir un nuevo resultado
output <- compute(ann, test[ , c("Sepal.Length", "Sepal.Width",
"Petal.Length", "Petal.Width")])
result <- data.frame(
Real = test$Species,
Predicted = levels(iris$Species)[round(output$net.result)])
result

## Real Predicted
## 1 setosa setosa
## 2 virginica versicolor
## 3 setosa setosa
## 4 versicolor versicolor
## 5 virginica virginica
## 6 setosa setosa
## 7 virginica virginica
## 8 setosa setosa
## 9 virginica virginica
## 10 versicolor versicolor
## 11 virginica virginica
## 12 setosa setosa
## 13 versicolor virginica
## 14 versicolor versicolor
## 15 setosa setosa
## 16 setosa setosa
## 17 versicolor versicolor
## 18 setosa setosa
## 19 setosa setosa
## 20 virginica virginica

17
## 21 virginica versicolor
## 22 virginica versicolor
## 23 setosa setosa
## 24 virginica virginica
## 25 setosa setosa
## 26 setosa setosa
## 27 versicolor versicolor
## 28 setosa setosa
## 29 virginica virginica
## 30 setosa setosa
## 31 virginica virginica
## 32 virginica virginica
## 33 setosa setosa
## 34 versicolor virginica
## 35 versicolor versicolor
## 36 versicolor versicolor
## 37 setosa setosa
## 38 virginica virginica
## 39 virginica virginica
## 40 virginica virginica
## 41 versicolor versicolor
## 42 setosa setosa
## 43 versicolor versicolor
## 44 virginica virginica
## 45 versicolor versicolor
## 46 versicolor versicolor
## 47 setosa setosa
## 48 setosa setosa
## 49 virginica virginica
## 50 setosa setosa
#Tabla de resultados generales
table(result$Predicted, result$Real)

##
## setosa versicolor virginica
## setosa 20 0 0
## versicolor 0 11 3
## virginica 0 2 14

18