Use expr() to replace variable column names in a formula

BayesRabbit7133

I try to create nested loops:

1st loop create some columns and have formula with it

2nd loop create some other columns, and the formula will need columns from 1st loop

My question is in 2nd loop, I cannot correctly setup the column names in formula by using eval() + substitue() + expr()

Names Default To Here( 1 );
dt = current data table();
a=3;
b=3; 
alist = {1,2,3}; 
blist = {1,2,3};
// In actual script, above numbers will come from H list box input

For (i=1, i <= a, i++, 
			dt << New Column( eval("a_" || char(alist[i])), Formula(:gap*2) );
                        

	col = "a_" || char(alist[i]);

	For (k=1, k <= b, k++, 
			eval(
				substitute(
				Expr(
				dt << New Column( eval("a_" || char(alist[i]) || " b_" || char(blist[k])), Formula( If(:vvv > 0 & (:vvv < blist[k] ),1,0) ) );
					),
				Expr(vvv),
				col  //here gives wrong result, the formula doesn't really use column a_1, a_2, a_3, instead it use "a_1"......etc
				)
			)
		)
	)

 

jthi

This might give some idea

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");

a = 3;
b = 3;
alist = {1, 2, 3};
blist = {1, 2, 3};
// In actual script, above numbers will come from H list box input

For(i = 1, i <= a, i++,
	new_col = dt << New Column(Eval("a_" || Char(alist[i])), Formula(:height* 2));
	
	For(k = 1, k <= b, k++,
		Eval(Substitute(
			Expr(dt << New Column("a_" || char(new_col << get name) || " b_" || char(blist[k]),
				Formula(If(vvv > 0 & (vvv < www), 1, 0))
			)),
			Expr(vvv), Name Expr(AsColumn(new_col)),
			Expr(www), blist[k]
			)
		)
	);
);

 

Edit:

If you have JMP16+ you could change the loops to For Each (this also uses Eval(EvalExpr()) instead of Eval(Substitute()) as in my opinion it is more clear in simple cases like this

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");

alist = {1, 2, 3};
blist = {1, 2, 3};

For Each({aval}, alist,
	new_col = dt << New Column("a_" || Char(aval), Formula(:height * 2));

	For Each({bval}, blist,
		col_title = "a_" || Char(new_col << get name) || " b_" || Char(bval);
		
		Eval(EvalExpr(
			dt << New Column(col_title, Numeric, Nominal, Formula(
				If(0 < Expr(Name Expr(As Column(dt, new_col))) <  Expr(bval),
					1
				,
					0
				)
			))
		));
	);
);