X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FcomputeGridLambda.R;h=b29553505d361f0c0916b666bdcacdf017f49402;hp=9d06aed09139fee73571700e8c8e70136f65d0f4;hb=0930b5d395ef0a48d1f97f88ee533c13d0962759;hpb=7ac88d643dac3dccb17c3e81c7b3d3d1aa87c1af diff --git a/pkg/R/computeGridLambda.R b/pkg/R/computeGridLambda.R index 9d06aed..b295535 100644 --- a/pkg/R/computeGridLambda.R +++ b/pkg/R/computeGridLambda.R @@ -32,6 +32,5 @@ computeGridLambda = function(phiInit, rhoInit, piInit, gamInit, X, Y, for (j in 1:m) grid[i,j,] = abs(list_EMG$S[i,j,]) / (n*list_EMG$pi^gamma) } - grid = unique(grid) - sort(grid) + sort( unique(grid) ) }