955429_ko-KR

liliconcom

JSL 코딩

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>자동화 및 스크립팅</LINGO-LABEL> </LINGO-LABS> 제목: JSL 코딩 관련

오류는 다음과 같습니다.

제목: JSL 코딩 관련

그 줄을 유지하셔도 됩니다

obj[i] << Close Window;

Try() 함수 안에 넣어 실행을 중단하는 것부터 시작합니다.

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

제목: JSL 코딩 관련

데이터 테이블로 만들기 대신 결합된 데이터 테이블 만들기를 사용해 보셨나요? 플랫폼 실행 내에서 그룹 옵션(그룹 반환(1))과 결합하여 목록 대신 단일 객체를 반환받을 수 있습니다.

다음은 이변량 분석을 사용하여 적합 평균 아래의 표 상자에서 결과를 얻는 예입니다.

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;