About ms

ms · ‎12-13-2019

I've also experienced this and have found one workaround. Save the Open() command as a separate script and use Include() to run the code. // Create a jsl file with the Open() command f = Save Text File( "~/Desktop/test.jsl", Char( Name Expr( Open( "~/Desktop/test.xlsx", Worksheets( "Data" ), Use for all sheets( 1 ), Concatenate Worksheets( 0 ), Create Concatenation Column( 0 ), Worksheet Settings( 1, Has Column Headers( 1 ), Number of Rows in Headers( 1 ), Headers Start on Row( 1 ), Data Starts on Row( 2 ), Data Starts on Column( 1 ), Data Ends on Row( 0 ), Data Ends on Column( 0 ), Replicated Spanned Rows( 1 ), Replicated Spanned Headers( 0 ), Suppress Hidden Rows( 1 ), Suppress Hidden Columns( 1 ), Suppress Empty Columns( 1 ), Treat as Hierarchy( 0 ), Multiple Series Stack( 0 ), Import Cell Colors( 0 ), Limit Column Detect( 0 ), Column Separator String( "-" ) ) ) ) ) ); // Invoke Open() via user input nw = New Window( "open test", Button Box( "OK", Include( f ) ) );

ms · ‎11-08-2019

This works too: a = 2; // Concat scalar with empty matrix b = a || []; // Same, but in place a ||= []; Show(a, b); /*: a = [2]; b = [2];

ms · ‎11-05-2019

If you want to keep the original column, you could add a new column with a formula. For example: New Column("Repeat14", Formula( If(Row() > 14, :OriginalCol[Row() - Mod(Row() - 1, 14)], :OriginalCol ) ) );

ms · ‎11-05-2019

The JSL looks good. However, I rarely use such complex calculations with many local variables and look-up functions in a column formula. It is probably more efficient to fill the (new) rows by running the code outside of the table, which also would make it easier "parallelize" the computations using matrix operations. If the column formulas are required, one way to avoid recalculation of the entire table is to add the new data to a 1-row subset of the main table, eval formulas, suppress formula eval, delete first row (to avoid duplicate), and concatenate the updated subset with the main table (with formula eval supressed). The associative array may be a bottleneck here. I think formulas would run faster if these metadata could be retrieved, for each row, from other columns in the datatable instead of looking through an array.

ms · ‎10-17-2019

I thought it would be easy, but I couldn't get the ListBoxBox() to respond to e.g. Remove Item (1). However, simulating a click on the Remove button worked. rprt[ListBoxBox(2)] << Set selected(1); rprt[Button Box(8)] << click;

ms · ‎10-17-2019

Not sure if I have undestood the problem correctly, but it looks like Summary() and Stack() could do the job. Does this produce what you're after? (sorting will be different) Names Default To Here(1); //example table dt = New Table("Class", New Column("name", Character, "Nominal", Set Values({"KATIE", "KATIE", "LOUISE", "JANE", "JANE", "JACLYN"})), New Column("age", Numeric, "Ordinal", Set Values([12, 12, 12, 12, 12, 12])), New Column("sex", Character, "Nominal", Set Values({"F", "F", "F", "F", "F", "F"})), New Column("height", Numeric, "Continuous", Set Values([59, 61, 61, 55, 65, 66])), New Column("weight", Numeric, "Continuous", Set Values([95, 105, 123, 74, 84, 145])) ); //Summary dtsum = dt << Summary(Group(:name, :sex), Mean(:age), Mean(:height), Mean(:weight), statistics column name format("column")); // Stack summary table dtstack = dtsum << Stack(columns(:age, :height, :weight), Source Label Column("Source_Col"), Stacked Data Column("Value"));

ms · ‎10-13-2019

Loops are usually used for iterating through table rows or over items in a list, hence an increment by one is most common. However, the third argument must not be i++. It could be anything that makes sense. A few examples: For(i = 1, i <= 10, i = i + 0.1, Expr()); // Increment < 1 (100 iterations) For(i = 10, i > 1, i--, Expr()); // Loop "backwards" For(x = 2, x <= 10, x = 2, Expr()); // Eternal loop (better avoid these)

ms · ‎10-13-2019

It does not work because the loop is placed inside the New Column definition. Either create the column and fill its values in separate statements, or use a column formula. Look at these three jsl examples that should give identical result: Names Default To Here(1); dt = Current Data Table(); tr = N Rows(dt); //1. Fill values with a For() loop dt << New Column("TEST", "CHARACTER"); For(i = 1, i <= tr, i++, :TEST[i] = If(:TIME[i] == "BASELINE" & :VALUE[i] > 3, "YES", "NO" ) ); //2. Fill with For Each Row() dt << New Column("TEST2", "CHARACTER"); For Each Row(:TEST2 = If(:TIME == "BASELINE" & :VALUE > 3, "YES", "NO")); //3. Use a column formula in TEST3 dt << New Column("TEST3", "CHARACTER", Formula(If(:TIME == "BASELINE" & :VALUE > 3, "YES", "NO")) );

