適切なループを構築するという課題やあ、
コーディングが初めてで、機能するスクリプトを構築するのに課題があります
dt = current data table();
//declaring and initializing variables//
lt_min = 1;
lt_max = 50;
RSquare_th = 0.9999;
count = 0;
//loop
while (count < 0.99999,
//calculate x for each y value
dt << New Column ("x", Numeric, formula(:y/ (:y + :avg_num)));
//plot bivariate
biv = dt << Bivariate(
Y( :x ),
X( :average_temp),
Fit Line( {Line Color( {212, 73, 88} )} ));
Bivariate_report = biv << report;
pt = Bivariate_report [Table Box(1)];
pt << Make Combined Data Table();
pt = Bivariate_report [Table Box(3)];
pt << Make Combined Data Table();
);
//get rsquare
rsquare << send (Bivariate Fit);
rsquare << send(Get Gen RSquare Test);
//check Rsq
if (rsquare < RSquare_th,
//increment light by 1
lt_min = lt_min +1,
count = count +1,
//update data table
dt << New Column("light", Numeric, formula(lt_min)),
//exit loop if RSQ >= threshold
print("Search Completed. RSQ >= threshold"),
);
自動化とスクリプト作成Re: 適切なループを構築するという課題エディターで Ctrl-M を使用して、JSL をフォーマットします。
dt = Current Data Table();
//declaring and initializing variables//
lt_min = 1;
lt_max = 50;
RSquare_th = 0.9999;
count = 0;
//loop
While( count < 0.99999,
//calculate x for each y value
dt << New Column( "x", Numeric, formula( :y / (:y + :avg_num) ) );
//plot bivariate
biv = dt << Bivariate(
Y( :x ),
X( :average_temp ),
Fit Line( {Line Color( {212, 73, 88} )} )
);
Bivariate_report = biv << report;
pt = Bivariate_report[Table Box( 1 )];
pt << Make Combined Data Table();
pt = Bivariate_report[Table Box( 3 )];
pt << Make Combined Data Table();
);
//get rsquare
rsquare << Send( Bivariate Fit );
rsquare << Send( Get Gen RSquare Test );
//check Rsq
If(
rsquare < RSquare_th,
//increment light by 1
lt_min = lt_min + 1,
count = count + 1,
//update data table
dt << New Column( "light", Numeric, formula( lt_min ) ),
//exit loop if RSQ >= threshold
Print( "Search Completed. RSQ >= threshold" ),
);
インデントは、ループが実行しているコードを理解するのに役立ちます。 特に、count=count+1 はループ内にないため、終了しないことに注意してください。
編集: if ステートメントにも作業が必要です。を参照してください。秘密の場合
