1 files changed, 21 insertions, 0 deletions
diff --git a/test.R b/test.R
new file mode 100644
index 0000000..eb61a1a
--- /dev/null
+++ b/test.R
@@ -0,0 +1,21 @@
+library(gmkin)
+
+app <- gmkin(script = "~/git/gmkin/inst/GUI/gmkin.R")
+s <- gmkin:::get_current_session(app)
+
+s$show_fit_option_widgets(TRUE)
+s$f.run$call_Ext("enable")
+
+names(s)
+s$ftmp$reweight.max.iter
+s$ftmp$maxit
+names(s$ftmp)
+
+s$ws$ftmp$maxit
+s$f.run$call_Ext("enable")
+s$f.gg.parms[,]
+s$show_fit_option_widgets
+svalue(s$f.gg.opts.reweight.tol) <-
+svalue(s$f.gg.opts.error_model)
+svalue(s$f.gg.opts.error_model_algorithm)
+visible(s$f.gg.opts.g) <- TRUE