dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
m = {"A", "B", "C", "D"};
For( i = 1, i <= N Items( m ), i++,
New Column( m[i] )
);
Column( "A" ) << Formula( If( Mod( Row(), 5 ) == 0, height ) );
dt << run formulas;
Column( "A" ) << deleteFormula;
Column( "B" ) << Formula( If( Mod( Row(), 7 ) == 0, weight ) );
dt << run formulas;
Column( "B" ) << deleteFormula;
Column( "C" ) << Formula( If( Mod( Row(), 5 ) == 0, -height ) );
dt << run formulas;
Column( "C" ) << deleteFormula;
Column( "D" ) << Formula( If( Mod( Row(), 7 ) == 0, -weight ) );
dt << run formulas;
Column( "D" ) << deleteFormula;