turn on suggestions

Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.

Showing results for

- JMP User Community
- :
- Discussions
- :
- Excel VBA to automate JMP

Topic Options

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 8, 2017 5:42 AM
(919 views)

Hi Folks, i am trying to run JMP time series analysis from excel VBA.

below is the codes

Sub LData()

Dim myjmp As JMP.Application

Dim jmp_doc As JMP.Document

Dim jmp_BL As JMP.DataTable

Dim jmp_dt As JMP.DataTable

Dim jmp_dtFinal As JMP.DataTable

Dim jmpstr As String

Set myjmp = CreateObject("JMP.Application")

myjmp.Visible = True

Set jmp_doc = myjmp.OpenDocument("C:\Data_Doc1.xlsx")

Set jmp_BL = jmp_doc.GetDataTable

Dim TS As JMP.TimeSeries

Set TS = jmp_doc.CreateTimeSeries()

Dim Cont As JMP.timeSeriesConstraintConstants

Winter = tsConstraintZeroToOne

Dim Modd As JMP.timeSeriesModelConstants

Modd = tsModelWinters

TS.LaunchAddYSeries ("Sell")

TS.LaunchAddNumAutoCorrLags (25)

TS.Launch

Call TS.SmoothingModel(Modd, Winters)

End sub

it gives me a error message in JMP

unknown operation

Seasonal model needs numeric argument: periods per season

i did not have the option to key in periods per season when i was doing up Call.TS.SmoothingModel(Modd,Winters)

need your help to enlighten me what i am missing

Thanks a lot in advance.

Cheers.

Kenny

1 ACCEPTED SOLUTION

Accepted Solutions

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 9, 2017 5:57 AM
(1702 views)

Solution

Unfortunately, it looks like the automation method for Smoothing Model is out of date with the options in Time Series. I will contact Tech Support to let them know that the issue should be entered to correct this in a future version of the product. The only workaround that I am aware of for this case is to use the automation "RunCommand" method to submit JSL directly to JMP to do the analysis. So, you could do something like below (using the sample data "Raleigh Temps")

Dim DocX As 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 ) ))")

4 REPLIES

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 8, 2017 10:15 AM
(897 views)

Can you produce the analysis that you desire using JMP's Time Series dialogs? If so, can you post the script from a successful analysis here (report Red Triangle->Save Script->To Script Window).

Thanks,

Brian Corcoran

JMP Development

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 8, 2017 5:33 PM
(882 views)

Time Series(

Y( :Sell ),

Number of Forecast Periods( 12 ),

Winters Method( 48, Zero to One, Confidence Intervals( 0.8 ) ),

SendToReport(

Dispatch(

{"Model Comparison"},

"2",

ScaleBox,

{Add Ref Line( 0, Dashed, "Black" )}

),

Dispatch(

{"Model Comparison"},

"8",

ScaleBox,

{Add Ref Line( 0, Dashed, "Black" )}

),

Dispatch(

{"Model Comparison"},

"3",

ScaleBox,

{Add Ref Line( 70, Solid, "Blue" ), Show Major Grid( 1 )}

),

Dispatch(

{"Model Comparison"},

"4",

ScaleBox,

{Add Ref Line( 0, Dashed, "Black" )}

),

Dispatch(

{"Model Comparison"},

"5",

ScaleBox,

{Add Ref Line( 0, Dashed, "Black" )}

)

)

);

thanks a lot for the help

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 9, 2017 5:57 AM
(1703 views)

Unfortunately, it looks like the automation method for Smoothing Model is out of date with the options in Time Series. I will contact Tech Support to let them know that the issue should be entered to correct this in a future version of the product. The only workaround that I am aware of for this case is to use the automation "RunCommand" method to submit JSL directly to JMP to do the analysis. So, you could do something like below (using the sample data "Raleigh Temps")

Dim DocX As 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 ) ))")

- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Get Direct Link
- Email to a Friend
- Report Inappropriate Content

Mar 9, 2017 6:02 AM
(850 views)