79481_zh-TW

liliconcom

用於保存時間序列中列的 JSL 腳本

你好，

如果我想為模型比較表中顯示的前 2 個模型“儲存列”，我想知道如何在 JSL 腳本中編寫。 前2個型號的型號對照表請見附件1。 接下來，附件 2 顯示了我希望它打開的「儲存列」。 我想將上面的兩個過程都寫在腳本中。 有人可以告訴我嗎？

回覆：用於儲存時間序列列的 JSL 腳本

我遇到了類似的問題，但我沒有使用許多傳輸函數來排序並僅保存某些傳輸函數，而是對來源資料表中的幾列執行 ARIMA 分析。 這會為每一列產生一個模型。 然後，我想從每列的 Model:AR(1) 熱按鈕“儲存列”，並透過腳本執行此操作。

 

我嘗試過 obj << Save Columns 方法，該方法有效，但僅適用於完成 ARIMA 的最後一列。 我需要為每一個人做這件事。

 

不幸的是，當我手動儲存列時，新資料表沒有附帶「來源」腳本，因此很難弄清楚如何使用 JSL 來執行此操作。

 

我真正想要的只是模型的預測列。

 

對此的任何想法/回饋都會有幫助。

 

謝謝！

 

回覆：用於儲存時間序列列的 JSL 腳本

當然。 下面是我的解決方案：

我把所有的TFA當作臨時清單放到了main。 然後將輸出結果放入資料表中。 由於我只想保存表中出現的第一個 TFA 的列，因此我使用該 TFA 編號在我在主文件中創建的臨時列表中進行搜索，並將其保存到保存列中。

main = {};
obj = dt << Time Series(
 X( :Time ),
 Y( :Shipment ),
 Input List( :Capacity ),
 Number of Autocorrelation Lags( 20 ),
 Number of Forecast Periods( 11 ),
 Input Series( :Capacity, Number of Autocorrelation Lags( 20 ), Number of Forecast Periods( 11 ) )
);
temp = obj << Transfer Function(
 Order( 0, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );
temp = obj << Transfer Function(
 Order( 1, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 1, 1, 0 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );
&nbsp;
temp = obj << Transfer Function(
 Order( 0, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 0, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 0, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 0 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 1, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 0, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 1, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 0 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 0 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 1, 1, 2 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 2, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 0, 1, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 1, 2 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 2, 0, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 0, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 2, 0, 0 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 0, 2 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 1, 0, 0 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

temp = obj << Transfer Function(
 Order( 2, 1, 1 ),
 Seasonal( 0, 0, 0, 12 ),
 :Capacity( Order( 0, 0, 1 ), Seasonal( 0, 0, 0, 12 ), Lag( 0 ) ),
 Number of Forecast Periods( 11 ),

);
Insert Into( main, temp );

datatable = Report( obj )[Table Box( 5 )] << make into data table;
datatable << Set Name( "table1" );
datatable << New Column( "Model2",
 Numeric,
 Continuous,
 formula( Num( Regex( :Model, "\D", "", GLOBALREPLACE ) ) )
);
maxvalue = datatable[1, 11];
dt2 = main[maxvalue] << Save Columns;
dt2 << Set Name( "Result1" );
Column( dt2, 4 ) << Set Name( "Predicted_Shipment_1" );

 

回覆：用於儲存時間序列列的 JSL 腳本

@雷吉娜洪,

我很高興您自己解決了這個問題。您是否會發布您的解決方案，以便所有用戶社群都可以看到您是如何解決的？

回覆：用於儲存時間序列列的 JSL 腳本

嗨，姆夏普，

 

感謝您的回复，但這不是我想要的。 沒關係，因為我已經找到了解決方案。

多謝。

 

回覆：用於儲存時間序列列的 JSL 腳本

只需將 << 儲存列命令傳送到模型物件即可。這是腳本索引中的範例。希望能幫助你！

 

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Time Series/Steel Shipments.jmp" );
obj = Time Series( Y( :Steel Shipments ) );
obj2 = obj << Arima( 1, 0, 0 );
obj2 << Save Columns;