Select Code to Download

use strict;
use warnings;
...
# the above statement is actually in a loop

my $input_ref = \@inputs;

our $som = AI::NeuralNet::Kohonen->new(
        map_dim_x => $map_dim_x, # 39
...
        input => $input_ref
    );
$som->train();

{weight_dim} not set at /home/gotszlin/perl/lib/perl5/site_perl/5.8.5/
+/AI/NeuralNet/Kohonen.pm line 209

AI::NeuralNet::Kohonen::new('AI::NeuralNet::Kohonen', 'map_dim_x', 39,
+ 'map_dim_y', 19, 'epochs', 10, 'input', 'ARRAY(0x926af84)', ...) cal
+led at system_net.pl line 50
    NSTAD_net::som_train(39, 19, 10, 'ARRAY(0x926af84)', 'my_first_som
+.txt') called at system_main.pl line 35
Can't call method "train" on an undefined value at system_net.pl line 
+56.