ms · ‎09-19-2019

You're almost there. Use the scoping character (single colon) to make sure JSL understands it's a variable (i.e. a column), and not a string. dt = Current Data Table(); dt:Architecture << Set Each Value(Repeat("0", 3 - Length(dt:Architecture)) || dt:Architecture);

ms · ‎09-17-2019

Seems not to be a built-in option in Graph Builder but it's possible to use a label column with a conditional formula. For example: dt = Open("$SAMPLE_DATA/Big Class.jmp"); New Column("Girls", Character, Formula(If(:sex == "F", :name))); :name << Label(0); :Girls << Label(1); dt << Graph Builder( Size(570, 511), Variables(X(:age)), Elements(Bar(X, Legend(3), Label("Label by Row"))) );

ms · ‎09-12-2019

There are several ways to do this. Here are two examples. dt << select where(!Is Missing(Num(Left(:data[], 1)))); dt << select where(!Is Missing(Regex(Left(:data[], 1), "^\d")));

ms · ‎08-08-2019

In the Fit Model report there is an option Compare Slopes (Red triangle/Estimates). If selected, an outline box is created. Select Show Summary Report by clicking the red triangle in the sub-outline box Comparisons with Overall... The resulting table box lists the estimated slopes of the contiuous covariate and their confidence intervals for all levels of the categorical variable. JSL example: dt = Open("$SAMPLE_DATA/Big Class.jmp"); fm = dt << Fit Model(Y(:height), Effects(:sex, :weight, :sex * :weight), Personality("Standard Least Squares"), Emphasis("Minimal Report"), Run); fm << Compare Slopes(ANOM(1, Show Summary Report(1)));

ms · ‎08-08-2019

If you have an earlier version of JMP, <<Select Duplicate Rows may not be available. Then try the below approach. The code should select and delete the duplicate rows (based on matching SerialNo and Section) with the earliest date. Sorting does not matter. dt = Current Data Table(); dt << select where(Col Max(:Date, :SerialNo, :Section) > :Date()); dt << delete rows();

ms · ‎07-18-2019

For big data tables a matrix solution may be faster than iterating over all columns. Example: dt = Current Data Table(); m = dt << get all columns as matrix; // Get table as matrix // Get list of columns with > 50% zeroes zero_cols = (dt << get column names)[(Loc(V Sum(m == 0) / N Row(m) > 0.5))]; // Delete them (or group them) dt << Delete Columns(zero_cols); // dt << Group Columns("zero", zero_cols);

ms · ‎06-26-2019

There's likely a simpler way but the below seems to work. cary = ["high schools" => {"Cary", "Green Hope", "Panther Creek"}, "population" => 116244, "state" => "NC", "weather" => "sunny"]; // 1. cary << Insert("high schools", Insert(cary["high schools"], "another school")); // 2. cary << Insert("weather", Eval List(Insert(List(cary["weather"]), "humid"))); Show(cary); /*: cary = ["high schools" => {"Cary", "Green Hope", "Panther Creek", "another school"}, "population" => 116244, "state" => "NC", "weather" => {"sunny", "humid"}];

ms · ‎06-26-2019

An alternative to using two columns to arrive at the counts would be to count the rows of each combination with the ColNumber() function. For example: Col Number(Row(), :J1, :SOG, :BUCKET);

ms · ‎06-26-2019

Try the By() role to get all predicteds in the same column. Iteration over a list is then not necessary and the generated prediction formula will automatically apply conditional statements to separate the different values of the by-column. The main difference is that all plots will share the same window. DataCV = Open("C:\Desktop\JMP\sample_data.csv"); DataCV << biv = Bivariate( Y(:c_mm_deembed_pf), X(:v_dut_volt), By(:process), Where(:c_type == "Cdg"), Fit Spline(0.1, Standardized, {Save Predicteds}) );

ms · ‎06-19-2019

Appears like a situation where either matrix calculations or use of the ColStat functions could speed things up. It's not clear to me how your tables and tresholds are organized. Could you share example tables?

ms · ‎04-17-2019

Try this column formula: Col Mean(:DataPoints, :SpanRow || :InverseSpanRow); Or if you, as in the sample table, wish the output in text format and "missing" spelled out: If(:SpanRow == "missing", Char(Col Mean(:DataPoints, :InverseSpanRow)), "missing" );

ms · ‎03-15-2019

If you have a later version of JMP that supports the data table matrix syntax, this approach would be efficient for replacing all data with their transformed values. The code assumes all columns from column 3 to end of table are numeric (as in the screenshot). dt = Current Data Table(); f = 3; //first numeric column dt[1 :: N Row(dt), f :: N Col(dt)] = 2 ^ dt[1 :: N Row(dt), f :: N Col(dt)] ;

ms · ‎03-15-2019

You do not specify what type of error you experience and your code is difficult to debug. Here is an example that may easier to use as a starting point. The complex dispatch syntax that is generated by JMP is rarely used when writing code "by hand". bv = Bivariate( Y(:y1), X(:x1), Fit Special(yTran("Log")), Where(:Case == "a" & :Parameter == "1"), ); // Customize axes by sending messages to the Axis Box() Report(bv)[Axisbox(1)] << {Scale("Log"), inc(1), Minor Ticks(2), Show Major Grid(1), Show Minor Grid(1)};

