
;********************************************
;****           REBOL example            ****
;**** (c) 2017-2019, Alessandro Pedretti ****
;********************************************


REBOL [
  Title:   "financial_service_test"
  File:    %financial_service_test.r
  Date:    04-Apr-2019
  Version: 1.0.0
  Author:  "Alessandro Pedretti"
]

do %financial_service.r


;**** Prediction example 1 ****

financial_service/LifeStyle: financial_service/C_LIFESTYLE_SPENDGGSAVING
financial_service/Type:      financial_service/C_TYPE_STUDENT
financial_service/Vacation:  6.0
financial_service/eCredit:   40.0
financial_service/property:  3.2804
financial_service/salary:    13.62

print ""
print "* Example #1"
print ["  Domain violations: " financial_service/DomCheck " (must be 0)"]
print ["  Predicted class:   " financial_service/Classify " (real 0)"]


;**** Prediction example 2 ****/

financial_service/LifeStyle: financial_service/C_LIFESTYLE_SPENDGSAVING
financial_service/Type:      financial_service/C_TYPE_LIBRARIAN
financial_service/Vacation:  7.0
financial_service/eCredit:   10.0
financial_service/property:  1.2225
financial_service/salary:    18.1751

print ""
print "* Example #2"
print ["  Domain violations: " financial_service/DomCheck " (must be 0)"]
print ["  Predicted class:   " financial_service/Classify " (real 1)"]


;**** Prediction example 3 ****/

financial_service/LifeStyle: financial_service/C_LIFESTYLE_SPENDLSAVING
financial_service/Type:      financial_service/C_TYPE_STUDENT
financial_service/Vacation:  6.0
financial_service/eCredit:   73.0
financial_service/property:  4.8256
financial_service/salary:    31.75

print ""
print "* Example #3"
print ["  Domain violations: " financial_service/DomCheck " (must be 0)"]
print ["  Predicted class:   " financial_service/Classify " (real 2)"]


;**** Prediction example 4 ****/

financial_service/LifeStyle: financial_service/C_LIFESTYLE_SPENDLSAVING
financial_service/Type:      financial_service/C_TYPE_DOCTOR
financial_service/Vacation:  47.0
financial_service/eCredit:   51.0
financial_service/property:  5.6494
financial_service/salary:    18.45

print ""
print "* Example #4"
print ["  Domain violations: " financial_service/DomCheck " (must be 0)"]
print ["  Predicted class:   " financial_service/Classify " (real 3)"]


;**** Prediction example 5 ****/

financial_service/LifeStyle: financial_service/C_LIFESTYLE_SPENDGSAVING
financial_service/Type:      financial_service/C_TYPE_PROFESSOR
financial_service/Vacation:  48.0
financial_service/eCredit:   5.0
financial_service/property:  1.7536
financial_service/salary:    20.39

print ""
print "* Example #5"
print ["  Domain violations: " financial_service/DomCheck " (must be 0)"]
print ["  Predicted class:   " financial_service/Classify " (real 4)"]


halt
