%% Script Description
% A script that runs both RUSBoosting and plots the final ensemble 
% error.


%% Setup the workspace and load the data

    %clean up the variables and remove from the console window.
    clear all;
    clc;
    close all;
    
    addpath('data');
    %load radiologist's dataset
    LIDCData = xlsread('sample_set.xlsx');
    
    %very specific to this dataset
    X = LIDCData(:,10:83);
    Y = LIDCData(:,end);
    
    %Open Matlab pool for multi-threading
    if(matlabpool('size') == 0) %checking to see if my pool is already open
       matlabpool open 4
    end
    
%% run bagging    
    rfName = 'Random Forest';
    bagName = 'Bagging';
    leafs = [1 5 10 20 50 100];
    
    tic
    disp('Running Bagging...');
    bags = runBagging(X,Y,200,leafs,0);
    disp('Bagging complete! Running Random Forest...');
    rfs = runBagging(X,Y,200,leafs,1);
    toc
    
    %close matlab pool
    matlabpool close;
    
%% graph the error
    tic
    disp('Random Forest complete! Graphing OOB...');
    graphBags(bags,leafs,bagName);
    graphBags(rfs,leafs,rfName);
    disp('Graphing Complete!');
    toc
    
%% Wrap up

    
    %send a message out
    matlabMail('Pinkjello92@gmail.com','Bagging and RF Complete!');