max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improved docs

Browse source
This commit is contained in:
Waldir Leoncio 2020-02-25 15:41:20 +01:00
parent eff04b3124
commit 3261422605
3 changed files with 4 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

52
R/admix1.R
View file

@ -350,54 +350,4 @@ admix1 <- function(tietue) {
# save([pathname filename], 'tietue', '-v7.3'); # added by Lu Cheng, 08.06.2012
# end
# end
}
# function [npops] = poistaLiianPienet(npops, rowsFromInd, alaraja)
# % Muokkaa tulokset muotoon, jossa outlier yksilöt on
# % poistettu. Tarkalleen ottaen poistaa ne populaatiot,
# % joissa on vähemmän kuin 'alaraja':n verran yksilöit?
# global PARTITION;
# global COUNTS;
# global SUMCOUNTS;
# popSize=zeros(1,npops);
# for i=1:npops
# popSize(i)=length(find(PARTITION==i));
# end
# miniPops = find(popSize<alaraja);
# if length(miniPops)==0
# return;
# end
# outliers = [];
# for pop = miniPops
# inds = find(PARTITION==pop);
# disp('Removed individuals: ');
# disp(num2str(inds));
# outliers = [outliers; inds];
# end
# ninds = length(PARTITION);
# PARTITION(outliers) = 0;
# korit = unique(PARTITION(find(PARTITION>0)));
# for n=1:length(korit)
# kori = korit(n);
# yksilot = find(PARTITION==kori);
# PARTITION(yksilot) = n;
# end
# COUNTS(:,:,miniPops) = [];
# SUMCOUNTS(miniPops,:) = [];
# npops = npops-length(miniPops);
# %------------------------------------------------------------------------
# function clearGlobalVars
# global COUNTS; COUNTS = [];
# global SUMCOUNTS; SUMCOUNTS = [];
# global PARTITION; PARTITION = [];
# global POP_LOGML; POP_LOGML = [];
}