955429_de-DE

liliconcom

JSL-Codierung

Dear JMP community
I wrote a code the loop through all Site values (29 total) to extract fail probability and part_actions (Estimate Probability( 1 ), Estimate Quantile( 1 )) to one table. It is calculating fail probability and part_actions at 0.15 percent fail from a Weibull analysis. Following is the code. It keeps failing. Could you help me debug?

Names Default To Here( 1 );

dt = Data Table( "WeiBull Random Sampling_062606backup2" );

siteSummary = dt << Summary( Group( :Site ), N Rows( 1 ), Freq( "None" ) );
siteList = Column( siteSummary, 1 ) << get values;
Close( siteSummary, NoSave );

obj = dt << Life Distribution(
    Perspective( Compare Groups ),
    Y( :part_action ),
    Grouping( :R_ind ),
    Censor( :follow_censor ),
    Censor Code( 0 ),
    Label( :BOT ID ),
    Confidence Interval Method( Wald ),
    Interval Type( Pointwise ),
    Fit Distribution( "Weibull" ),
    Select Distribution( Distribution, Weibull ),
    Select Scale( Nonparametric ),
    Tabbed Report( 0 ),
    Show Quantile Functions( 1 ),
    Select Distribution( Quantile, Weibull ),
    Estimate Probability( 1 ),
    Estimate Probability( Compute( [150000] ) ),
    Estimate Quantile( 1 ),
    Estimate Quantile( Compute( [0.15] ) ),
    SendToEmbeddedScriptable(
        Dispatch( {"Individual Group", "Life Distribution R_ind=no"},
            {Y( :part_action ), Censor( :follow_censor ), Censor Code( 0 ),
            Label( :BOT ID ), <
     <FIT weibull=""></FIT>

<LINGO-LABS id="lingo-labs-955429" slang="en-US" mode="CREATE"> <LINGO-LABEL>Automatisierung und Skripterstellung</LINGO-LABEL> </LINGO-LABS> Betreff: JSL-Codierung

Der Fehler lautet wie folgt:

Betreff: JSL-Codierung

Sie können die Linie beibehalten

obj[i] << Close Window;

durch Abbrechen des Programmlaufs durch Platzieren in einer Try()-Funktion.

try(obj[i] << Close Window);

Betreff: JSL-Codierung

Haben Sie versucht, anstelle von „In Datentabelle umwandeln“ die Option „Kombinierte Datentabelle erstellen“ zu verwenden? Sie könnten dies mit „Gruppenoptionen(Gruppe(1) zurückgeben)“ beim Plattformstart kombinieren, um ein einzelnes Objekt anstelle einer Liste zurückzugeben.

Hier ist ein Beispiel für die Verwendung von bivariaten Analysen und das Abrufen der Ergebnisse aus dem Tabellenfeld unter „Mittelwert anpassen“.

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

obj = dt << Bivariate(
	Y(:weight),
	X(:height),
	Fit Mean({Line Color({230, 159, 0})}),
	By(:age),
	SendToReport(Dispatch({}, "Fit Mean ", OutlineBox, {Close(0)})),
	Group Options(Return Group(1))
);

res = Report(obj)[OutlineBox("Fit Mean "), Table Box(1)] << Make Combined Data Table;
obj << Close Window;