79481_it-IT

liliconcom

Script JSL per salvare la colonna nelle serie temporali

Ciao,

Vorrei sapere come scrivere nello script JSL se voglio "salvare colonne" per i primi 2 modelli mostrati nella tabella di confronto dei modelli. Facendo riferimento all'allegato 1 è mostrata la tabella di confronto dei modelli per i primi 2 modelli. Successivamente, nell'allegato 2 mostra le "colonne di salvataggio" che voglio che apra. Voglio scrivere entrambe le procedure sopra nello script. C'è qualcuno che può mostrarmi?

Re: Script JSL per salvare la colonna nelle serie temporali

Sto riscontrando un problema simile, ma invece di avere molte funzioni di trasferimento per ordinare e salvare solo alcune, eseguo l'analisi ARIMA su diverse colonne nella mia tabella dei dati di origine. Questo genera un modello per ogni colonna. Quindi voglio "salvare colonne" dal pulsante di scelta rapida Model:AR(1) per ciascuna colonna e farlo tramite script.

 

Ho provato l'approccio obj << Salva colonne, che funziona, ma solo per l'ultima colonna in cui è stato eseguito ARIMA. Devo farlo per ciascuno.

 

Sfortunatamente, quando salvo le colonne manualmente, la nuova tabella di dati non viene fornita con uno script "sorgente", quindi è difficile capire come farlo con JSL.

 

Quello che sto veramente cercando è solo la colonna prevista dal modello.

 

Qualsiasi pensiero/feedback su questo aiuterebbe.

 

Grazie!

 

Re: Script JSL per salvare la colonna nelle serie temporali

Certo. Di seguito è la mia soluzione:

Ho messo tutto il TFA come elenco temporaneo nel main. Quindi trasforma il risultato di output in una tabella di dati. Dal momento che voglio solo salvare la colonna per il primo TFA che è apparso nella tabella, utilizzo quel numero TFA per cercare indietro nell'elenco temporaneo che ho creato nella colonna principale e salvarlo nella colonna di salvataggio.

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" );

 

Re: Script JSL per salvare la colonna nelle serie temporali

@ReginaHong ,

Sono molto contento che tu abbia risolto il problema da solo.Pubblicheresti la tua soluzione in modo che tutta la comunità di utenti possa vedere come l'hai risolta?

Re: Script JSL per salvare la colonna nelle serie temporali

Ciao msharp,

 

Grazie per la risposta, ma non è quello che voglio. Va bene perché ho trovato la soluzione per questo.

Molte grazie.

 

Re: Script JSL per salvare la colonna nelle serie temporali

Basta inviare il comando << Salva colonne all'oggetto del modello.Ecco l'esempio nell'indice di scripting.Spero che sia d'aiuto!

 

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;