導出變異圖表的方差成分錶你好，
我不知道如何使用 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;
