     (let [result  (->> authors
                        (mapcat
                         (fn [author]
-                          (->> (get-user-tree author t0 tmax)
+                          (->> (get-user-tree (key author) t0 tmax)
                                :links
                                (pmap
                                 (fn [[l ls]]

  "Computes size-radius tuple distribution and evolution for any author's news compound"
  [authors t0 tmax granularity]
  (case granularity
    :distribution
    (let [links (mapcat #(:links (get-user-tree (key %) t0 tmax)) authors)
          lsize (count links)]


  (lifetime-degree broadcasters t0 tmax :distribution)
  
  (size-lifetime broadcasters t0 tmax :correlation)
  
  (size-radius broadcasters t0 tmax :correlation)

  
  )
