Good Afternoon, I get this or similar error when trying to "write". "Record" or "save" data output Send Expects Scriptable Object in access or evaluation of 'Send' , G dt = Open( "$SAMPLE_DATA/Drug.jmp" ); obj = dt Send Expects Scriptable Object in access or evaluation of 'Send' , G // 'Send' , G // also did not work G<<savetext("/homedirectory/G.txt") What am I doing wrong? DLC7JMP

nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Send Expects Scriptable Object in access or evaluation of 'Send' ,

DLC7JMP

Good Afternoon,

I get this or similar error when trying to "write". "Record" or "save" data output

Send Expects Scriptable Object in access or evaluation of 'Send' , G << /*###*/
'Send' , G << /*###*/Save( "/homedirectory/Drug_test.txt" ) /*###*/

As an example I used Fitmodel example (below) for "Drug.jmp", which is a JMP example file.

</CODE><CODE class=" language-jsl">dt = Open( "$SAMPLE_DATA/Drug.jmp" ); obj = dt << Fit Model( Y( :y ), Effects( :Drug, :x ), Personality( Standard Least Squares ), Emphasis( Minimal Report ), Run ); G = obj << Get Effect PValues; Show( G ); //values show in log G << Save( "/homedirectory/Drug_test.txt");// I get the error message:Send Expects Scriptable Object in access or evaluation of 'Send' , G << /*###*/ // 'Send' , G << /*###*/Save( "/homedirectory/Drug_test.txt" ) /*###*/ // also did not work G<<savetext("/homedirectory/G.txt")

What am I doing wrong?

DLC7JMP

Accepted answers

jthi

What are you trying to save in this case? If you wish to save the results into a text file, you have to use Save Text File

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Drug.jmp");

obj = dt << Fit Model(
	Y(:y),
	Effects(:Drug, :x),
	Personality(Standard Least Squares),
	Emphasis(Minimal Report),
	Run
);
G = obj << Get Effect PValues;

Save Text File("$TEMP/drugtest.txt", Char(G));

Web("$TEMP/drugtest.txt"); // should open in default .txt application

So in this case you are using sending incorrect message to a matrix.

All comments

jthi

What are you trying to save in this case? If you wish to save the results into a text file, you have to use Save Text File

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Drug.jmp");

obj = dt << Fit Model(
	Y(:y),
	Effects(:Drug, :x),
	Personality(Standard Least Squares),
	Emphasis(Minimal Report),
	Run
);
G = obj << Get Effect PValues;

Save Text File("$TEMP/drugtest.txt", Char(G));

Web("$TEMP/drugtest.txt"); // should open in default .txt application

So in this case you are using sending incorrect message to a matrix.

DLC7JMP

Thank you. This works fine.

Would you care to address why this test loop only open "analysis" windows with out "Y" variables?

This is a test for only 3 columns of data. My goal is to run this on 4,500 columns and store the two p-values for each analyses.

// Open file

dt = Open("home/AND_Counts_alphaorder_SumNorm.jmp");


// Define the range of response columns
startColumn = 31;
endColumn = 33;

// Loop over the response columns
For(col = startColumn, col <= endColumn, col++, 
	responseVar = Column(dt, col) << Get Name;
	obj = dt << Fit Model(
		Y(responseVar), 
		Effects(:mass, ::Accl_Temp_ordinal), 
		Personality(Standard Least Squares), 
		Emphasis(Minimal Report), 
		Run
	);
);

P = obj << Get Effect PValues;
Save Text File("~/Projects_AB/Ptest.csv", Char(P));
// This open 3 windows w/out "Y"

jthi

I think it might be enough if you just add Eval() around your responseVar (and fix Accl_Temp_ordinal scope from :: to . Also if you are working with that many columns, test it with much smaller amount first so you can make the script work in such a way, that you don't end up with 4500 Fit Model platforms open by accident. Below should be version of your script with the fixes I suggested

Names Default To Here(1);

dt = Open("home/AND_Counts_alphaorder_SumNorm.jmp");

// Define the range of response columns
startColumn = 31;
endColumn = 33;

// Loop over the response columns
For(col = startColumn, col <= endColumn, col++,
	responseVar = Column(dt, col) << Get Name;
	obj = dt << Fit Model(
		Y(Eval(responseVar)),
		Effects(:mass, :Accl_Temp_ordinal),
		Personality(Standard Least Squares),
		Emphasis(Minimal Report),
		Run
	);
);

P = obj << Get Effect PValues;
Save Text File("~/Projects_AB/Ptest.csv", Char(P));

This is a bit different type of method but maybe it can give some ideas at least on how to collect the results and how you can close the reports

Names Default To Here(1);

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

colnames = {"height", "weight"}; // many method of getting these

// Loop over the response columns
colpvals = Associative Array();

For Each({colname}, colnames,
	colname = "height"
	fm = dt << Fit Model(
		Y(Eval(colname)),
		Effects(:age, :sex),
		Personality(Standard Least Squares),
		Emphasis(Minimal Report),
		Run
	);
	pvals = fm << Get Effect PValues; 
	
	// list conversion seems to be necessary for for JSON conversion
	// and it is easiest to do here
	colpvals[colname] = As List(pvals);
	fm << close window;
	wait(0); // most likely unnecessary
);

Save Text File("$TEMP/test.json", As JSON Expr(colpvals));
// Web("$TEMP/test.json");

You might also want to consider collecting the results into JMP data table and converting that to .csv but that depends on the final result you wish to have.

DLC7JMP

Jarmo,

Thanks, I try this and "Accept as Solution" if it works.

Thanks again.

Doug

DLC7JMP

Hi Jarmo,
Your solution worked.
Thank you!!

However, the "Save Tex File " as a text or csv, overwrote each entry leaving only the last p-value.
Thus I combined your two files to create a JSON file, with notes at the bottom of the script to describe how to import into JMP.

See below for t

Thanks again.
Doug

Names Default To Here(1);
dt = Open("~home/mydatafile.jmp");

// Loop over the response columns
colpvals = Associative Array();

// Define the range of response columns
startColumn = 23;
endColumn = 42;

// Loop over the response columns
For(col = startColumn, col <= endColumn, col++,
	responseVar = Column(dt, col) << Get Name;
	fm = dt << Fit Model(
		Y(Eval(responseVar)),
		Effects(:mass, :Accl_Temp_ordinal),
		Personality(Standard Least Squares),
		Emphasis(Minimal Report),
		Run
	);

Pv = fm << Get Effect PValues;

// list conversion seems to be necessary for for JSON conversion
	// and it is easiest to do here
	colpvals[responseVar] = As List(Pv);
	fm << close window;
	wait(0); // most likely unnecessary
);

Save Text File("~home/Ptest4.json", As JSON Expr(colpvals));

// NOTE: open JSON file in JMP as "Data (Using Preview)" not best guess.
// top left choose "Stack" (upper right) and "Huge Guess" (under "Guess" pull down)
// File is columns of "responseVar" (data column names), rows are the two p-values
// Transposing in JMP may be desirable.