36912_es-ES

liliconcom

Excel VBA para automatizar JMP

Hola amigos, estoy tratando de ejecutar el análisis de series de tiempo JMP desde excel VBA.

 

abajo están los códigos

 

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 como cadena
Set myjmp = CreateObject ("JMP.Application")
myjmp.Visible = True

Establecer jmp_doc = myjmp.OpenDocument ("C: \ Data_Doc1.xlsx")
Establecer jmp_BL = jmp_doc.GetDataTable

Dim TS As JMP.TimeSeries
Establecer TS = jmp_doc.CreateTimeSeries ()

Dim Cont As JMP.timeSeriesConstraintConstants
Invierno = tsConstraintZeroToOne

Dim Modd As JMP.timeSeriesModelConstants
Modd = tsModelWinters

TS.LaunchAddYSeries ("Venta")
TS.LaunchAddNumAutoCorrLags (25)
TS.Launch

Llame a TS.SmoothingModel (Modd, inviernos)

 

Final sub

 

me da un mensaje de error en JMP

operación desconocida
Modelo estacional necesita argumento numérico: períodos por temporada

 

No tuve la opción de ingresar períodos por temporada cuando estaba haciendo Call.TS.SmoothingModel (Modd, Winters)

 

Necesito tu ayuda para iluminarme lo que me falta.

 

Muchas gracias por adelantado.

 

Aclamaciones.

Kenny

 

Re: Excel VBA para automatizar JMP

No hay problema, muchas gracias por tu ayuda. 

Re: Excel VBA para automatizar JMP

Desafortunadamente, parece que el método de automatización de Smoothing Model no está actualizado con las opciones en Series temporales.  Me pondré en contacto con el Soporte técnico para informarles que se debe introducir el problema para corregirlo en una versión futura del producto.  La única solución alternativa que conozco para este caso es usar el método de automatización "EjecutarComando" para enviar JSL directamente a JMP para hacer el análisis.  Por lo tanto, podría hacer algo como a continuación (utilizando los datos de muestra "Raleigh Temps")

 

Dim DocX como JMP.Document
DocX = myJMP.OpenDocument ("c: \ program files \ sas \ jmppro \ 14 \ samples \ data \ Time Series \ Raleigh Temps.jmp")
myJMP.RunCommand ("Series de tiempo (X (: Número de mes), Y (: Temperatura), Método de inviernos (48, Cero a uno, Intervalo de predicción (0.8)))")

Re: Excel VBA para automatizar JMP

Series de tiempo(
Y (: Vender),
Número de períodos de pronóstico (12),
Método de inviernos (48, cero a uno, intervalos de confianza (0.8)),
SendToReport (
Envío(
{"Comparación de modelos"},
"2",
ScaleBox,
{Añadir línea de referencia (0, punteada, "negro")}
)
Envío(
{"Comparación de modelos"},
"8",
ScaleBox,
{Añadir línea de referencia (0, punteada, "negro")}
)
Envío(
{"Comparación de modelos"},
"3",
ScaleBox,
{Agregar línea de referencia (70, Sólido, "Azul"), Mostrar cuadrícula principal (1)}
)
Envío(
{"Comparación de modelos"},
"4",
ScaleBox,
{Añadir línea de referencia (0, punteada, "negro")}
)
Envío(
{"Comparación de modelos"},
"5",
ScaleBox,
{Añadir línea de referencia (0, punteada, "negro")}
)
)
);

 

 

Muchas gracias por la ayuda

Re: Excel VBA para automatizar JMP

¿Puede producir el análisis que desee utilizando los diálogos de la serie temporal de JMP? Si es así, puede publicar el script de un análisis exitoso aquí (informe Triángulo rojo-> Guardar script-> A la ventana de script).

 

Gracias,

Brian Corcoran

Desarrollo JMP