blob: eb61a1a928f8bcda8dccbcac44a8aa6ef0c1035c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
