%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Author:	Jacob Calvert
%% Date:	03/02/2016 
%% This script will create a normalized
%% coefficient matrix for picking the 
%% colors red, green, blue, yellow 
%% out of an RGB color profile
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


blue_data = csvread ('blue.csv' );
%% the way to read these variable names => blue_data_rc is "blue data, red component"
blue_data_rc=blue_data(:, 1);
blue_data_gc=blue_data(:, 2);
blue_data_bc=blue_data(:, 3);

blue_data_means = [mean(blue_data_rc), mean(blue_data_gc), mean(blue_data_bc)];

blue_data_means_norm = blue_data_means / norm(blue_data_means);

red_data = csvread ('red.csv' );

red_data_rc=red_data(:, 1);
red_data_gc=red_data(:, 2);
red_data_bc=red_data(:, 3);

red_data_means = [mean(red_data_rc), mean(red_data_gc), mean(red_data_bc)];

red_data_means_norm = red_data_means / norm(red_data_means);

green_data = csvread('green.csv');

green_data_rc=green_data(:,1);
green_data_gc=green_data(:,2);
green_data_bc=green_data(:,3);

green_data_means = [mean(green_data_rc) mean(green_data_gc) mean(green_data_bc)];

green_data_means_norm = green_data_means / norm(green_data_means);

yellow_data = csvread('yellow.csv');

yellow_data_rc=yellow_data(:, 1);
yellow_data_gc=yellow_data(:, 2);
yellow_data_bc=yellow_data(:,3);

yellow_data_means = [mean(yellow_data_rc) mean(yellow_data_gc) mean(yellow_data_bc)];

yellow_data_means_norm = yellow_data_means /norm(yellow_data_means);

rgb_coeff = [red_data_means_norm;green_data_means_norm;blue_data_means_norm;yellow_data_means_norm];

%% rgb_coeff is the output matrix