1
0
Fork 0
mirror of https://github.com/MillironX/beefblup.git synced 2024-11-14 11:33:10 +00:00

Terminate if there are more contemporary groups than animals

This commit is contained in:
Thomas A. Christensen II 2018-09-14 21:40:50 -06:00
parent b372608f2e
commit 6743790804
2 changed files with 48 additions and 29 deletions

View file

@ -33,6 +33,8 @@ animalrow = @(id) find(ids == id);
numanimals = length(ids); numanimals = length(ids);
% Store column numbers that need to be deleted % Store column numbers that need to be deleted
% Column 6 contains an intermediate Excel calculation and always needs to
% be deleted
colstodelete = 6; colstodelete = 6;
% Coerce each group to string format % Coerce each group to string format
@ -48,3 +50,20 @@ for i = 7:length(headers)
colstodelete = [colstodelete i]; colstodelete = [colstodelete i];
end end
end end
% Delete the appropriate columns from the datasheet and the headers
data(:,colstodelete) = [];
headers(colstodelete) = [];
% Determine how many contemporary groups there are
numgroups = ones(1, length(headers)-5);
for i = 6:length(headers)
numgroups(i) = length(unique(data(:,i)));
end
% If there are more groups than animals, then the analysis cannot continue
if sum(numgroups) >= numanimals
disp('There are more contemporary groups than animals. The analysis will now abort.');
return
end