Implemented JavaTrieParetoFractionRemove.

JavaTriesWithFrequencies.m

@@ -168,6 +168,9 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
 
 JavaTrieThresholdRemove::usage = "Remove nodes that have values below (or above) a threshold."
 
+JavaTrieParetoFractionRemove::usage = "Remove nodes that have values below (or above) thresholds derived\
+ from a specified Pareto fraction."
+
 JavaTrieToJSON::usage = "Converts a Java trie to a corresponding JSON expression."
 
 Begin["`Private`"]
@@ -320,6 +323,19 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
 JavaTrieThresholdRemove[jTr_?JavaObjectQ, threshold_?NumericQ, postfix_String] :=
     TrieFunctions`removeByThreshold[jTr, threshold, True, postfix];
 
+Clear[JavaTrieParetoFractionRemove]
+JavaTrieParetoFractionRemove[jTr_?JavaObjectQ, paretoFraction_?NumericQ, removeBottomElementsQ:(True|False), postfix_String ] :=
+    TrieFunctions`removeByParetoFraction[jTr, paretoFraction, removeBottomElementsQ, postfix];
+
+JavaTrieParetoFractionRemove[jTr_?JavaObjectQ, paretoFraction_?NumericQ, removeBottomElementsQ:(True|False) ] :=
+    TrieFunctions`removeByParetoFraction[jTr, paretoFraction, removeBottomElementsQ];
+
+JavaTrieParetoFractionRemove[jTr_?JavaObjectQ, paretoFraction_?NumericQ] :=
+    TrieFunctions`removeByParetoFraction[jTr, paretoFraction];
+
+JavaTrieParetoFractionRemove[jTr_?JavaObjectQ, paretoFraction_?NumericQ, postfix_String] :=
+    TrieFunctions`removeByParetoFraction[jTr, paretoFraction, True, postfix];
+
 End[] (* `Private` *)
 
 EndPackage[]