About melaniedrake

melaniedrake · ‎03-13-2020

You can create your own color theme and then apply it to Value Colors either in the Col Info dialog or using the Set Property message in JSL. Here is the help on creating a color theme using JSL: https://www.jmp.com/support/help/en/15.1/#page/jmp/graphics-functions.shtml#ww4847088 Look for Add Color Theme. The Scripting Index also has information on color themes and column properties. I hope this is what you are looking for, Melanie

melaniedrake · ‎10-04-2019

I created a data table like what you described and ran your script against, and I did get some values inserted into the value2 column. Is it possible that your table just doesn't have any values that meet your conditions? Here is what I did: Created a table with these five columns and 100 rows. Column 1 is entity, and I filled it with Random Integers between 1-100. (so some values are repeated, some values don't appear.) Column 2 is date1. I made it y/m/d and filled with sequence data (incrementing every day) from October 1, 2019 to January 8, 2020. Column 3 is date2. I made it y/m/d and filled it with Random Integers that matched the date range in date1. (so some days are repeated, some days don't appear.) Column 4 is value1. I filled with with Random Uniform between 0 and 1. Column 5 is value2, left empty. I sorted date1 descending, and then I sorted entity ascending. Then I ran your script, and it did populate some rows in value2 with values from value1. Here is the script for the table I created: New Table( "Untitled", Add Rows( 100 ), New Column( "entity", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [1, 1, 2, 5, 7, 8, 10, 11, 12, 12, 13, 14, 14, 15, 16, 17, 17, 18, 20, 21, 21, 23, 25, 25, 26, 26, 30, 30, 31, 32, 33, 35, 37, 38, 38, 39, 40, 41, 42, 45, 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 54, 54, 55, 55, 55, 56, 56, 57, 57, 61, 64, 65, 66, 66, 67, 67, 68, 71, 72, 73, 73, 75, 76, 77, 77, 79, 79, 79, 80, 81, 83, 84, 85, 85, 85, 86, 87, 88, 90, 92, 92, 93, 94, 95, 95, 96, 97, 98, 98, 98] ) ), New Column( "date1", Numeric, "Continuous", Format( "y/m/d", 12 ), Input Format( "y/m/d" ), Set Values( [3660595200, 3653596800, 3655324800, 3657916800, 3657571200, 3659904000, 3655670400, 3658867200, 3660768000, 3655843200, 3655497600, 3661286400, 3657139200, 3659817600, 3657744000, 3655411200, 3653078400, 3656448000, 3653856000, 3659299200, 3654374400, 3653251200, 3656707200, 3654115200, 3659212800, 3655756800, 3654979200, 3654288000, 3654201600, 3660249600, 3658176000, 3657225600, 3653510400, 3658608000, 3654892800, 3658780800, 3654806400, 3656188800, 3659040000, 3659990400, 3657657600, 3656880000, 3652992000, 3659644800, 3658089600, 3655238400, 3654028800, 3653164800, 3658348800, 3652992000, 3659385600, 3656102400, 3659558400, 3657312000, 3655929600, 3653424000, 3653337600, 3657484800, 3656016000, 3661113600, 3653164800, 3660854400, 3660076800, 3655152000, 3661027200, 3658435200, 3656620800, 3654547200, 3656534400, 3657830400, 3657052800, 3654633600, 3660163200, 3658953600, 3653078400, 3660422400, 3658262400, 3655065600, 3658694400, 3658521600, 3655584000, 3659731200, 3659472000, 3659126400, 3653769600, 3654460800, 3660681600, 3660940800, 3660508800, 3653942400, 3653683200, 3656361600, 3658003200, 3660336000, 3656966400, 3656793600, 3654720000, 3661200000, 3657398400, 3656275200] ) ), New Column( "date2", Numeric, "Continuous", Format( "y/m/d", 12 ), Input Format( "y/m/d" ), Set Values( [3654288000, 3654547200, 3660940800, 3655238400, 3655756800, 3653078400, 3655152000, 3661113600, 3655670400, 3658521600, 3657916800, 3660854400, 3660336000, 3655497600, 3654288000, 3658867200, 3655929600, 3658780800, 3654460800, 3654288000, 3659472000, 3654374400, 3655584000, 3658435200, 3661286400, 3655843200, 3657484800, 3657225600, 3654460800, 3659040000, 3659904000, 3657744000, 3656016000, 3661113600, 3660854400, 3658435200, 3656275200, 3658953600, 3660508800, 3660940800, 3654892800, 3654374400, 3656966400, 3655065600, 3656620800, 3656448000, 3653424000, 3657312000, 3653596800, 3653078400, 3659126400, 3658089600, 3661027200, 3655929600, 3660249600, 3656102400, 3659040000, 3655411200, 3656275200, 3657916800, 3654979200, 3658176000, 3657830400, 3657830400, 3658867200, 3659644800, 3655670400, 3658262400, 3658867200, 3655584000, 3653942400, 3658435200, 3656448000, 3657571200, 3654201600, 3656620800, 3658262400, 3656620800, 3658262400, 3660595200, 3661200000, 3660595200, 3654028800, 3653078400, 3659990400, 3659817600, 3659558400, 3659817600, 3654201600, 3656534400, 3656707200, 3660508800, 3656102400, 3658003200, 3654979200, 3653683200, 3659126400, 3654115200, 3660595200, 3657830400] ) ), New Column( "value1", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [0.26654487522319, 0.268102226778865, 0.0855446415953338, 0.573256081901491, 0.356754610314965, 0.754618955776095, 0.707293681567535, 0.423604927491397, 0.0621724124066532, 0.678517441963777, 0.591030938085169, 0.155546535504982, 0.265113049885258, 0.216979010729119, 0.410901310387999, 0.14603908569552, 0.672683654818684, 0.615730489837006, 0.283979720901698, 0.569958938285708, 0.395094690844417, 0.740726810414344, 0.69660765840672, 0.592704318463802, 0.0819160102400928, 0.951408985769376, 0.622255727648735, 0.666835095966235, 0.735137741314247, 0.302926567615941, 0.135769379558042, 0.909960085060447, 0.159030285663903, 0.721727871336043, 0.084829821716994, 0.133812531363219, 0.775578187312931, 0.721618666080758, 0.824164194054901, 0.791532889008522, 0.596487301168963, 0.432518238201737, 0.803037486504763, 0.963547020917758, 0.483634022762999, 0.256266842130572, 0.184637202415615, 0.368785659084097, 0.433026649756357, 0.322859298205003, 0.63024612586014, 0.366389756789431, 0.31168167036958, 0.215982228284702, 0.506428832421079, 0.914496833458543, 0.00391270662657917, 0.911203439114615, 0.158799458295107, 0.0707558316644281, 0.0671632892917842, 0.626141374465078, 0.481671805493534, 0.175614738604054, 0.345019530970603, 0.998095875838771, 0.88658848637715, 0.352987453807145, 0.427561661927029, 0.664279501885176, 0.0914310747757554, 0.8409428098239, 0.483058925019577, 0.812691684346646, 0.184209692059085, 0.956565208500251, 0.133405604865402, 0.358119377400726, 0.416565118124708, 0.289288628380746, 0.51707451720722, 0.294909303309396, 0.108170761261135, 0.084945646347478, 0.978223626734689, 0.369202323025092, 0.00625932472757995, 0.590033906744793, 0.253290069289505, 0.313401067862287, 0.4109431670513, 0.178761875722557, 0.781808004016057, 0.686178727308288, 0.0606778394430876, 0.432180172763765, 0.761295787990093, 0.578681491082534, 0.197850840399042, 0.98485347116366] ) ), New Column( "value2", Numeric, "Continuous", Format( "Best", 12 ), ) ); If this isn't like your table, what is your table like? HTH, Melanie

melaniedrake · ‎08-27-2019

Level: Intermediate Melanie Drake, JMP Principal Systems Developer, SAS How many words do you think are in JMP - appearing anywhere in the software UI or in messages sent to the log? The answer is just about 220,000 words, divided into almost 35,000 sentence- and paragraph-level chunks we call strings. Every string is translated from English into seven other languages in a complex process that consists of removing the strings from source code, sending them out for translation and review by subject experts, and finally putting the strings back into the source code. We import various XML files with string data into JMP and analyze changes to find problems during the process quickly so they can be solved before they snowball into big problems at the end of the cycle, when we're ready to deliver JMP to customers. Until JMP 15, we used the JSL function XML Parse() to import those files.We have transitioned to using the new XML Import tool in JMP 15, which gives us a new and simpler script. In this presentation, I will show both methods, and you'll get a glimpse of JMP strings, deconstructed.

melaniedrake · ‎07-03-2019

A modal window should always be on top. If you have other windows displaying over top of a modal window, I recommend that you call tech support. A non-modal window will not always be on top. You can send a non-modal window the << bring window to front message.

melaniedrake · ‎07-03-2019

Make the window modal - that halts all code execution until the window is closed. You'll also need to move the definition of the script in the button in the window above the window itself. Example: prods = Associative Array( Column( dt2, "Product CFN" ) << getValues ) << getKeys; OKscript2014 = Expr( SelectedProds = lb1 << getSelected; selectedRows = []; For( p = 1, p <= N Items( SelectedProds ), p++, selectedRows = V Concat( selectedRows, dt2 << getRowsWhere( :Product CFN == SelectedProds[p] ) ) ); dt5 = dt2 << Subset( Rows( selectedRows ), LinkToOriginalDataTable( 0 ) ); Wait( 0 ); dt5 << Save( dir || "\PrimaryRFR_ProductFiltered_2014.jmp" ); ); nw1 = New Window( "2014 Product Filter", <<Modal, lb1 = List Box( prods ), Button Box( "OK", OKscript2014 ) );

melaniedrake · ‎06-28-2019

I'm sorry - I wasn't clear. I opened the .mdf file in a text editor, removed the quotation marks, and saved under a different file. This exercise just shows why you have to have the quotation marks there. If you need to remove them completely, then you'll have to remove the returns from that piece of text. It looks like a code snippet, so I don't know if that will work for you, but this structure will not work without either the returns or the quotes.

melaniedrake · ‎06-28-2019

It's because of the returns in the text string. The file uses returns to signal the end of a line End Of Line ( CRLF ) If this piece isn't quoted when it's saved out to a text file: VAR CURVE(1) = F VAR TECH(1) = 12 BEGIN % ind(1) dep(1) Then each one of those lines would count as a row when you later parse the file to add to a database or open with Excel. For example, if you edit your file so that you have two copies - one with the quotes and one without, you get two very different results when opening in Excel. With quotes, it's seen as one string that gets put into the correct cell. Without the quotes, Each of the five lines (including the blank one) is seen as its own row, and each line goes into the first cell in a row before you get to the rest of the data. HTH, Melanie

melaniedrake · ‎06-12-2019

If the Button Box were named "OK", it would close automatically. But you've created your own button with its own name, which is perfectly fine, but the custom button will only do what you tell it to do. There's two ways to add the ability to close a button's window. One is to assign the Button Box to a variable, and then send it the Close Window message within the button's script: b=Button Box( "Check Space", New Window( "Available Spaces", Table Box( Number Col Box( "Box ID", box10 ), Number Col Box( "Available Slot", row10 ) ) ); b<<Close Window; ) Or you can assign a function to the button and avoid adding a variable to the global namespace: Button Box( "Check Space", <<Set Function( Function( {this}, New Window( "Available Spaces", Table Box( Number Col Box( "Box ID", box10 ), Number Col Box( "Available Slot", row10 ) ) ); this<<Close Window )) ) HTH, Melanie

melaniedrake · ‎06-05-2019

The Close message can be sent to a several JSL objects, but not to data tables. Data Table doesn't accept the <<Close message at all. If you send this to a "clean" data table (one that is already saved to disk and which has no changes), it also won't close the data table. dt = open( "$SAMPLE_DATA/Big Class.jmp" ); dt << Close(); // nothing happens Takeaway: The function Close() and the message <<Close are not the same thing and are not interchangeable. HTH, Melanie

melaniedrake · ‎05-20-2019

I'm sure you could create something using the Min and Max settings for the axis boxes. However, you can zoom out if you hold the control key and click with the magnifier tool. Click zooms in, ctrl-click (or command-click on the Mac) zooms out. You can also zoom in and out by holding the control key and using the mouse's scroll wheel.

melaniedrake · ‎05-20-2019

You can, but you must send it as an attachment. The third argument to Mail() should be text. So first, save the Tabulate report. If the recipient has JMP, you can save it as a JMP report, or as a JMP Journal. If not, save it as a picture. Then use the path to the saved file as the fourth argument in Mail(). Here's an example saving the report as a picture: dt = Open( "$SAMPLE_DATA/Big Class.jmp" ); dt = Open( "$SAMPLE_DATA/Big Class.jmp" ); tabResult = dt << Tabulate( Show Control Panel( 0 ), Show Shading( 0 ), Add Table( Row Table( Grouping Columns( :Name, :Age, :Height, :Weight ) ) ) ); // save the report as a picture Report(tabResult) << Save Picture("$DESKTOP/tabulatePicture.png", "png"); // and include the tabResult as the content of the message: Mail( "test@example.com", "subject A", "Here is the tabulate report.", "$DESKTOP/tabulatePicture.png" ); If you don't want to keep around the saved file, you can delete the file in the script after you sen the mail using Delete File(). HTH, Melanie

melaniedrake · ‎04-01-2019

The only trick is that a String Col Edit Box contains a list of values, not just a single string. In this example, I changed the table part of the script to get the number of items in the String Col Edit Box and add that many rows to the table, and to use Set Values with that string. I also added a context menu to the Table Box that lets you add a row or delete the last row, in case the number of strings can vary. You could get fancier and get input to add multiple rows or delete particular rows. When you're creating the table, you could also cull the empty string from empty rows in the String Col Edit Box, if you wanted to. I didn't code that part. User_Input = New Window( "Socket Lot Data Scripting tool", //Text Box( "Enter Lot Num:" ), tb = Table Box( a = String Col Edit Box( "Enter Lot Num:", { "Write something", "", "", "" } ), << Set Context Menu Script( { "Add Row", tb<<Add Row({""}), "Delete Last Row", tb<<Delete Row( N Items(a<<Get) ) } ) ), Button Box( "Pull Lot", <<setFunction( Function( {this}, {bs, strs}, strs = a << get; /* could remove empty strings here before making your table */ bs = dt = New Table( "Untitled 9", Add Rows( N Items(strs) ), New Column( "Zlot", Character, "Nominal", <<Set values( strs ) ) ); ) ) ) ); HTH, Melanie

melaniedrake · ‎03-22-2019

There are a few problems with the script that are easily fixed. 1. The test portion of the for loop is wrong: N Items ( Numeric Columns ) <= 1 The number of Numeric columns doesn't change. If there are 0 or 1 numeric columns, the loop will run forever because 0<=1 and 1<=1. If there are at least 2 numeric columns, then the loop doesn't run at all because 2(or more)<=1 is always false. The test should be this: i <= N Items( Numeric Columns ) That tests whether your iterator (i) is greater than the number of columns and stops when it is. 2. In a For Each Row loop, you still need to subscript into the row, you just don't have to manage the iteration yourself. So this piece: Column ( dt , Numeric Columns [ i ] ) < 101 Should look like this: Column ( dt , Numeric Columns [ i ] )[Row()] < 101 3. Your Count variable is a list, but you're treating it like a number. Count++ doesn't do anything to a list that isn't populated with numbers. Set Count = 0 instead of Count = {}. Additionally, Count++ returns the current value, and then sets Count to Count +1. So Count = Count++ will never change the value of Count. (Example: Count = 0. Count = Count++. Count is still equal to zero.) Here is the full script with the changes above. The end Count is the number of cells in all numeric columns that are less than 101. Names Default To Here( 1 ); dt = Current Data Table(); Clear Log(); // Get all of the numeric columns in the data table Numeric Columns = dt << get column names( numeric, string ); NRows = N Rows( dt ); Count = 0; //Column loop For( i = 1, i <= N Items( Numeric Columns ), i++, For Each Row( dt, If( Column(dt, Numeric Columns[i])[Row()] < 101, Count++; Show( Count ); ) ) ); HTH, Melanie

melaniedrake · ‎03-15-2019

I'm not sure what you're trying to do exactly, but Get Picture might be what you need. It gives you a picture object that you can then place into a JMP display tree. Here's an example from the Scripting Index: dt = Open( "$SAMPLE_DATA/Big Class.jmp" ); biv = dt << Bivariate( y( :weight ), x( :height ) ); rbiv = biv << report; New Window( "Example", rbiv << Get Picture ); Is that what you're looking for? This will just be a static picture, not interactive.

melaniedrake · ‎12-18-2018

Rep1 << Journal() sends its object to the current journal, so can be hard to control. You can append to a specific journal, though. Instead of your last line: Rep1<<Journal(); // I want this report added to journal1 try this instead: J1 << Append(Rep1) If you append to a specific journal, then you can control which one you're adding reports to. HTH, Melanie

melaniedrake · ‎10-10-2018

Melanie Drake, JMP Principal Systems Developer, SAS Analyzing the Root of a Web Request Timeout Failure A simple test for a JMP utility to open a zip archive was failing consistently on the Macintosh test machine, but not the Windows test machine. Diagnosing the point of failure entailed gathering data and analyzing it in JMP. The data and the graphs showed what the problem was, and also showed that the fix made did in fact fix the problem. This is an interesting poster for anyone who with data, a problem to solve, and a penchant for informative graphs.

melaniedrake · ‎07-05-2018

cc_dt : USP_ID < < set each value ( filenow ) ; Set Each Value set all the values in a column to a constant. So with every loop, you're setting every cell in that column to the current filename. You'll need to set only the "new" cells from the table that was just concatenated to the filename. Maybe something like this? cc_dt << Select Where( cc_dt:USP_ID == "" ); // select empty cells, assuming previous cells all have their filename values selrows = cc_dt << Get Selected Rows(); // get the row numbers that are selected cc_dt:USP_ID[selrows] = filenow; // set just those rows in that column to the filename HTH, Melanie

melaniedrake · ‎02-28-2018

I'm not sure if you are asking how to or if you know how to, but it's failing in some way. I will answer the How-To question here. To create a PDF on Mac: Select File > Print. In the print dialog, on the bottom left, should be a menu that says PDF. From that menu, select Save as PDF. That should give you a dialog where you can select where to save the PDF and what name to give it. If that doesn't work for you, please tell me what version of JMP you are running, what version of MacOS you're on, and what doesn't work.

melaniedrake · ‎01-26-2018

Got it - we'll look at it and get back to you. Thanks, Melanie

melaniedrake · ‎01-26-2018

Hello; The session script that you attached contains only a link to the table on your system, but not the table itself: "N:\G.I.4\03_INCEFA+\05_technical\test_matrix\02_phase2\Custom DesignPhase_II.jmp" Could you attach the actual table so that we can look at the design in it? Thank you, Melanie

melaniedrake · ‎11-10-2017

Try using an absolute filepath instead of a relative filepath. A button has its own context and does not know anything about the script that created it.

melaniedrake · ‎09-15-2017

Ah, I see what you want. No, there is not currently a way to do that. -- Melanie

melaniedrake · ‎09-15-2017

Preferences > Styles. Frame Color controls the axis line and the tick marks. You'll also see preferences for setting the color of the Major and Minor Grid Lines. HTH, Melanie

melaniedrake · ‎09-14-2017

Set Function was added in JMP 10, so JMP 9 will not recognize it. You can rewrite using Set Script. Something like this: panelBox_filter << Append( cb_filter = Check Box( filterList, <<Set Script( cb_request_sel = cb_filter << get selected; If( Contains( cb_request_sel, "TR" ) > 0, filterTr = 1, filterTr = 0 ); fnShow( filterTr, pb_tr ); If( Contains( cb_request_sel, "Date" ) > 0, filterDate = 1, filterDate = 0 ); fnShow( filterDate, pb_Date ); If( Contains( cb_request_sel, "Product Type" ) > 0, filterProdType = 1, filterProdType = 0 ); fnShow( filterProdType, pb_ProdType ); If( Contains( cb_request_sel, "Pens" ) > 0, filterPens = 1, filterPens = 0 ); fnShow( filterPens, pb_pens ); ) ) );

melaniedrake · ‎06-23-2017

Try this simpler column formula: If( :Region == "MW", "IsMW", "NotMW" )

melaniedrake · ‎06-15-2017

JMP does not support tiered tabs. There are a couple of other solutions that might help you. (1) You can se tthe overflow flag. This sets the window size to the size of its contents, and the tabs that don't fit are placed into a drop-down menu on the right, like browsers do. nTabs = 25; VariabilityWindow = New Window("Variability Chart",tb = Tab Box( << Set Overflow Enabled(1) ) ); For( i = 1, i <= nTabs, i++, tb << Insert( i, "variability chart" || Char( i ), V List box( Button Box( "Variability Chart #" || Char( i ) ), ) ) ); (2) You can set the tab style to use a combo box (drop down menu) instead of horizontal tabs. nTabs = 25; VariabilityWindow = New Window("Variability Chart",tb = Tab Box( << Set Style( "combo" ) ) ); For( i = 1, i <= nTabs, i++, tb << Insert( i, "variability chart" || Char( i ), V List box( Button Box( "Variability Chart #" || Char( i ) ), ) ) );

melaniedrake · ‎05-24-2017

You can get a list of the window titles as strings directly: Window() << Get Window Title It returns something like this: {"Script", "Big Class", "Big Class - Distribution"}

melaniedrake · ‎05-08-2017

You can just create a new table using the keys and values of the associative array: dtSummary = New Table( "Summary", New Column( "ID", "Character", Set Values( avgs << Get Keys ) ), New Column( "Average", "Numeric", Set Values( avgs << Get Values ) ) );

melaniedrake · ‎05-08-2017

Would something like this work? avgs = Associative Array( dt:ID ); ids = avgs << get keys; For( i = 1, i <= N Items(ids), i++, these = As List( dt << get rows where( dt:ID == ids[i] ) ); If( N Items(these) < 5, n = N Items(these), n = 5; Remove From( these, 1, N Items(these) - n ); ); these = Matrix( these ); avgs[ids[i]] = Sum(dt:Value[these]) / n; ); Show(avgs);

melaniedrake · ‎05-05-2017

It looks Job_ID is a variable that holds a texteditbox. What you need is the string that the texteditbox has in it. You can do that with the message Get Text. In your code, try this (change in red 😞 SQL_Statement ="SELECT * FROM SAS_Plate_Reader t1 Where Job_ID='"||(Job_ID<<Get Text)||"'"

Date Registered	‎05-30-2014 10:32 AM
Date Last Visited	‎05-29-2020 06:36 PM
Total Messages Posted	77
Total Kudos Received	146

Online Status	Offline
Date Last Visited	‎05-29-2020 06:36 PM

Subject	Views	Posted
Solving a problem with the JSL Debugger jmp-blog	2711	May 1, 2012 12:18:25 PM
5 reasons I love the new JSL Debugger jmp-blog	3310	Mar 7, 2012 9:28:40 AM