I wish to save the summary data table and show in PowerPoint, so how can I do? Thank you.
dt1 = New Table( "Frequency Range",
New Column( "Frequency Range",
Character,
"Nominal",
Set Values( {"A", "B", "C", "D", "E", "F"} )
)
) << Update( With( Data Table( "Final table" ) ) );
j1 = dt1 << journal;
j1 << save presentation( "$TEMP/awaw.pptx" );
j1 << close window;
Open( "$TEMP/awaw.pptx" );
Any example scripts for that? How to convert to journal and show in pptx format?
dt1 = New Table( "Frequency Range",
New Column( "Frequency Range",
Character,
"Nominal",
Set Values( {"A", "B", "C", "D", "E", "F"} )
)
) << Update( With( Data Table( "Final table" ) ) );
j1 = dt1 << journal;
j1 << save presentation( "$TEMP/awaw.pptx" );
j1 << close window;
Open( "$TEMP/awaw.pptx" );
One more question here, after that I want to save this table in the same pptx file with the graph that I have saved before, how can I do that?
myhlb = H List Box();
myhlb << append( Report( gb1 ) );
myhlb << append( Report( gb2 ) );
myhlb << append( Report( gb3 ) );
myhlb2 = H List Box();
myhlb2 << append( myhlb << get picture );
myhlb2 << save presentation( "gbgb.pptx" );
Open( "gbgb.pptx" );
This is the scripts that I used to save my graph in pptx format.
You will need to restructure your code, to place the H List Box() and/or the picture into the Journal where you have the data table, and then save the Journal.
You also might look into using a New Data Box() to handle it. Here is the example taken from the Scripting Index on the New Data Box()
Names Default To Here( 1 );
dtA = Open( "$SAMPLE_DATA/Big Class.jmp", invisible );
New Window( "school",
H List Box(
dtA << New Data Box(),
Text Box(),
dtA << Distribution(
ContinuousDistribution( Column( :weight ) ),
NominalDistribution( Column( :age ) )
)
)
);
dtA = 0;
It appears that you need to do some reading.........the Scripting Guide is a must if you are going to be getting into JSL to any extent. It will really help in seeing all of the objects and functions that are available and how to piece them together.
Help==>Books==>Scripting Guide
Here is a very simple script that builds a journal
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
nw = New Window( "Example", <<journal );
biv = bivariate( invisible, x( :height ), y( :weight ) );
nw << append( Report( biv ) );
dt << journal;