Implemented JavaTrieShrinkInternalNodes.

JavaTriesWithFrequencies.m

@@ -168,6 +168,10 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
 JavaTrieShrink::usage = "JavaTrieShrink[ jTr_, sep_String:\"\"] concatenates the \"single path\" nodes\
  in the trie jTr using the given separator sep."
 
+JavaTrieShrinkInternalNodes::usage = "JavaTrieShrinkInternalNodes[ jTr_, sep_String:\"\"] concatenates\
+ the \"single path\" internal nodes in the trie jTr using the given separator sep."
+
+
 JavaTrieThresholdRemove::usage = "Remove nodes that have values below (or above) a threshold."
 
 JavaTrieParetoFractionRemove::usage = "Remove nodes that have values below (or above) thresholds derived\
@@ -269,6 +273,13 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
 
 JavaTrieShrink[jTr_?JavaObjectQ, sep_String, th_?NumberQ ] := TrieFunctions`shrinkByThreshold[jTr, sep, th];
 
+Clear[JavaTrieShrinkInternalNodes]
+JavaTrieShrinkInternalNodes[jTr_?JavaObjectQ, sep_String: ""] :=
+    TrieFunctions`shrinkInternalNodes[jTr, sep, 1.0 ];
+
+JavaTrieShrinkInternalNodes[jTr_?JavaObjectQ, sep_String, th_?NumberQ ] :=
+    TrieFunctions`shrinkInternalNodes[jTr, sep, th];
+
 Clear[JavaTrieToJSON]
 JavaTrieToJSON[jTr_?JavaObjectQ] := ImportString[jTr@toJSON[], "JSON"];