復發分析累積公式（原為JSL編碼）大家好
我想保存復發分析模型中每個原因等級的累積公式。以下是我的程式碼。
ra = Recurrence Analysis(
Y( :age ),
Label( :BOT ID ),
Cost( :Censor ),
Grouping( :Bot Series ),
Event Plot( 0 ),
Fit Model(
Scale Effects( :Bot Series ),
Shape Effects( :Bot Series ),
Run Model,
Model Type( "Proportional Intensity Poisson Process" )
)
);
// Get fitted recurrence model object
fit = Report(ra)[OutlineBox("Fitted Recurrence Model")] << Get Scriptable Object;
// Save intensity and cumulative formulas from fit
intensity_col = fit << Save Intensity Formula;
cumul_col = fit << Save Cumulative Formula (
If( :Part Grouping2 == "Caster Assy-Left"",
full_formula
)
);
I have Part Grouping2 as Cause and there are 13 levels in Part Grouping2, I want to generate fit value for each level in Part Grouping2. I tried some code but did not work. In the code Part Grouping2 == "Caster Assy-Left" . That is just trying to use the formular for one Part Grouping2 level Caster Assy-Left. There are 13 total levels and I want to automate this so I don't need to repeat 13 times.
Thanks.
</CODE></P>
<DIV>
</DIV>
</LINGO-BODY>
<LINGO-LABS id="lingo-labs-912116" slang="en-US" mode="UPDATE">
<LINGO-LABEL>自動化和腳本編寫</LINGO-LABEL>
</LINGO-LABS>
<LINGO-SUB id="lingo-sub-912154" slang="en-US" mode="CREATE" translate="no">回覆：JSL編碼</LINGO-SUB>
<LINGO-BODY id="lingo-body-912154" slang="en-US" mode="CREATE">
<P>你最終想要提取或實現什麼？你的腳本會為你產生公式，公式看起來大致如下：</P>
<P><SPAN class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><SPAN class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><SPAN class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><SPAN class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><SPAN class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><SPAN class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><span class="lia-inline-image-display-wrapper" image-alt="jthi_0-1762581573217.png" style="width: 999px;"><img src="https://us.v-cdn.net/6038925/uploads/images/86635iE72CED4B36533B07/jthi_0-1762581573217.png" role="button" title="jthi_0-1762581573217.png" alt="jthi_0-1762581573217.png" /></span></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></P>
<PRE><CODE class=" language-jsl">Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Reliability/Bladder Cancer.jmp");
ra = dt << Recurrence Analysis(
Y(:Age),
Cost(:Cost),
Grouping(:Treatment Group),
Label(:Patient Number),
Fit Model(
Scale Effects(:Treatment Group),
Shape Effects(:Treatment Group),
Run Model,
Model Type("Proportional Intensity Poisson Process")
)
);
fit = Report(ra)[Outline Box("Fitted Recurrence Model")] << Get Scriptable Object;
intensity_col = fit << Save Intensity Formula;
cumul_col = fit << Save Cumulative Formula;
回覆：JSL編碼你好，
謝謝你的回覆。
我想預測每台機器90天後的累積值（本研究中的維修次數）。我已經算出來了。
我只需要使用「fit = Report(ra)[OutlineBox("Fitted Recurrence Model Cause= Caster Assay-Left)] << Get Scriptable Object;」。這樣，「Cause ="」就會產生我想要的因果等級的公式。
為了實現對 13 個原因層級的自動化處理，我建立了一個原因列表，並使用 for 迴圈遍歷每個層級。
謝謝。
回覆：JSL編碼您使用的是「按列」嗎？循環可能並非必要，但這也不失為一個好辦法，只需確保您不會意外覆蓋任何列即可。
如果您使用的是「按列」功能，那麼廣播功能如果能滿足您的需求，也可能有效。
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Reliability/Bladder Cancer.jmp");
ra = dt << Recurrence Analysis(
Y(:Age),
Cost(:Cost),
Grouping(:Treatment Group),
Label(:Patient Number),
Fit Model(
Scale Effects(:Treatment Group),
Shape Effects(:Treatment Group),
Run Model,
Model Type("Proportional Intensity Poisson Process")
),
By(:Cause of Death)
);
fit = Report(ra[1])[Outline Box("Fitted Recurrence Model")] << Get Scriptable Object;
fit << Broadcast(Save Intensity Formula);
fit << Broadcast(Save Cumulative Formula);
