我正在运行一个 for 循环来选择不同的数据表并为选择的参数运行可变性图表。 该脚本正在为每个数据表创建不同的报告日志。 任何人都可以帮助我将所有报告期刊合并在一起。
Var_chart=函数({select_y,select_x},
当前数据表(dt_sub);
Rep_chart = 变异图(
Y( 评估 (select_y) ),
X( 评估 (select_x) ),
最大迭代器( 100 ),
转换限制(0.00000001),
数积分横坐标(128),
数字函数评估(65536),
分析类型(“选择最佳分析(EMS REML 贝叶斯)”),
标准差图 ( 0 ),
变异性总结报告(1),
历史西格玛 ( 0 ),
显示组均值 ( 1 ),
显示总均值 ( 1 ),
显示箱形图( 1 )
),
Rep_var_chart = Rep_chart << 报表;
Rep_var_chart << 分页符;
Rep_var_chart << 日志窗口;
Rep_Jrn << Append (Rep_var_chart);
关闭(dt_sub,不保存);
);
ma = 1;
col_name_list ={};
Rep_Jrn= New Window ("Report", << Journal);
对于 (l=1,l <= NItems (test_list), l++,
open_path1 = L_path1||test_list[l]||"_"||"Com"||".jmp";
dt_sub=打开(open_path1);
col_name_list[ma] = dt_sub << 获取列名();
//ma=ma+1;
New Window( "选择要分析的测试", <
V 列表框(
文本框(“选择Y,响应”),
para_select1 = 列表框( col_name_list[ma] ),
文本框(“选择 X,响应”),
para_select2 = 列表框( col_name_list[ma] ),
Button Box( "OK", test_list1 = para_select1 << 被选中;
test_list2 = para_select2 << 被选中 ),
);
);
打印(test_list1);
打印(test_list2);
Var_chart (test_list1,test_list2);
ma=ma+1;
//关闭(dt_sub,不保存);
);
这是一个能够将平台输出附加到日志的示例。显然,您没有正确指向日志或报告输出。
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
nw = New Window( "example", <<JOURNAL></JOURNAL>
我试过了,但它不起作用。 报错..
不是在访问或评估 'append' 时显示,append( Report( Rep_chart ) ) /*###*/
如果在你之后
ma = ma + 1;
你只需要添加
Rep_Jrn << append(report(Rep_chart));