Skip to content

Instantly share code, notes, and snippets.

View seb231's full-sized avatar

Seb Bailey seb231

  • London, UK
View GitHub Profile
(tc/concat
(-> designation-capacities
(tc/drop-rows #(#{"St Teresas/Moorgate/Blackrod Church" "Green Fold"} (:school %))))
(-> designation-capacities
(tc/select-rows #(#{"St Teresas/Moorgate/Blackrod Church" "Green Fold"} (:school %)))
(tc/group-by :calendar-year)
(tc/aggregate {:capacity #(reduce + (% :capacity))})
(tc/rename-columns {:$group-name :calendar-year})
(tc/add-columns {:school "Green Fold/St Teresas/Moorgate/Blackrod Church"
:setting "MSS/RP"
{:file-inputs {:settings-to-change "data/modify-settings1.csv"
:transition-matrix "data/transitions.csv"
:population "data/population.csv"
:setting-cost "data/need-setting-costs.csv"
:valid-setting-academic-years "data/valid-setting-academic-years.csv"}
:transition-parameters {:filter-transitions-from nil
:modify-transitions-date-range {:from 2022}
:transitions-to-change [{:need-2 :A :setting-2 :B :modify-transitions-by 2}
{:file-inputs {:settings-to-change "data/modify-settings1.csv"
:transition-matrix "data/transitions.csv"
:population "data/population.csv"
:setting-cost "data/need-setting-costs.csv"
:valid-setting-academic-years "data/valid-setting-academic-years.csv"}
:transition-parameters {:filter-transitions-from 2016
:which-transitions? nil
:splice-ncy 11
:modify-transition-by 1}
{:file-inputs {:settings-to-change "data/modify-settings1.csv"
:transition-matrix "data/transitions.csv"
:population "data/population.csv"
:setting-cost "data/need-setting-costs.csv"
:valid-setting-academic-years "data/valid-setting-academic-years.csv"}
:transition-parameters {:filter-transitions-from nil
:which-transitions? ["joiners"]
:splice-ncy nil
:modify-transition-by 0.5}
{:file-inputs {:settings-to-change "data/modify-settings1.csv"
:transition-matrix "data/transitions.csv"
:population "data/population.csv"
:setting-cost "data/need-setting-costs.csv"
:valid-setting-academic-years "data/valid-setting-academic-years.csv"}
:transition-parameters {:filter-transitions-from nil
:which-transitions? ["joiners"]
:splice-ncy nil
:modify-transition-by 0.5}

Keybase proof

I hereby claim:

  • I am seb231 on github.
  • I am seb231 (https://keybase.io/seb231) on keybase.
  • I have a public key ASBL1-91IOPaCr7uhpA2y9ndfn8X3AzT_qX_dq_VVeKXOwo

To claim this, I am signing this object:

(map (fn [year] (map (fn [age] (vec [gss-code age year (reduce + ($ :popn (-> (query-dataset foo {:year {:$eq year}})
(query-dataset {:age age})
)))])) age-range)) year-range)
(def age-range (range 0 91))
(def year-range (range 2001 2041))
(def gss-code "E06000023")
"1 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"2 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"3 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"4 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"5 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"6 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"7 witan.workspace-api -> calling input::workspace-test/resource-csv-loader"
"8 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"9 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"10 witan.workspace-api <- finished fn::workspace-test/resource-csv-loader-filtered"
"1 witan.workspace-api -> calling fn::ccm-core/prepare-starting-popn"
"2 witan.workspace-api <- finished fn::ccm-core/prepare-starting-popn"
"3 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"4 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"5 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"6 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"7 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"8 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"9 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
"10 witan.workspace-api -> calling fn::workspace-test/resource-csv-loader-filtered"
Show: Clojure Java REPL Tooling Duplicates All (16 frames hidden)
2. Unhandled clojure.lang.Compiler$CompilerException
Error compiling schemas.clj at (112:3)
Compiler.java: 3657 clojure.lang.Compiler$InvokeExpr/eval
Compiler.java: 451 clojure.lang.Compiler$DefExpr/eval
Compiler.java: 6932 clojure.lang.Compiler/eval
Compiler.java: 7379 clojure.lang.Compiler/load
REPL: 1 witan.models.dem.ccm.mort.mortality-test/eval48832