Add the table script to dt_sum in same table script as you create the summary. It might be enough if you just replace , with ;.
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << Delete scripts(dt << Get Table Script Names); // has many of these already
dt << New Script("Create Summary",
Names Default To Here(1);
dt_sum = Current Data Table() << Summary(
Group(:name),
Mean(:height),
Mean(:weight),
Freq("None"),
Weight("None"),
Link to original data table(0)
);
dt_sum << New Script("Plot",
Graph Builder(
Size(528, 458),
Show Control Panel(0),
Variables(X(:name), Y(:"Mean(height)"n), Y(:"Mean(weight)"n, Position(1))),
Elements(Bar(X, Y(1), Y(2), Legend(4)))
)
)
);
-Jarmo