Correlate stuff

correlate.wls

With[{e = ents, t = ts, n = nums, size = 20},
 With[{items = nums[[;; 20]]},
  With[{list = Subsets[n, {2}]},
    Grid[
      TakeSmallestBy[
        ParallelTable[
      With[{a = ents[[First@ii]], b = ents[[Last@ii]], 
        x = ts[[First@ii]], y = ts[[Last@ii]]}, {
             a,
             b,
             Correlation[Ratios@x, Ratios@y]
             }], {ii, list}]
        , Last, 10]
      ]
    ]
  ]
 ]