JMPを自動化するExcel VBAこんにちは、Excel VBA から JMP 時系列分析を実行しようとしています。
以下はコードです
サブ LData()
JMP.Application として myjmp を暗くする
jmp_doc を JMP.Document として暗くする
jmp_BL を JMP.DataTable として暗くする
Dim jmp_dt As JMP.DataTable
Dim jmp_dtFinal As JMP.DataTable
Dim jmpstr を文字列として
myjmp = CreateObject("JMP.Application") を設定します。
myjmp.Visible = True
Set jmp_doc = myjmp.OpenDocument("C:\Data_Doc1.xlsx")
jmp_BL = jmp_doc.GetDataTable を設定します。
Dim TS As JMP.TimeSeries
TS = jmp_doc.CreateTimeSeries() を設定します。
Dim Cont As JMP.timeSeriesConstraintConstants
冬 = tsConstraintZeroToOne
Dim Modd As JMP.timeSeriesModelConstants
Modd = tsModelWinters
TS.LaunchAddYSeries (「販売」)
TS.LaunchAddNumAutoCorrLags (25)
TS.Launch
TS.SmoothingModel(Modd, Winters) を呼び出す
サブ終了
JMPでエラーメッセージが表示されます
不明な操作
季節モデルには数値引数が必要です: 季節ごとの期間
Call.TS.SmoothingModel(Modd,Winters) を実行していたときに、シーズンごとに期間を入力するオプションがありませんでした
私が欠けているものを教えてくれるあなたの助けが必要です
よろしくお願いします。
乾杯。
ケニー
Re: JMPを自動化するExcel VBA問題ありません。ご協力ありがとうございます。
Re: JMPを自動化するExcel VBA残念ながら、平滑化モデルの自動化方法は、時系列のオプションでは古くなっているようです。 テクニカル サポートに連絡して、製品の将来のバージョンでこれを修正するために問題を入力する必要があることを伝えます。 このケースで私が認識している唯一の回避策は、オートメーションの「RunCommand」メソッドを使用して JSL を直接 JMP に送信し、分析を行うことです。 したがって、以下のようなことができます (サンプル データ "Raleigh Temps" を使用)。
DocX を JMP.Document として暗くする
DocX = myJMP.OpenDocument("c:\program files\sas\jmppro\14\samples\data\Time Series\Raleigh Temps.jmp")
myJMP.RunCommand("Time Series(X( :Month Number ),Y( :Temperature ),Winters Method( 48, Zero to One, Prediction Interval( 0.8 ) ))")
Re: JMPを自動化するExcel VBA時系列(
Y( :売り),
予測期間の数( 12 ),
ウィンターズ法 (48、ゼロから 1、信頼区間 (0.8))、
SendToReport(
急送（
{"モデル比較"},
"2",
スケールボックス、
{参照線を追加( 0, 破線, "黒" )}
)、
急送（
{"モデル比較"},
"8"、
スケールボックス、
{参照線を追加( 0, 破線, "黒" )}
)、
急送（
{"モデル比較"},
"3"、
スケールボックス、
{基準線を追加( 70、実線、「青」)、主グリッドを表示( 1 )}
)、
急送（
{"モデル比較"},
"4",
スケールボックス、
{参照線を追加( 0, 破線, "黒" )}
)、
急送（
{"モデル比較"},
"5"、
スケールボックス、
{参照線を追加( 0, 破線, "黒" )}
)
)
);
助けてくれてどうもありがとう
Re: JMPを自動化するExcel VBAJMP の時系列ダイアログを使用して、希望する分析を作成できますか? もしそうなら、成功した分析からのスクリプトをここに投稿できますか (赤い三角形 -> スクリプトの保存 -> スクリプト ウィンドウへ)。
ありがとう、
ブライアン・コーコラン
JMP開発
