"InputHidden" <- structure(list(w = structure(c(3.22968865148496, 3.48640461924702, 7.48597938631378, 1.97721467986574, -2.48038772917876, 7.87034683079513, 4.12450505422598, 6.65452165010401, 7.36984928865742, 10.0972314436899, -5.33371473531627, 4.05776230771319, 11.5342180357887, 7.9144686530274, -16.5204014169116, 13.0531047360619, 12.2472484274154, -16.1684122737667, 12.8323911356900, 6.98564773083168, -8.29637065574949, 11.2118875053305, 3.43138429404225, 9.69405135167279, -4.69275292020135, 10.5083485819684, 7.30578378561989, 2.70176887211858, 5.01600958767732, 9.73029373044375, -7.33426816136814, 8.91983640234893, 3.59044703939344, 1.21585329381713, 3.83132648900661, 7.437075530819), .Dim = as.integer(c(1, 36))), dw = structure(c(-1.14008306641801e-08, -5.11444871310598e-10, -6.36229616138964e-06, -2.63203250817762e-08, -1.47521556368821e-11, -5.11444867235565e-10, -6.37612450129365e-06, -2.38780636903824e-08, -6.38616094262852e-06, -5.11696533703114e-10, -1.38561258020273e-08, 2.95734223403750e-15, 1.84200503862413e-26, 2.87421325016416e-28, -6.40052876200691e-06, 1.43504133721527e-21, 1.47954067461076e-21, -6.4005164624815e-06, 2.95739144133788e-15, -1.23024828036785e-11, -1.43643810518363e-08, -1.92326790778092e-12, -6.38616245768724e-06, 7.8493360791628e-20, -6.3866857388874e-06, -1.19428272593051e-24, -2.59451748739029e-12, -1.38404286020125e-08, -6.87676272702102e-14, -1.13998720567656e-08, -6.38668866303852e-06, -2.44015814399972e-09, -6.36472358272e-06, -2.38811040484917e-08, -1.01981673371298e-13, -1.19239732567464e-08), .Dim = as.integer(c(1, 36)))), .Names = c("w", "dw")) "Hidden" <- structure(list(net = 49.8943725523555, out = 1, bias = 16.5933121249585, delta = 0, dbias = -6.40052876200691e-06), .Names = c("net", "out", "bias", "delta", "dbias")) "HiddenOutput" <- structure(list(w = structure(c(-10.6101074790198, 10.6101074998225 ), .Dim = as.integer(c(2, 1))), dw = structure(c(-9.26604840047612e-06, 9.26604819870689e-06), .Dim = as.integer(c(2, 1)))), .Names = c("w", "dw")) "Output" <- structure(list(net = c(-5.63432906469902, 5.634329075526), out = c(0.00356035232910148, 0.99643964770931), bias = c(4.97577354934725, -4.97577355932314 ), delta = c(-1.26309772941782e-05, 1.26309770221282e-05), dbias = c(4.40107490676147e-06, -4.40107485186377e-06)), .Names = c("net", "out", "bias", "delta", "dbias"))