Spaces:
Sleeping
Sleeping
Update app.R
Browse files
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.
|
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 |
+
|