                       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))
+                      lfprpop (read-string (format "%.2f" (/ (* lfpr (:population o)) 1000)))
+                      wprpop (read-string (format "%.2f" (/ (* wpr (:population o)) 1000)))
                       upr  (calc-unemployment-ratio
                             lfprpop
                             wprpop)]
 
-                  {:upr upr
+                  {:upr (rounded-value upr)
                    :year (:year o)
-                   :statepop lfprpop
+                   :statepop (rounded-value  lfprpop)
                    :unemppersons (rounded-value
                                   (/ (* upr lfprpop) 1000))
                    :gender (:gender o)}))) sp))

  (int (Math/ceil v)))

(defn calc-unemployment-ratio
  ([lfprpop wrpop]  (rounded-value (* (/ (- lfprpop wrpop) lfprpop) 1000)))
  ([lfprpop wrpop pop] (rounded-value (* (/ (- lfprpop wrpop) pop) 1000))))

(defn calc-state-pop [constant estpop statepop gender-constant gender]
  (rounded-value (+ constant (* estpop statepop) (* gender-constant gender))))

(defn calc-population [statepop constant
                       estpop gender-constant
                       gender]
  (rounded-value (/ (* statepop
                       (calc-state-pop constant estpop
                                       statepop gender-constant
                                       gender)) 1000)))

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



(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)})

