 
 (defn calc-state-wpr [constant estpop gender-constant gender spp]
   {:year (:year spp) :wpr (cond (<= (:year spp) 2014) (:wpr spp)
-                                :else (calc-state-pop constant estpop (:population spp)
-                                                      gender-constant gender))
-   :wprpop (calc-population (:population spp) constant
-                             estpop gender-constant
-                             gender-constant)
+                                :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)})
 

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

  (int (Math/ceil v)))

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

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

(defn calc-population [statepop constant
                       estpop gender-constant
                       gender]
  (/ (* 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 (rounded-value (calc-state-pop constant estpop
                                                                      (:population spp)
                                                                      gender-constant
                                                                      gender)))
   :lfprpop (rounded-value (calc-population (:population spp) constant
                                            estpop gender-constant
                                            gender))
   :statepop (:population spp)
   :gender (:gender spp)})

