From 01b793a43d6a72cfbbb8f9d3ba8826cba71e8819 Mon Sep 17 00:00:00 2001
From: Zach Morgan <zpmorgan@gmail.com>
Date: Sun, 5 Aug 2012 22:32:52 -0400
Subject: [PATCH] have spew_cost die if no x,y supplied.

---
 lib/AI/Nerl/Model/Perceptron3.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/AI/Nerl/Model/Perceptron3.pm b/lib/AI/Nerl/Model/Perceptron3.pm
index 929c16a..8bc4011 100644
--- a/lib/AI/Nerl/Model/Perceptron3.pm
+++ b/lib/AI/Nerl/Model/Perceptron3.pm
@@ -147,8 +147,8 @@ sub train_batch{
 
 sub spew_cost{
    my ($self, %args) = @_; 
-   my $x = $args{x};
-   my $y = $args{y};
+   my $y = $args{y} // die 'need y';;
+   my $x = $args{x} // die 'need x';
    my $lambda = $args{lambda} // .04;
    my $alpha = $args{lambda} // .25;
    my $theta1 = $self->theta1;
@@ -169,6 +169,7 @@ sub spew_cost{
    print "COST: $J \n";
    my $maxes = $a3->transpose->maximum_ind;;
    my $labels = $y->transpose->maximum_ind;
+   #die $a3;
    print "num correct(of ".($x->dim(0))."): ".(($labels==$maxes)->sum)."\n";
 }