From a671895caa5163f4fcd9b8bd6dd723994199d7ff Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Wed, 24 Jun 2020 16:24:10 +0200 Subject: [PATCH] Removed commented-out Matlab code --- R/greedyMix.R | 41 ----------------------------------------- 1 file changed, 41 deletions(-) diff --git a/R/greedyMix.R b/R/greedyMix.R index ade1cb0..de6b70c 100644 --- a/R/greedyMix.R +++ b/R/greedyMix.R @@ -1622,47 +1622,6 @@ greedyMix <- function( # %------------------------------------------------------ -# function nimi = lueNimi(line) -# %Palauttaa line:n alusta sen osan, joka on ennen pilkkua. -# n = 1; -# merkki = line(n); -# nimi = ''; -# while ~isequal(merkki,',') -# nimi = [nimi merkki]; -# n = n+1; -# merkki = line(n); -# end - -# %------------------------------------------------------- - -# function df = selvitaDigitFormat(line) -# % line on ensimm�inen pop-sanan j�lkeinen rivi -# % Genepop-formaatissa olevasta datasta. funktio selvitt�� -# % rivin muodon perusteella, ovatko datan alleelit annettu -# % 2 vai 3 numeron avulla. - -# n = 1; -# merkki = line(n); -# while ~isequal(merkki,',') -# n = n+1; -# merkki = line(n); -# end - -# while ~any(merkki == '0123456789'); -# n = n+1; -# merkki = line(n); -# end -# numeroja = 0; -# while any(merkki == '0123456789'); -# numeroja = numeroja+1; -# n = n+1; -# merkki = line(n); -# end - -# df = numeroja/2; - - - # function loggis = laskeLoggis(counts, sumcounts, adjprior) # npops = size(counts,3);