Hi: See: from the Help menu, Books, Scripting Guide, Chapter 14, OLE Automation.    refers: Automation Reference.pdf in JMP/10/documentation.   Several examples right there to get one started.  It is easier than you think.  Many platforms can be directly controled, but the easiest thing to do is as you mentioned - just use VBA to kick off you JMP script. See also JMP/10/Help/VBDocumentation.chm for details, for example RUNJSLFile(Filename as String) Once you get started, you'll find lots of applications come to mind. Good Luck & Best Regards, -Matt ... View more

See also the JMP White Paper by Jose G. Ramirez Statistical Intervals:Confidenec, Prediction and Enclosure http://www.sas.com/resources/whitepaper/wo_4430.pdf Best, -Matt ... View more

Hi: Perhaps: dt = Open("$SAMPLE_DATA/RELIABILITY/Resistor.jmp"); dt << Distribution(           Continuous Distribution(                Column( : Percent Increase ),                    // note ":" and "P" in Percent Increase should be not separated by a space                Tolerance Interval( Alpha( 0.95 ), Proportion( 0.9 ) )           ) ); Best regards, -Matt ... View more

Hi: Perhaps one solution might fit your needs. JMP scripts can be configured to "Auto-Submit", that is, execute instead of open in a script editor when double-clicked or opened from the OS. "//!" (double backslash, exclamation point) on the very first line of the script will cause it to run rather than open.  Then as your script above, in Perl, Python, R, VBscript, etc. one can simply open the file rather than explicitly first opening JMP via OLE.  See Chapter 3 of the JMP Scripting Guide.  See also the JMP Automation help file.  I am not sure what you might be referring to of doing the same thing via an .EXE file.  Do you want a compiled program to call/execute your JMP script? Best regards, -Matt ... View more

Hi: Here is one roundabout way - using the R functions in JMP 9 and the on Windoze via COM and the RDCOMClient package: // datatable:   /  File Save As() - (saves values and not formulas) - save as a "c:/temp/.xls" Insert formula in a colum in Excel via R and RDCOMClient // http://www.omegahat.org/RDCOMClient/ Clear Log(); R Submit("\[      library(RDCOMClient);      xcel <<- COMCreate("EXCEL.Application")      xcel[["Visible"]] <- TRUE      xcel[["Workbooks"]]$Open("C:/temp/test.xls");      sh <- xcel$ActiveSheet()      r <- sh$Range("D1")      r[["Value"]] = "Formula"      for(i in 2:51) {            r <- sh$Range(sh$Cells(i, 4),sh$Cells(i, 4))           # insert your desired foumula here            r[["Formula"]] <- paste("=Sum(A",i,":B",i,")",sep="")            } ]\"); // now close R R Term(); Best regards, -Matt ... View more

Hi Maltman: The allpurpose RunCommand() function will let one easily do anthing you like interactively directly in JMP,... and then if you capture the script, it is easy to submit that from the automation side, from VBA, or Perl, of Python, or R, etc... Best, -Matt Public Sub test() 'Initialize JMP Dim MyJMP, JMPDoc, DT, DT2, WidthTable, FrameBox Set MyJMP = CreateObject("JMP.Application") MyJMP.Visible = True Set JMPDoc = MyJMP.OpenDocument("C:/temp/Big Class.jmp") 'Convert document to datatable Set DT = JMPDoc.GetDataTable() 'Select the width data (High and Low) DT.SelectRowsWhere "age", rowSelectEquals, rowSelectExtendCurrent, "12" DT.SelectRowsWhere "age", rowSelectEquals, rowSelectExtendCurrent, "13" Set WidthTable = DT.Subset() WidthTable.ColorByColumn ("name") WidthTable.MarkerByColumn ("sex") '************************* 'Create Bivariate Chart '************************* Dim str As String str = "Bivariate( " _     & "Y( :weight ), " _     & "X( :height ), " _     & "Fit Line( {Line Color( {213, 72, 87} )} ), " _     & " SendToReport( " _     & "     Dispatch( " _     & "       {}, " _     & "     ""Bivar Plot"", " _     & "      FrameBox, " _     & "{Marker Size( 4 ), Row Legend( " _     & "name, Color( 1 ), Color Theme( ""JMP Default"" ), " _     & "Marker( 0 ), " _     & "Marker Theme(""""), " _     & "Continuous Scale( 0 ), " _     & "Reverse Scale( 0 ), " _     & "Excluded Rows(0)" _     & "            )}" _     & "    )" _     & "  )" _     & ");" Debug.Print (str)    MyJMP.RunCommand (str) End Sub ... View more

Hi: Here is one way to modify the pdf's properties after creating it - via Perl and MS COM. The Perl script can be kicked directly from JSL Best regards, -Matt /* #------------------------------------------------------------------------------- # References #------------------------------------------------------------------------------- # NESUG 2010 Multiple Methods in JMP® to Interact with R # http://www.nesug.org/Proceedings/nesug10/po/po06.pdf # NESUG 2009 Automating JMP via Scripting tools and MS Windows COM # http://www.nesug.org/Proceedings/nesug09/ap/ap09.pdf */ // open existing journal jrn = Open("C:\Documents and Settings\mjflynn\My Documents\frb.jrn"); wait(1); // save as pdf jrn << Save pdf("C:\Documents and Settings\mjflynn\My Documents\frb.pdf" ); // modfiy saved pdf via Perl SaveTextFile( "C:\temp\deleteme.pl","      # http://search.cpan.org/~ssimms/PDF-API2-2.019/lib/PDF/API2.pm      #!C:/Perl10/bin/perl.exe      use strict;      use warnings;      use PDF::API2;      # Create a blank PDF file      $pdf = PDF::API2->new();      # Open an existing PDF file      $pdf = PDF::API2->open('frb.pdf');      # Set the default print setting for page scaling to none.      $pdf->preferences(-printscalingnone)      # Add a blank page      $page = $pdf->page();      # Retrieve an existing page      $page = $pdf->openpage($page_number);      # Set the page size      $page->mediabox('Letter');      # Add a built-in font to the PDF      $font = $pdf->corefont('Helvetica-Bold');      # Add an external TTF font to the PDF      #$font = $pdf->ttfont('/path/to/font.ttf');      # Add some text to the page      $text = $page->text();      $text->font($font, 20);      $text->translate(200, 700);      $text->text('Hello World!');      # Save the PDF      $pdf->saveas('C:/temp/new.pdf'); "); SaveTextFile( "C:\temp\deleteme.bat",                 "C:\Perl10\bin\perl C:\temp\deleteme.pl"     ); Open( "C:\temp\deleteme.bat" ); ... View more

Hi: MS gave us a clue.  From the R prompt: >library(VGAM) >rgengamma and >?rgengamma reveals that the rgengamma returns a modified base R rgamma function y = rgamma(n, k) scale*y^(1/d) In JMP, we can also use a modification of the basic "Random Gamma" function, e.g. Current Data Table() << New Column( "JMP GenGamma",      Formula( 1*Random Gamma( 1 )^(1/2) ) );      Current Data Table() << Run Formulas; (Of course, one will have to fiddle with the parameters to get a match) Matching random number generators, anyone - perhaps by fixing seeds? Best regards, -Matt Best ... View more

Hmmm... Sounds like you need something like: "newdt = tb << Make Into Data Table(invisible);" ... View more

Hi: Show Properties(tb); // reveals tb << Make Into Data Table(); Best, -Matt ... View more

Hi: A simple example: dt = Open("SAMPLE_DATA/Big Class.jmp"); coldlg = column dialog("Test R Connection",           response = collist("Var", data type(numeric), min col(1) ) ); If(coldlg["buttun"]==-1, throw("User Canceled")); colnames = coldlg["response"]; xmat = []; for(i=1, i<=nitems(colnames), i++,      xmat = xmat || (column(colnames) << get as matrix ); ); R Init(); R Send(xmat); R Submit("      mean_x <- mean(xmat); "); mean_x = R Get(mean_x); R Term();               // done with R for now; Show(mean_x); Caption( "R Calculated Mean = " || char(eval(mean_x)) ); // For more dialog examples - see Murphy and Lucas, "Jump into JMP Scripting" - great book. Best regards, -Matt ... View more

Hi: More generally, one can determine what commands are available for objects via the "Show Properties( object )" command. Including some that are scripting only.  More examples on page 20 of the => Help, Books, Scripting Guide. obj = Fit Model(....); Show Properties( obj );               // displays many available object commands Best regards, -Matt ... View more

Hi: see C:\Program Files\SAS\JMP\9\Support Files English\Help\VBDocumentation.chm Best Regards -Matt ... View more

Hi: Perhaps: list1 = {1,2,3,4}; list2 = {1,2,.,4}; n1 = if(N Missing(list1)>0,"True","False"); n2 = if(N Missing(list2)>0,"True","False"); Best regards, -Matt ... View more

Hi: Here is one way - build a string which is then submitted to SAS - I am sure there are others. Best regards, -Matt <! nw = New Window( "GET DATA",      <<Modal,      V List Box(      Text Box("Enter YRQ"),      YRQ = Number Edit Box( 101 ),      Button Box( "OK"),      Button Box( "Cancel") )); dyrq = yrq << get; //<-- This is what I want to pass to SAS sasconn = sas connect();     // local PC SAS; saspgm = Eval Insert("\[              %let yrq = ^dyrq^;      * insert value of JMP variable;      %put *** yrq=&yrq.;     ]\"); print(saspgm); rc = SAS Submit( saspgm,      GetSASLog(True) ); -> ... View more

Hi Chivukula: Is this what you are looking for? Best, -Matt ... View more

Perhaps you were thinking something like: ... View more

Hi David: If it is truly OLS you are interested in: Best, -Matt ... View more

Hi: I believe that is just of question of interpretation - kind of like a flexible floor() function with a list: It is correct - returning: (95) is the greatest x value in the list that is less than or equal to the x (97) specified as the first argument. Best, -Matt ... View more

Hi: Here is a first try that examines correlations among values and trys a little clustering. One can treet the problem like text mining. Once you have your "document by term" matrix, there are many ways to examine relationships among values. Best regards, -MattF ... View more

Hi Thomas: Here is an example - it requires re-arranging your data a little bit. menu: Graph, Chart (the key is two categories, here: (date and field)), If you do it interactively, first result is a paired-bar graph - transformed via the Stack Bars option under the red-triangle. e.g. date field Amt 01/05/2011 A 211 01/05/2011 B 213 02/05/2011 A 500 02/05/2011 B 633 ... View more