 y w = mean $ (y .-. y') .^ 2
  where
    y' = map (dotprod w) x    

mean
erro x y w = mean $ (y .-. y') .^ 2
  where
    y' = map (dotprod w) x    
erro x y w = mean $ (y .-. y') .^ 2
  where
    y' = map (dotprod w) x    