How to store evaluated list in data table script

samir

Hello,

I would like to store a script in a data table so that users can later on open the tables and run the scripts.

My issue s that I do not know how to print in the data table script the values of the variables i use in my original script. I tried with expr, eval,...

The example below shows it clearly: I try to save a DataTableScript that generates a simple graph based on "mylist". but how to save the real string contained in "mylist" ?

Thanks for your help.

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
mylist = {"sex" , "age"};

Graph = Variability Chart(
		Y( :weight ),
		X(  eval(mylist) ),
		Max Iter( 100 ),
		Std Dev Chart( 0 ),
		Show Range Bars( 0 ),
		Show Grand Median( 0 ),
		Std Dev Chart( 1 ),
		Points Jittered( 1 ),
		Show Box Plots( 1 ),

	);
	
dt << New Script(
"Test",
Variability Chart(
		Y( :weight ),
		X(  Eval(mylist) ),
		Max Iter( 100 ),
		Std Dev Chart( 0 ),
		Show Range Bars( 0 ),
		Show Grand Median( 0 ),
		Std Dev Chart( 1 ),
		Points Jittered( 1 ),
		Show Box Plots( 1 ),

	);
);

ian_jmp

I tend to (try to) avoid code duplication (seen as a bad thing for the maintainability of code in any programming language), and stick with a few design patterns that I'm familiar with. So, in this spirit, I would do it as shown below. But I'm sure there are many other ways.

NamesDefaultToHere(1);

CurrentDataTable(Open( "$SAMPLE_DATA/Big Class.jmp" ));

// Expression that makes a variability chart
makeVC = 
Expr(
	vc = CurrentDataTable() << Variability Chart(
								Y(:weight),
								X(TBD),
								Max Iter( 100 ),
								Std Dev Chart( 0 ),
								Show Range Bars( 0 ),
								Show Grand Median( 0 ),
								Std Dev Chart( 1 ),
								Points Jittered( 1 ),
								Show Box Plots( 1 )
								);
	);

// Put the required 'x' values in 'makeVC'
mylist = {"sex" , "age"};
SubstituteInto(makeVC, Expr(TBD), Eval(myList));

// Make the chart
makeVC;

// Now save the script that makes the chart using a similar method to the above
saveScript = Expr(CurrentDataTable() << New Script("My Variability Chart", TBD));
SubstituteInto(saveScript, Expr(TBD), NameExpr(makeVC));
saveScript;