%% 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
    load('large slice radiologists.mat');
    X = Xlargest;
    %round the averaged ratings
    Y = round(Yaverage);

%% Run RUSBoost

    [allModels, allTraining, allTesting] = runRUSBoosting(X,Y);

%% Plot the error for both training the testing

    tic
    plotEnsError( allModels,allTesting,X,Y,'Testing Accuracy');
    plotEnsError( allModels,allTraining,X,Y,'Training Accuracy');
    toc