Add/Subtract values from two jmp files

Jackie_

Hi,

@txnelson @pmroz 

I need help to offset the data set using the reference value in JSL 

 

First table contains reference value

 
Second table contains strips tested measurements

 

I want to subtract mean of strip A from the reference data table and then add to to the data set 
for example :

step1. the mean value for strips A for current = (10+3)/2 = 6.5. So, 400 - 6.5 = 393.5 and likewise for other strips

step2. Add 393.5 to the 2nd data table of strip A >> 393.2 + 10 = 403.2 and likewise for other strips

 

The final table should have following values:

 

Refer attached file for details.

 

Thank you for your help!

This what I tried:

Names Default To Here( 1 );
dt = Current data table();
dtOffset = Open(Limits);

colList = dt << get column names(string);

For( i = 1, i <= N Items( colList ), i++, 
	
	theRow = dtOffset << get rows where( dtOffset:Tests == colList[i] );
	show(i,nrows(therow));
	
	If( N Rows( theRow ) == 1,
		offset = dtOffset:Offset[theRow[1]];
		For( k = 1, k <= N Rows( dt ), k++,
			Column( dt, i )[k] = Column( dt, i )[k] + offset
		);
	);
	);

 

Reference data.jmp

Final data.jmp

Data set.jmp

txnelson

I was making changes to Mark's code, based upon syntax issues, not logic issues.  I have reworked the code and I believe this will work

Names Default To Here( 1 );

dt1 = open( "Reference data.jmp" );
dt2 = open( "Data set.jmp" );

For( c = 1, c <= N Col( dt2 ) -1, c++,
	theMatrix = [];
	name = Column( dt2, c ) << Get Name;
	For( r = 1, r <= N Rows( dt2 ), r++,
		mean = dt1:Mean[dt1 << Get Rows Where( :Tests == name )];
		measure = mean - Col Mean( If( dt2:Strips == dt2:Strips[r], Column( dt2, c ), . ) );
		theMatrix = theMatrix || Column( dt2, c )[r] + measure;
	);
	Column( dt2, c ) << Set Values( theMatrix );
);