Commit f99c2b52 authored by Valentin Reis's avatar Valentin Reis
Browse files

minor changes

parent 9b7c1b60
......@@ -7,8 +7,6 @@ Multi-Armed Bandit implementations: EXP, BwCR (wip), Exp4.R
Provision using either Cabal or Nix toolchain. Both cabal file and nix packages
are provided in the repository.
Dependencies: hackage packages, glpk
## Notebooks
Provision using Nix (`nix-shell`) and run notebook
......
......@@ -76,7 +76,7 @@ plot1pass one_cost two_cost three_cost one_risk two_risk three_risk = do
let b = initCtx $ Exp4RCfg
{ expertsCfg = expertsC,
constraintCfg = unsafeRefine 0.5,
horizonCfg = unsafeRefine 50000,
horizonCfg = unsafeRefine 5000,
as = [1, 2, 3]
}
( GameState
......@@ -131,10 +131,7 @@ plot1pass one_cost two_cost three_cost one_risk two_risk three_risk = do
expertsC =
[ ObliviousRep [(HBT.one, 1), (HBT.zero, 2), (HBT.zero, 3)],
ObliviousRep [(HBT.zero, 1), (HBT.one, 2), (HBT.zero, 3)],
ObliviousRep [(HBT.zero, 1), (HBT.zero, 2), (HBT.one, 3)],
ObliviousRep [(HBT.zero, 1), (unsafeRefine 0.5, 2), (unsafeRefine 0.5, 3)],
ObliviousRep [(unsafeRefine 0.5, 1), (HBT.zero, 2), (unsafeRefine 0.5, 3)],
ObliviousRep [(unsafeRefine 0.5, 1), (unsafeRefine 0.5, 2), (HBT.zero, 3)]
ObliviousRep [(HBT.zero, 1), (HBT.zero, 2), (HBT.one, 3)]
]
p = ZipList . fmap unsafeRefine
(ZipList dataset) =
......@@ -170,4 +167,4 @@ main =
$ do
for_ rpackages rrequire
[r| theme_set(theme_bw()) |]
void $ experiment 50000
void $ experiment 5000
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment