En clojure, lo que es una forma eficiente para calcular la media de los vectores enteros

Question

tengo:

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

Quiero promediar estos (elemento a elemento de conseguir):

[3 6 5 5 6] 

Al igual que lo haría en MATLAB:

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

Con embrujamiento que puedo hacer:

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

Si los datos son bastante grandes (y tengo muchos de ellos) ¿hay una mejor manera de hacerlo?
¿Ayuda a calcular el (count m) de antemano?
¿Ayuda de antemano a defn el #(/ % (count m))?

Answer 1

Sin saber cómo utilizar el incanter, aquí se explica cómo se puede hacer esto "desde cero".

(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

Aquí está una manera muy limpia y sencilla de hacerlo:

(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

A partir de 2013, mi recomendación sería utilizar sólo core.matrix.stats para importar toda esta funcionalidad:

(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 se basa en la API core.matrix, por lo que también funcionará en otras implementaciones más optimizadas de vectores y matrices; esta es probablemente una mejor opción si está haciendo una gran cantidad de m pesados. procesamiento de atrix