figure('Units','normalized', ...
    'Name','BOUNDARIES', ...
	'Color',[0.8 0.8 0.8], ...
	'Position',[ 0.01375 0.40166 0.13 0.52 ]);

width1= .6;
%scores
uicontrol('Units','normalized', ...
	'BackgroundColor',[0.964705882352941 0.247058823529412 0.105882352941176], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x);figure;plotgrps(scores(:,1),scores(:,2),g);title(''SCORES (PC2 vs PC1)'')',...
	'Position',[0.156521739130435 0.803664921465969 width1 0.120418848167539 ], ...
	'String','scores');

	
%loadings
uicontrol('Units','normalized', ...
	'BackgroundColor',[0.964705882352941 0.247058823529412 0.105882352941176], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x);figure;vectplot(loadings);title(''LOADINGS (CORRELATIONS OF CHARS WITH PC2 VS PC1'')',...
	'Position',[ 0.165217391304348 0.659685863874346 width1 0.120418848167539 ], ...
	'String','loadings');
%allometries
uicontrol('Units','normalized', ...
	'BackgroundColor',[0.964705882352941 0.247058823529412 0.105882352941176], ...
	'Position',[ 0.165217391304348 0.520942408376963 width1 0.117801047120419 ], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x);alloms=allom(loadings(:,1)); figure;vectplot(alloms);title(''ALLOMETRIES''); ',...
	'String','alloms');
%CI
uicontrol('Units','normalized', ...
	'BackgroundColor',[0.96470580.247058823529412 0.105882352941176], ...
	'Position',[ 0.156521739130435 0.37434554973822 width1 0.117801047120419 ], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x,[],[],[],100);figure;vectplot(loadings(:,1),{},CI_loadings(:,[1 2]));title(''BOOTSTRAP LOADINGS ON PC1'')',...
	'String','Boot loadings');

uicontrol('Units','normalized', ...
	'BackgroundColor',[0.964705882352941 0.247058823529412 0.105882352941176], ...
	'Position',[ 0.156521739130435 0.230366492146597 width1 0.117801047120419 ], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x,[],[],[],100);all=allom(loadings(:,1));alls=allom(CI_loadings(:,[1 2]));figure;vectplot(all,{},alls);title(''BOOTSTRAP ALLOMETRIES k=100'')',...
	'String','Boot alloms');
%classify
uicontrol('Units','normalized', ...
	'BackgroundColor',[0.964705882352941 0.247058823529412 0.105882352941176], ...
	'Position',[ 0.165217391304348 0.0863874345549738 width1 0.117801047120419 ], ...
	'Callback','[loadings,percvar,scores,fscores,CI_loadings,CI_percvar]= pcacov(x,[],[],[],100);figure;vectplot(percvar/100,{},CI_percvar/100);title(''BOOTSTRAP OF %VARIANCE (eigenvalues) k=100'')',...
	'String','%var expl');

