cjerzak commited on
Commit
837e8c9
·
verified ·
1 Parent(s): d6be8ab

Update app.R

Browse files
Files changed (1) hide show
  1. app.R +4 -3
app.R CHANGED
@@ -5,7 +5,6 @@
5
  options(error = NULL)
6
  library(shiny)
7
  library(ggplot2)
8
- library(ggthemes)
9
  library(strategize)
10
  library(dplyr)
11
 
@@ -66,7 +65,6 @@ plot_factor <- function(pi_star_list,
66
  ) +
67
 
68
  # Apply Tufte's minimalistic theme
69
- #theme_tufte(base_size = 12) +
70
  theme_minimal(base_size = 16,
71
  base_line_size = 0) +
72
  theme(
@@ -343,13 +341,15 @@ server <- function(input, output, session) {
343
  nMonte_adversarial = 20L,
344
  nSGD = params$nSGD,
345
  penalty_type = params$penalty_type,
346
- learning_rate_max = 0.000001,
347
  use_optax = params$use_optax,
348
  compute_se = params$compute_se,
349
  conf_level = params$conf_level,
350
  conda_env = params$conda_env,
351
  conda_env_required = params$conda_env_required
352
  )
 
 
353
  Qoptimized$n_strategies <- 2L
354
  }
355
 
@@ -402,3 +402,4 @@ server <- function(input, output, session) {
402
 
403
  # Run the app
404
  shinyApp(ui, server)
 
 
5
  options(error = NULL)
6
  library(shiny)
7
  library(ggplot2)
 
8
  library(strategize)
9
  library(dplyr)
10
 
 
65
  ) +
66
 
67
  # Apply Tufte's minimalistic theme
 
68
  theme_minimal(base_size = 16,
69
  base_line_size = 0) +
70
  theme(
 
341
  nMonte_adversarial = 20L,
342
  nSGD = params$nSGD,
343
  penalty_type = params$penalty_type,
344
+ learning_rate_max = 0.001,
345
  use_optax = params$use_optax,
346
  compute_se = params$compute_se,
347
  conf_level = params$conf_level,
348
  conda_env = params$conda_env,
349
  conda_env_required = params$conda_env_required
350
  )
351
+ # sanity correlation
352
+ # plot(unlist(Qoptimized$pi_star_point$Democrat), unlist(Qoptimized$pi_star_point$Republican))
353
  Qoptimized$n_strategies <- 2L
354
  }
355
 
 
402
 
403
  # Run the app
404
  shinyApp(ui, server)
405
+