Here is some text between the displays that can be used to provide more contextual information for the "reader". | |
---|---|
<table border="1"> <tr> <th> <OBJECT TYPE="app/x-R-generic" NAME="xyplot" WIDTH=300 HEIGHT=300> <PARAM NAME="init" value=' gg <- getGGobi(1); dpy <- scatmat.ggobi(c(1,2), .gobi = gg); w <- getDisplayWindow.ggobi(dpy); w$Hide(); box <- gtkVBox(TRUE, 1); gtkWidgetReparent(gtkChildren(w)[[1]], box); box '> </OBJECT> </th> <th> <OBJECT TYPE="app/x-R-generic" NAME="xyplot" WIDTH=300 HEIGHT=300> <PARAM NAME="init" value=' gg <- getGGobi(1); dpy <- parcoords.ggobi(c(1,2,3,4), .gobi = gg); w <- getDisplayWindow.ggobi(dpy); w$Hide(); box <- gtkVBox(TRUE, 1); gtkWidgetReparent(gtkChildren(w)[[1]], box); box '> </OBJECT> </th> </tr> </table>