<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; color: rgb(0, 0, 0); font-size: 20px; font-family: Calibri, sans-serif; "><div>Predict is working now!</div><div>Each row of the input matrix feeds one input neuron (number of rows equal to number of input neurons, number of cols equal to number of patterns entered). Similarly for the output.</div><div>Now it's time for coding some training algorithms.</div><div>Greetings.</div><div>Manuel</div><div><br></div><div><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">incCode <-</span><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">paste(readLines( </span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"pkg/AMORE/src/AMORE.h"</span><span style="font-family: Courier; ">),</span><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">collapse = </span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"\n"</span><span style="font-family: Courier; "> )</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">testCode <- </span><span style="color: rgb(86, 85, 186); font-family: Courier; ">""</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">testCodefun <- cfunction(sig=signature(), body=testCode,includes=incCode, otherdefs=</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"using namespace Rcpp;"</span><span style="font-family: Courier; ">, language=</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"C++"</span><span style="font-family: Courier; ">, verbose=</span><span style="color: rgb(149, 24, 143); font-family: Courier; ">FALSE</span><span style="font-family: Courier; ">, convention=</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">".Call"</span><span style="font-family: Courier; ">,Rcpp=</span><span style="color: rgb(149, 24, 143); font-family: Courier; ">TRUE</span><span style="font-family: Courier; ">,cppargs=character(), cxxargs= paste(</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"-I"</span><span style="font-family: Courier; ">,getwd(),</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"/pkg/AMORE/src -I/opt/local/include"</span><span style="font-family: Courier; ">,sep=</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">""</span><span style="font-family: Courier; ">), libargs=character())</span><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; min-height: 19.0px"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">modAMORE <- Module(</span><span style="color: rgb(86, 85, 186); font-family: Courier; ">"mod_AMORE"</span><span style="font-family: Courier; ">,</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">getDynLib(testCodefun))</span><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; min-height: 19.0px"><span style="font-family: Courier; "><br></span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; min-height: 19.0px"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">AMOREnet <- modAMORE</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">NetworkRinterface</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">net <- new (AMOREnet)</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">checkTrue(</span><span style="color: rgb(178, 84, 144); font-family: Courier; ">!</span><span style="font-family: Courier; ">net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">validate())</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">createFeedForwardNetwork(c(</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">3</span><span style="font-family: Courier; ">,</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">2</span><span style="font-family: Courier; ">,</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">2</span><span style="font-family: Courier; ">))</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">checkTrue(net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">validate())</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">checkEquals(net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">inputSize(),</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">3</span><span style="font-family: Courier; ">)</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">checkEquals(net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">outputSize(),</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">2</span><span style="font-family: Courier; ">)</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; min-height: 19.0px"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">predict(matrix(rnorm(</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">120</span><span style="font-family: Courier; ">),</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">nrow=</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">4</span><span style="font-family: Courier; ">))</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># Error en net$predict(matrix(rnorm(120), nrow = 4)) :</span><span style="font-family: Courier; "> </span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># Incorrect number or rows. The number of input neurons must be equal to the number of rows of the input matrix.</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; min-height: 19.0px"><span style="font-family: Courier; "><br></span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span><span style="font-family: Courier; ">net</span><span style="color: rgb(79, 114, 114); font-family: Courier; ">$</span><span style="font-family: Courier; ">predict(matrix(rnorm(</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">120</span><span style="font-family: Courier; ">), nrow=</span><span style="color: rgb(21, 20, 143); font-family: Courier; ">3</span><span style="font-family: Courier; ">))</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; ">#</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,1] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,2] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,3] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,4]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,5]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,6] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,7]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] 0.02681736 0.07433409 0.01767159 -0.1072734 0.1360815 0.1834029 -0.1090389</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,] 0.19422827 0.17101272 0.40341796</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.1914221 0.2700953 0.3545197</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.4690332</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; ">#</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,8] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,9] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,10] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,11]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,12] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,13]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] -0.3030112 0.07199258 0.1143015 0.3794277 -0.2317072 -0.01846044</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2757496 0.38433156 0.2623157 0.3432154</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2677981</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.22514373</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,14]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,15] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,16] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,17]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,18]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,19] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,20]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] -0.2164891 0.08567291 0.1095074 0.2229317 0.07758518 0.09288609 0.3453419</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2332822 0.24119018 0.3440743 0.3292969 0.38808119 0.22780870 0.4156303</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; ">#</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,21]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,22]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,23]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,24] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,25]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,26]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] 0.4349757 -0.1830373 0.05191082 -0.005862106 0.2553146 -0.0978473</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,] 0.4172153</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2181115 0.36326342</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.431352475 0.2106724</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2937326</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; ">#</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,27]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,28] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,29]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,30] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,31]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,32]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,33]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] 0.2295301 0.09906594 0.3577109 -0.1262453 0.5179862 -0.2170925 0.06610679</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,] 0.3424702 0.41603398 0.2761284</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.1568972 0.4035570</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.2580692 0.35818618</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,34]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,35]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,36]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,37]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,38] </span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,39]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] -0.1537457 -0.1689704 -0.3461895 0.04026574 -0.1570952 0.2549960</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.3343655</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.3647931</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.4533143 0.45506059</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.3021554 0.2001179</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; ">#</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">[,40]</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [1,] -0.02331876</span></p><span style="font-family: Courier; ">
</span><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Monaco; color: #4b9064"><span style="color: #000000"><span class="Apple-tab-span" style="white-space: pre; font-family: Courier; "> </span></span><span style="font-family: Courier; "># [2,]</span><span style="font-family: Courier; "> </span><span style="font-family: Courier; ">0.24338064</span></p></div><div><br></div></body></html>