ms · ‎03-15-2019

It is possible to paste from clipboard using Main Menu("Paste") but it's not very useful (difiicult to control the timing and target with jsl). Not sure what you want but I'm sure there are better alternatives than to go via the clipboard here. Here is one example that may be useful: Names Default To Here(1); dt = Open("$SAMPLE_DATA/big class.jmp"); ow = Report(dt << Oneway(Y(:Height), X(:Age))); rl = dt << Color By Column(:Age, Make Window With Legend); nw = New Window("row legend", H List Box(Scroll Box(Size(400, 600), V List Box(ow, ow, ow, ow)), rl) ); // nw << Save Interactive HTML("path/example.html");

ms · ‎03-14-2019

You use a global variable Pmpp0 in a column formula and when the value of Pmpp0 keeps changing with each iteration the formula calculations change accordingly. If using this approach you must explicitly use the evaluated current value of the variable in the Formula. For example: Pmpp0 = :Pmpp[row]; F = Eval Expr(:Pmpp / Expr(Pmpp0));// Formula expression with evaluated Pmpp0 Mod << New Column("Pmpp_Norm", Numeric, continuous, Formula(Name Expr(F)));

ms · ‎03-13-2019

It's probably the "PM" that causes it to fail. Informat() should work if using just the time part of the string, e.g. by using the Left() function and conditionally correct for the AM/PM. Try this formula: Informat(Left(:Column 1, 8), "h:m:s") + If(Contains(:Column 1, "AM"), 0, In Hours(12))

ms · ‎03-12-2019

Log Capture() may do what you want. Names Default To Here(1); R Init(); dt = Open("$SAMPLE_DATA/Cars.jmp"); R Send(dt); R_stdout = Log Capture(R Submit(" summary(lm(formula=Chest.decel ~ Wt, data=dt)) ")); R Term(); New Window("example", Text Box(R_stdout));

ms · ‎03-10-2019

The JSL function that here corresponds to Excel's Match() would be Loc(). However, Loc() returns a matrix with the position of all matches, not just the first (or last). Example: dt << New Column("match", formula(If(Row() > 4, Loc(:weight[Row() - 4 :: Row()] > 120)[1])) );

ms · ‎03-07-2019

The expression column may need a formula that retrieves the image using Open() or New Image() (both seem to work). Example: dt = New Table("test", Add Rows(2), New Column("X", Numeric, Set Values([1, 2])), New Column("Y", Numeric, Set Values([1, 2])), New Column("URL", Character, Set Values( {"https://www.wikipedia.org/portal/wikipedia.org/assets/img/Wikipedia-logo-v2.png", "https://www.wikipedia.org/portal/wikipedia.org/assets/img/Wikipedia-logo-v2.png"} ) ), New Column("Image", Expression, Formula(New Image(:URL))), Set Label Columns(:Image) ); dt << Graph Builder( Show Control Panel(0), Variables(X(:X), Y(:Y)), Elements(Points(X, Y, Legend(11))) );

ms · ‎03-06-2019

The argument of Y(...) seems not to evaluated at runtime by the Overlay Plot platform. Here's one way to force replace the list variable with an explicit list of columns before creating the plot: dt = Open("$SAMPLE_DATA/Big Class.jmp"); list = dt << get column names(numeric, continuous); op = Expr( Overlay Plot(Y((Expr(list))), X(:name), Connect Thru Missing(1)) ); Eval(Eval Expr(op));

ms · ‎03-06-2019

Two more alternatives. Use the Words() function with an empty string as delimiter: b = 111001010; N Row(Loc(Words(Char(b), ""), "1")); Or just with math (i.e. without converting number into string). For example: b = 111001010; Sum(Mod(Round(b / 10 ^ (Floor(Log10(b + 1)) :: 0)), 10));

ms · ‎02-19-2019

An alternative to a Mouse Box is to apply a Row State Handler to the data table. It takes one click to create the subset (which can be annoying if trying to select multiple points by draging as a lot of unintended subsets may be created). dt = Open("$SAMPLE_DATA/Big Class.jmp"); dtSummary = dt << Summary(Group(:age)); gbExpr = Expr( gb = Graph Builder( Show Control Panel(0), Variables(X(:age), Y(:N Rows)), Elements(Points(X, Y, Legend(3)), Line(X, Y, Legend(4))) ) ); ExprA = Expr( dtSubset = dt << Subset(Selected Rows(1)); dtSummary << Clear Select; ); f = Function({a}, ExprA); rs = dt << make row state handler(f); GraphWindow = New Window("Graph", gbExpr);

Date Registered	‎06-23-2011 08:01 AM
Date Last Visited	3 weeks ago
Total Messages Posted	1,156
Total Kudos Received	939

Online Status	Offline
Date Last Visited	3 weeks ago