   (map (fn [o] (if (<= (:year o) 2014)
                 {:year (:year o) :pur (:pur o)
                  :statepop (:population o)
-                 :unemppersons (rounded-value
-                                (/ (* (:pur o) (:population o))
-                                   1000))
+                 :unemppersons (rounded-value (/ (* (:pur o) (:population o))
+                                                 1000))
                  :gender (:gender o)
                  }
                 (let [sspl (first (filter #(= (:rate %) "LFPR") spe))
                       sspw (first (filter #(= (:rate %) "WPR") spe))
                       wpr (get-unemp-pop sspw o)
                       lfpr (get-unemp-pop sspl o)
-                      lfprpop (rounded-value
-                               (/ (* lfpr (:population o)) 1000))
-                      wprpop (rounded-value
-                              (/ (* wpr (:population o)) 1000))
+                      lfprpop (/ (* lfpr (:population o)) 1000)
+                      wprpop (/ (* wpr (:population o)) 1000)
                       pur (calc-unemployment-ratio lfprpop
                                                    wprpop
                                                    (:population o))]
-                  {:pur pur
+                  {:pur (rounded-value pur)
                    :year (:year o)
                    :statepop (:population o)
                    :unemppersons (rounded-value

                      sspw (first (filter #(= (:rate %) "WPR") spe))
                      lfpr (get-unemp-pop sspl o)
                      wpr (get-unemp-pop sspw o)
                      lfprpop (rounded-value
                               (/ (* lfpr (:population o)) 1000))
                      wprpop (rounded-value
                              (/ (* wpr (:population o)) 1000))
                      upr  (calc-unemployment-ratio
                            lfprpop
                            wprpop)]

                  {:upr upr
                   :year (:year o)
                   :statepop lfprpop
                   :unemppersons (rounded-value
                                  (/ (* upr lfprpop) 1000))
                   :gender (:gender o)}))) sp))


(defn calc-state-wpr [constant estpop gender-constant gender spp]
  {:year (:year spp) :wpr (cond (<= (:year spp) 2014) (:wpr spp)
                                :else (rounded-value (calc-state-pop constant estpop
                                                                     (:population spp)
                                                                     gender-constant gender)))
   :wprpop (rounded-value (calc-population (:population spp) constant
                                           estpop gender-constant
                                           gender))
   :statepop (:population spp)
   :gender (:gender spp)})

