}
protected void startDemoActionPerformed(ActionEvent evt) {
String curDir = System.getProperty("user.dir").replace('\\', '/');
log.info("DEMO START");
RObjectViewportTable datafile = new RObjectViewportTable(dao.Controller.fitName("CONS.DAT"),
new RObject(dao.Controller.fitRVarName("CONS.DAT"), "read.table(\"" + curDir + "/example/cons.dat\")"));
dao.Controller.addDataFile(datafile, true, true, true);
RObject sysch = new RObject(dao.Controller.fitRVarName("sysch"), "isop.sysch(" + datafile.getAttachedRObject().getRVarName() + ")");
RObjectViewportTable syschtab = new RObjectViewportTable(dao.Controller.fitName("sysch") ,
sysch);
dao.Controller.addTable(syschtab, true, true,
new TableSweaveTag(syschtab));
log.info("DEMO END");
dao.Controller.addPlot(
new RObjectViewportPlotSysch3D( dao.Controller.fitName("sysch3Dplot"), sysch), true, false,
false, null);
dao.Controller.addPlot(
new RObjectViewportPlotSyschFreq( dao.Controller.fitName("syschfreqplot"),
sysch),
false, false, false, null);
RCommand.eval("library(psy)");
dao.Controller.addPlot(
new RObjectViewportPlotScree( dao.Controller.fitName("screeplot"),
datafile.getAttachedRObject(), 1),
false, false, false, null);
dao.Controller.addPlot(
new RObjectViewportPlotSphpca( dao.Controller.fitName("mysphpca"),
datafile.getAttachedRObject()),
false, false, false, null);
dao.Controller.addPlot(
new RObjectViewportPlotMdspca( dao.Controller.fitName("mymdspca"),
datafile.getAttachedRObject()),
false, false, false, null);
dao.Controller.addPlot(
new RObjectViewportPlotMdspca( dao.Controller.fitName("mymdspca"),
datafile.getAttachedRObject(), 1, 6),
false, false, false, null);
RObject icc = new RObject(dao.Controller.fitRVarName("icc_" + datafile.getAttachedRObject().getRVarName()), "icc(" + datafile.getAttachedRObject().getRVarName() + ")");
RObjectViewportTable icctab = new RObjectViewportTable(dao.Controller.fitName(icc.getRVarName() + "_table") ,
icc);
dao.Controller.addTable(icctab, true, true,
new TableSweaveTag(icctab));
}