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

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


                      sspw (first (filter #(= (:rate %) "WPR") spe))
                      lfpr (get-unemp-pop sspl o)
                      wpr (get-unemp-pop sspw o)
                      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 (rounded-value upr)
                   :year (:year o)
                   :statepop (rounded-value  lfprpop)
                   :unemppersons (rounded-value
                                  (/ (* upr lfprpop) 1000))
                   :gender (:gender o)}))) sp))
