Here is one way to do what you want
Names Default To Here( 1 );
dt =
// Open Data Table: semiconductor capability.jmp
// → Data Table( "semiconductor capability" )
Open( "$SAMPLE_DATA/semiconductor capability.jmp" );
colListY = {};
For( i = 1, i <= 10, i++,
Insert Into( colListY, "NPN" || Char( i ) )
);
dt << Bivariate(
Y( Eval( colListY ) ),
X( Column( dt, "PNP1" ) ),
Fit Line( {Line Color( {212, 73, 88} )} )
);
Here is another way
Names Default To Here( 1 );
dt =
// Open Data Table: semiconductor capability.jmp
// → Data Table( "semiconductor capability" )
Open( "$SAMPLE_DATA/semiconductor capability.jmp" );
colListY = {};
For( i = 1, i <= 10, i++,
Insert Into( colListY, "NPN" || Char( i ) )
);
New Window( "My Output",
H List Box(
For( i = 1, i <= 10, i++,
dt << Bivariate(
Y( Column( dt, colListY[i] ) ),
X( Column( dt, "PNP1" ) ),
Fit Line( {Line Color( {212, 73, 88} )} )
)
)
)
);
Jim