               #(->> (get-user-tree (:name %)))
               news-authors))))
 
-  (->> (get compounds "SZ")
-       :links
-       first
-       count)
+  (->> news-authors
+       (pmap
+        (fn [{:keys [name]}]
+          [name
+           (->> (get compounds name )
+                :links
+                (pmap (fn [ls] (let [contact-times (map (comp c/to-long :ts) ls)]
+                                 (if (empty? contact-times)
+                                   0
+                                   (->> (t/interval
+                                         (c/from-long (apply min contact-times))
+                                         (c/from-long (apply max contact-times)))
+                                        t/in-minutes
+                                        Math/floor)))))
+                stats/mean)]))
+       (into {})
+       time)
+
+
+  
   
   (ap)
 

(defn find-links [{:keys [source target group ts] :as link}]
  (let [colls {"replies" 3 "retweets" 4 "shares" 5}]
    (conj (apply concat
                 (map (fn [coll]
                        (apply concat
                               (map
                                (fn [{:keys [source target ts]}]
                                  (find-links {:source source
                                               :target target

        user-node {:name (:_id user) :value (:name user) :group 1}
        pubs (into #{} (map :target (mc/find-maps @db "pubs" {:source (:_id user) :ts day})))
        links (->> (mc/find-maps @db "sources" {:ts day :target {$in pubs}})
                   (pmap (comp find-links
                              (fn [{:keys [source target ts]}]
                                {:source target
                                 :target (:_id user)
