In clojure, quello che è un modo efficace per calcolare la media dei vettori di interi

Question

ho:

(def data [[1 3 4 7 9] [7 6 3 2 7] [1 9 8 6 2]]) 

voglio media ci (elemento-saggio ottenere):

[3 6 5 5 6] 

come si farebbe in MATLAB:

mean([1 3 4 7 9; 7 6 3 2 7; 1 9 8 6 2]) 

Con Incanter posso fare:

(map #(/ % (count m)) (apply plus data)) 

Se i dati sono piuttosto grandi (e ne ho molti) c'è un modo migliore per farlo?
Aiuta a calcolare preventivamente lo (count m)?
Aiuta a defn il #(/ % (count m)) in anticipo?

Answer 1

Senza sapere come usare l'incanter, ecco come si potrebbe fare questo "da zero".

(let [data [[1 3 4 7 9] [7 6 3 2 7] [1 9 8 6 2]] 
     num (count data)] 
    (apply map (fn [& items] 
       (/ (apply + items) num)) 
     data)) 

;=> (3 6 5 5 6) 

Answer 2

Ecco un modo piuttosto semplice e pulito per farlo:

(def data [[1 3 4 7 9] [7 6 3 2 7] [1 9 8 6 2]]) 

(defn average [coll] 
    (/ (reduce + coll) (count coll))) 

(defn transpose [coll] 
    (apply map vector coll)) 

(map average (transpose data)) 
=> (3 6 5 5 6) 

Answer 3

Dal 2013, la mia raccomandazione sarebbe di utilizzare solo core.matrix.stats di importare tutte queste funzionalità:

(mean [[1 3 4 7 9] [7 6 3 2 7] [1 9 8 6 2]]) 
=> [3.0 6.0 5.0 5.0 6.0] 

core.matrix.stats si basa sull'API core.matrix, quindi funzionerà anche su altre implementazioni più ottimizzate di vettori e matrici: è probabile che questa sia un'opzione migliore se si eseguono molte m pesanti elaborazione atrix.