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

Added function

Browse source
This commit is contained in:
Waldir Leoncio 2020-06-24 11:13:52 +02:00
parent 327d4cbfdb
commit 4b2cba59bd
2 changed files with 21 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
R/greedyMix.R
View file

@ -1583,21 +1583,6 @@ greedyMix <- function(
# apu = (apu(:,1)-1).*ninds - apu(:,1) ./ 2 .* (apu(:,1)-1) + (apu(:,2)-apu(:,1));
# dist2 = dist(apu);
# %--------------------------------------------------------
# function ninds = testaaOnkoKunnollinenBapsData(data)
# %Tarkastaa onko viimeisess?sarakkeessa kaikki
# %luvut 1,2,...,n johonkin n:<3A><>n asti.
# %Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>n 2 saraketta.
# if size(data,1)<2
# ninds = 0; return;
# end
# lastCol = data(:,end);
# ninds = max(lastCol);
# if ~isequal((1:ninds)',unique(lastCol))
# ninds = 0; return;
# end
# %--------------------------------------------------------------------------
# function [emptyPop, pops] = findEmptyPop(npops)

21
R/testaaOnkoKunnollinenBapsData.R Normal file
View file

@ -0,0 +1,21 @@
#' @title TestBAPS data
#' @description Test if loaded BAPS data is proper
#' @param data dataset
#' @return ninds
#' @export
testaaOnkoKunnollinenBapsData <- function(data) {
# Tarkastaa onko viimeisess?sarakkeessa kaikki
# luvut 1,2,...,n johonkin n:<3A><>n asti.
# Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>n 2 saraketta.
if (size[data, 1] < 2) {
ninds <- 0
return(ninds)
}
lastCol <- data[, ncol(data)]
ninds <- max(lastCol)
if (t(1:ninds) != unique(lastCol)) {
ninds <- 0
return(ninds)
}
return(ninds)
}