📄 stcurve_98.dlg
字号:
/*
stcurve_98
*! VERSION 1.1.0 21mar2005
*/
VERSION 9.0
INCLUDE graph_header
INCLUDE header
HELP hlp1, view("help stcurve")
RESET res1
DIALOG main, tabtitle("Main") ///
label("stcurve - Plot survival, hazard, or cumulative hazard function")
BEGIN
GROUPBOX gb_graph _lft _top _iwd _ht2, ///
label("Function")
RADIO rb_survival _ilft _ss _cwd4_2 ., ///
label("Survival") ///
clickon(script rb_hazard_off) ///
option(survival) first
RADIO rb_hazard _lft4_2 @ @ ., ///
label("Hazard") ///
clickon(script rb_hazard_on) ///
option(hazard)
RADIO rb_cummu _lft4_3 @ @ ., ///
label("Cumulative hazard") ///
clickon(script rb_hazard_off) ///
option(cumhaz) ///
last
GROUPBOX gb_meanat _lft _xls _iwd _ht22h, ///
label("Function evaluation")
RADIO rb_mean _ilft _ss _ibwd ., ///
first ///
clickon("script mean_on") ///
label("Evaluate function at the mean value of the covariates")
RADIO rb_mulcurve @ _ss _ibwd ., ///
last ///
clickon("script multicurve") ///
label("Evaluate function at the value of the specified covariates and mean of unspecified covariates")
TEXT tx_atcurve _indent2 _ms _cwd3 ., ///
label("Curves:")
DEFINE x @x
DEFINE yx @y
LISTBOX lb_at @ _ss @ _ht12h, ///
label("") ///
contents(curves) ///
onselchangelist(func_change)
DEFINE y @y
/* -------------- zero th curve ----------------*/
/*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/
TEXT tx_var01 _lft2 yx _vnwd ., ///
label("Curve 0, Variable 1:")
TEXT tx_val01 +150 @ _en7wd ., ///
label("Value 1:")
DEFINE enx @x
VARNAME vn_atc01 _lft2 _ss _vnwd ., ///
label("Curve 0, Variable 1")
DEFINE yvar1 @y
TEXT tx_eq1 _vnsep @ _ckwd ., ///
label("=") ///
center
EDIT en_atc01 enx @ _en7wd ., ///
label("Value 1") ///
numonly
TEXT tx_var02 _lft2 _ms _vnwd ., ///
label("Curve 0, Variable 2:")
TEXT tx_val02 enx @ @ ., ///
label("Value 2:")
VARNAME vn_atc02 _lft2 _ss _vnwd ., ///
label("Curve 0, Variable 2")
DEFINE yvar2 @y
TEXT tx_eq2 _vnsep @ _ckwd ., ///
label("=") ///
center
EDIT en_atc02 enx @ _en7wd ., ///
label("Value 2") ///
numonly
TEXT tx_var03 _lft2 _ms _vnwd ., ///
label("Curve 0, Variable 3:")
TEXT tx_val03 enx @ @ ., ///
label("Value 3:")
VARNAME vn_atc03 _lft2 _ss _vnwd ., ///
label("Curve 0, Variable 3")
DEFINE yvar3 @y
TEXT tx_eq3 _vnsep @ _ckwd ., ///
label("=") ///
center
EDIT en_atc03 enx @ _en7wd ., ///
label("Value 3") ///
numonly
TEXT tx_var04 _lft2 _ms _vnwd ., ///
label("Curve 0, Variable 4:")
TEXT tx_val04 enx @ @ ., ///
label("Value 4:")
VARNAME vn_atc04 _lft2 _ss _vnwd ., ///
label("Curve 0, Variable 4")
DEFINE yvar4 @y
TEXT tx_eq4 _vnsep @ _ckwd ., ///
label("=") ///
center
EDIT en_atc04 enx @ _en7wd ., ///
label("Value 3") ///
numonly
/* ------------- first curves ---------------- */
VARNAME vn_atc11 _lft2 yvar1 _vnwd ., ///
label("Curve 1, Variable 1")
EDIT en_atc11 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc12 _lft2 yvar2 _vnwd ., ///
label("Curve 1, Variable 2")
EDIT en_atc12 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc13 _lft2 yvar3 _vnwd ., ///
label("Curve 1, Variable 3")
EDIT en_atc13 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc14 _lft2 yvar4 _vnwd ., ///
label("Curve 0, Variable 4")
EDIT en_atc14 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* -------------------------- second curve ----------------------- */
VARNAME vn_atc21 _lft2 yvar1 _vnwd ., ///
label("Curve 2, Variable 1")
EDIT en_atc21 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc22 _lft2 yvar2 _vnwd ., ///
label("Curve 2, Variable 2")
EDIT en_atc22 enx @ _en7wd ., ///
label("Value 2 ") ///
numonly
VARNAME vn_atc23 _lft2 yvar3 _vnwd ., ///
label("Curve 2, Variable 3")
EDIT en_atc23 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc24 _lft2 yvar4 _vnwd ., ///
label("Curve 2, Variable 4")
EDIT en_atc24 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ------------- third curves ---------------- */
VARNAME vn_atc31 _lft2 yvar1 _vnwd ., ///
label("Curve 3, Variable 1")
EDIT en_atc31 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc32 _lft2 yvar2 _vnwd ., ///
label("Curve 3, Variable 2")
EDIT en_atc32 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc33 _lft2 yvar3 _vnwd ., ///
label("Curve 3, Variable 3")
EDIT en_atc33 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc34 _lft2 yvar4 _vnwd ., ///
label("Curve 3, Variable 4")
EDIT en_atc34 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ------------------- fourth curve ----------------------- */
VARNAME vn_atc41 _lft2 yvar1 _vnwd ., ///
label("Curve 4, Variable 1")
EDIT en_atc41 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc42 _lft2 yvar2 _vnwd ., ///
label("Curve 4, Variable 2")
EDIT en_atc42 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc43 _lft2 yvar3 _vnwd ., ///
label("Curve 4, Variable 3")
EDIT en_atc43 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc44 _lft2 yvar4 _vnwd ., ///
label("Curve 4, Variable 4")
EDIT en_atc44 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ------------------- 5th curve ------------------- */
VARNAME vn_atc51 _lft2 yvar1 _vnwd ., ///
label("Curve 5, Variable 1")
EDIT en_atc51 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc52 _lft2 yvar2 _vnwd ., ///
label("Curve 5, Variable 2")
EDIT en_atc52 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc53 _lft2 yvar3 _vnwd ., ///
label("Curve 5, Variable 3")
EDIT en_atc53 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc54 _lft2 yvar4 _vnwd ., ///
label("Curve 5, Variable 4")
EDIT en_atc54 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/*------------ 6th curve-------------------------------------- */
VARNAME vn_atc61 _lft2 yvar1 _vnwd ., ///
label("Curve 6, Variable 1")
EDIT en_atc61 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc62 _lft2 yvar2 _vnwd ., ///
label("Curve 6, Variable 2")
EDIT en_atc62 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc63 _lft2 yvar3 _vnwd ., ///
label("Curve 6, Variable 3")
EDIT en_atc63 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc64 _lft2 yvar4 _vnwd ., ///
label("Curve 6, Variable 4")
EDIT en_atc64 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ---------------- 7th curve ----------------- */
VARNAME vn_atc71 _lft2 yvar1 _vnwd ., ///
label("Curve 7, Variable 1")
EDIT en_atc71 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc72 _lft2 yvar2 _vnwd ., ///
label("Curve 7, Variable 2")
EDIT en_atc72 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc73 _lft2 yvar3 _vnwd ., ///
label("Curve 7, Variable 3")
EDIT en_atc73 enx @ _en7wd ., ///
label("Value 7") ///
numonly
VARNAME vn_atc74 _lft2 yvar4 _vnwd ., ///
label("Curve 7, Variable 4")
EDIT en_atc74 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/*------------------ 8th curve --------------------- */
VARNAME vn_atc81 _lft2 yvar1 _vnwd ., ///
label("Curve 8, Variable 1")
EDIT en_atc81 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc82 _lft2 yvar2 _vnwd ., ///
label("Curve 8, Variable 2")
EDIT en_atc82 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc83 _lft2 yvar3 _vnwd ., ///
label("Curve 8, Variable 3")
EDIT en_atc83 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc84 _lft2 yvar4 _vnwd ., ///
label("Curve 8, Variable 4")
EDIT en_atc84 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ------------------- 9th curve ------------- */
VARNAME vn_atc91 _lft2 yvar1 _vnwd ., ///
label("Curve 9, Variable 1")
EDIT en_atc91 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc92 _lft2 yvar2 _vnwd ., ///
label("Curve 9, Variable 2")
EDIT en_atc92 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc93 _lft2 yvar3 _vnwd ., ///
label("Curve 9, Variable 3")
EDIT en_atc93 enx @ _en7wd ., ///
label("Value 3") ///
numonly
VARNAME vn_atc94 _lft2 yvar4 _vnwd ., ///
label("Curve 9, Variable 4")
EDIT en_atc94 enx @ _en7wd ., ///
label("Value 4") ///
numonly
/* ---------------- 10th curve ----------------- */
VARNAME vn_atc101 _lft2 yvar1 _vnwd ., ///
label("Curve 10, Variable 1")
EDIT en_atc101 enx @ _en7wd ., ///
label("Value 1") ///
numonly
VARNAME vn_atc102 _lft2 yvar2 _vnwd ., ///
label("Curve 10, Variable 2")
EDIT en_atc102 enx @ _en7wd ., ///
label("Value 2") ///
numonly
VARNAME vn_atc103 _lft2 yvar3 _vnwd ., ///
label("Curve 10, Variable 3")
EDIT en_atc103 enx @ _en7wd ., ///
label("Value3") ///
numonly
VARNAME vn_atc104 _lft2 yvar4 _vnwd ., ///
label("Curve 10, Variable 4")
EDIT en_atc104 enx @ _en7wd ., ///
label("Value 4") ///
numonly
END
SCRIPT rb_hazard_on
BEGIN
opt.gb_meth.show
opt.ck_width.show
opt.en_width.show
opt.tx_width.show
program kdenopts_width_check
opt.tx_kernel.show
opt.cb_kernel.show
END
SCRIPT rb_hazard_off
BEGIN
opt.gb_meth.hide
opt.ck_width.hide
opt.en_width.hide
opt.tx_width.hide
opt.tx_kernel.hide
opt.cb_kernel.hide
END
DIALOG opt, tabtitle("Options")
BEGIN
GROUPBOX gb_frailty _lft _top _iwd _ht2, ///
label("Frailty model")
RADIO rb_defaul _ilft _ss _cwd4_2 ., ///
label("Default") ///
option(NONE) ///
first
RADIO rb_alpha1 _lft4_2 @ @ ., ///
label("Conditional") ///
option(alpha1)
RADIO rb_uncondi _lft4_3 @ @ ., ///
label("Unconditional") ///
option(unconditional) ///
last
GROUPBOX gb_range _lft _xls _cwd1 _ht7, ///
label("Range of Analysis time")
DEFINE y @y
RADIO rb_norange _ilft _ss _inwd ., ///
label("Interval expanding from earliest to the latest time") ///
option(NONE) ///
first ///
clickon("script start_off")
RADIO rb_range @ _ss @ ., ///
label("User specified:") ///
option(range) ///
last ///
clickon("script start_on")
EDIT en_start _indent2 _ms _en7wd ., ///
label("Start") numonly
DEFINE x @x
TEXT tx_start _spsep @ _en7wd ., ///
label("Start")
EDIT en_end _lft3_2 @ _en7wd ., ///
label("End") numonly
TEXT tx_end _spsep @ 30 ., ///
label("End")
GROUPBOX gb_meth _lft2 y _cwd3_1 _ht9h, /*
*/ label("Smoothing options") /*
*/
CHECKBOX ck_width _indent _ss _inwd _ht2h, /*
*/ label(`"Override "optimal" width"') /*
*/ clickon("program kdenopts_width_check") /*
*/ clickoff("program kdenopts_width_check") /*
*/
DEFINE x @x
DEFINE cx @cx
EDIT en_width _indent2 _ms _en7wd ., /*
*/ label("Halfwidth of kernel") /*
*/ numonly /*
*/ option("width") /*
*/
TEXT tx_width _en7sep @ _en7r3bb ., /*
*/ label("Halfwidth of kernel") /*
*/
TEXT tx_kernel x _ls cx ., /*
*/ label("Kernel function:") /*
*/
COMBOBOX cb_kernel @ _ss @ ., /*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -