Skip to content
Snippets Groups Projects
Commit 18def200 authored by Jakhes's avatar Jakhes
Browse files

Updating some of the tests files

parent b19b9fe5
Branches
No related tags found
No related merge requests found
Showing
with 26 additions and 28 deletions
......@@ -5,7 +5,8 @@
convert_record_to_arr/2,
take_csv_row/3,
take_csv_row/4,
convert_float_array_to_2d_list/4]).
convert_float_array_to_2d_list/4,
take_rows_from_iris_CSV/2]).
:- use_module(library(structs)).
:- use_module(library(csv)).
......@@ -90,3 +91,7 @@ take_csv_row(File, Count, H) :-
append(Out, Rest, H),
take_csv_row(File, NewCount, Rest),
!.
take_rows_from_iris_CSV(RowAmount, RowList) :-
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,RowAmount, RowList).
......@@ -105,8 +105,7 @@ test(classify_with_bad_data_input_decision_stump) :-
%% Successful Tests
test(classify_perceptron) :-
reset_Model_No_Train(perceptron),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, _),
classify([3, 2, 0, 5, 1, 4, 0, 0, 4, 3, 3, 5, 0, 5, 5, 2, 5, 5, 0, 2], 4,
[1.0,1.0,1.0,1.0,0.0],
......@@ -114,8 +113,7 @@ test(classify_perceptron) :-
test(classify_decision_stump) :-
reset_Model_No_Train(decision_stump),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, decision_stump, 50, 0.0001, _),
classify([3, 2, 0, 5, 1, 4, 0, 0, 4, 3, 3, 5, 0, 5, 5, 2, 5, 5, 0, 2], 4,
[1.0,1.0,1.0,1.0,1.0],
......@@ -152,8 +150,7 @@ test(numClasses_Custom_NumClasses, [true(Amount =:= 3)]) :-
test(numClasses_afterTrain_Perceptron, [true(Amount =:= 2)]) :-
reset_Model_No_Train(perceptron),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, _),
numClasses(Amount).
......@@ -187,8 +184,7 @@ test(getTolerance_Custom_Tolerance, [true(Amount =:= 0.0009)]) :-
test(getTolerance_afterTrain, [true(Amount =:= 0.0005)]) :-
reset_Model_No_Train(perceptron),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0005, _),
getTolerance(Amount).
......@@ -234,8 +230,7 @@ test(modifyTolerance_Custom_Tolerance, [true(Amount =:= 0.02)]) :-
test(modifyTolerance_afterTrain, [true(Amount =:= 0.02)]) :-
reset_Model_No_Train(perceptron),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, _),
modifyTolerance(0.02),
getTolerance(Amount).
......@@ -300,8 +295,7 @@ test(train_With_Direct_Input_Perceptron, [true(Error =:= 1)]) :-
test(train_With_Data_From_CSV_Perceptron, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
test(train_With_Direct_Input_Decision_Stump, [true(Error =:= 1)]) :-
......@@ -310,8 +304,7 @@ test(train_With_Direct_Input_Decision_Stump, [true(Error =:= 1)]) :-
test(train_With_Data_From_CSV_Decision_Stump, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(decision_stump),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Records),
take_rows_from_iris_CSV(10, Records),
train(Records, 4, [0,1,0,1,1,0,1,1,1,0], 2, decision_stump, 50, 0.0001, Error).
test(train_After_InitTrain_Perceptron, [true(Error =:= 1)]) :-
......
......@@ -45,7 +45,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -44,7 +44,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -34,7 +34,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -45,7 +45,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
......@@ -33,7 +33,7 @@ test(testDescription3, [true(Error =:= 1)]) :-
test(testDescription4, [true(Error =:= 0.9797958971132711)]) :-
reset_Model_No_Train(perceptron),
open('/home/afkjakhes/eclipse-workspace/prolog-mlpack-libary/src/data_csv/iris2.csv', read, File),
open('src/data_csv/iris2.csv', read, File),
take_csv_row(File, skipFirstRow,10, Data),
train(Data, 4, [0,1,0,1,1,0,1,1,1,0], 2, perceptron, 50, 0.0001, Error).
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment