导出变异图表的方差成分表你好，
我不知道如何使用 jsl 代码使用变异图表的数据输出填充新表。 我加载一个表输入 Excel 文件，运行一个双变量，然后运行一个变异性图表。但是我无法获取输出中报告的表的值，并用该数据填充一个新表。下面我报告了执行分析的代码。
谢谢你的任何建议，
西蒙娜
dt = Open("myfile.xlsx",Worksheets("Sheet1"));
dt << 新列( "LN 理论相对效力 %",
数字，
“连续的”，
格式( "固定十进制", 12, 3 ),
公式( LnZ( :理论相对效力 % ) )
）；
dt << 新列( "LN 结果 (RP%)",
数字，
“连续的”，
格式( "固定十进制", 12, 3 ),
公式( LnZ( :Name( "结果 (RP%)" ) ) ),
设置选定
）；
双变量（
Y( :名称( "LN 结果 (RP%)" ) ),
X( :LN 理论相对效力 % ),
拟合线( {线条颜色( {213, 72, 87} )} )
）；
dt1 = 变异图(
Y( :名称( "LN 结果 (RP%)" ) ),
X（：试验），
模型（“嵌套”），
最大迭代次数( 100 ),
转化限制( 0.00000001 ),
数积分横坐标( 128 ),
数字函数评估( 65536 ),
分析类型（“选择最佳分析（EMS REML 贝叶斯）”），
标准差图表( 1 ),
方差分量( 1 ),
By( :LN 理论相对效力 % )
）；
回复：导出变异图表的方差成分表非常感谢吉姆...这正是我所需要的..:-)
谢谢
谢谢
...
谢谢
西蒙娜回复：导出变异图表的方差成分表您的问题是您在变异图表中使用了“By”元素。完成此操作后，将为每个“按”组创建一个单独的树结构。因此，您需要引用要引用的“By”组。我假设您想要输出所有“按”组的所有方差分析表，同样，输出所有方差分量。因此，您不想“制作数据表”，而是“制作组合数据表”。这是我相信您会想要的代码修改：
dtANOVA = report(var[1])["Analysis of Variance"][TableBox(1)] << Make Combined Data Table;
dtVarComp = report(var[1])["Variance Components"][TableBox(1)] << Make Combined Data Table;
回复：导出变异图表的方差成分表亲爱的吉姆，
我尝试了您编写的命令，但在使用命令“Make into Data Table”时总是出现错误。 在日志文件中我发现：
"Send 在访问或评估 'Send' 时需要可编写脚本的对象，Report( var )["方差分析"][Table Box( 1 )] << /*###*/
制作成数据表/*###*/"
实际上，方差分量报告创建了 5 个表。我感兴趣的表的名称是：TableBox(2)，表框(4)、表框(6)、表框(8)、表框(10)。
我尝试更改上面列出的表名称之一中的“Table Box( 1 )”，但我总是遇到同样的错误..我在谷歌上搜索了很多，但没有找到解决方案..并且日志信息非常差..
我在一个word文件中附加了脚本和日志..如果你能给我一些关于如何修复这个错误的其他建议..
非常感谢
回复：导出变异图表的方差成分表您是否想问如何将变异成分分析创建的数据表保存回 Excel 中？
如果是的话，那么保存创建的数据表可以另存为
dtVarComp << Save As("Path to folder\Name.xls");
回复：导出变异图表的方差成分表亲爱的吉姆，
谢谢你的建议。 我试图找到如何将变量“dtVarComp”的数据写入“脚本指南”中的excel文件......但我真的不明白。 我认为我必须先创建一个新表然后将其导出，但是如何填充行和列？我如何访问的元素“dtVarComp”变量？
这很令人沮丧，但我会找到解决方案！
谢谢
西蒙娜
回复：导出变异图表的方差成分表下面是脚本的修改版本，它将输出我认为您想要输出的表格？我已在脚本中添加了有关更改内容及其目的的评论。有关如何访问输出的报告树结构的文档可以在
帮助==>书籍==>脚本指南
如果你想进入JSL，这是必要的阅读
dt = Open( "myfile.xlsx", Worksheets( "Sheet1" ) );
dt << New Column( "LN theoretical Relative Potency %",
Numeric,
"Continuous",
Format( "Fixed Dec", 12, 3 ),
Formula( LnZ( :Theoretical Relative Potency % ) )
);
dt << New Column( "LN Result (RP%)",
Numeric,
"Continuous",
Format( "Fixed Dec", 12, 3 ),
Formula( LnZ( :Name( "Result (RP%)" ) ) ),
Set Selected
);
Bivariate(
Y( :Name( "LN Result (RP%)" ) ),
X( :LN theoretical Relative Potency % ),
Fit Line( {Line Color( {213, 72, 87} )} )
);
// Create a Handle/Pointer to the output display so it can be
// referenced
var = dt << Variability Chart(
Y( :Name( "LN Result (RP%)" ) ),
X( :Trial ),
Model( "Nested" ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Std Dev Chart( 1 ),
Variance Components( 1 ),
By( :LN theoretical Relative Potency % )
);
// Point to the display report tables you want to generate the new data tables from
// and sent the Make into Data Table message to each of them. Note the dtANOVA and
// dtVarComp, will become the pointers to the newly created data tables
dtANOVA = report(var)["Analysis of Variance"][TableBox(1)] << Make into Data Table;
dtVarComp = report(var)["Variance Components"][TableBox(1)] << Make into Data Table;
