/*
  Tests using the default graphics device from within 
  an application that embeds the R interpreter.
  Equivalent of evaluating the expressions:

     plot(c(1, 2, 3, 4, 5, 6, 7 ,8, 9, 10))
*/
#include "embeddedRCall.h"


int
main(int argc, char *argv[])
{
    /* Evaluates the expression 
       plot(c(1,2,3,4,5,6,7,8,9,10))
    */
    eval_R_command("plot", argc, argv); 
    return(0);
}