The R Project SVN R

Rev

Rev 29297 | Rev 38840 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29297 Rev 29329
Line 5... Line 5...
5 
main(int argc, char *argv[])
 5 
main(int argc, char *argv[])
6 
{
 6 
{
7 
 
 7 
 
8 
    SEXP e, val;
 8 
    SEXP e, val;
9 
    int errorOccurred;
 9 
    int errorOccurred;
10 
    argv[0] = "R.bin";
 10 
    argv[0] = "R";
11 
    Rf_initEmbeddedR(argc, argv);
 11 
    Rf_initEmbeddedR(argc, argv);
12 
 
 12 
 
13 
    PROTECT(e = allocVector(LANGSXP, 2));
 13 
    PROTECT(e = allocVector(LANGSXP, 2));
14 
    SETCAR(e, Rf_install("sqrt"));
 14 
    SETCAR(e, Rf_install("sqrt"));
15 
    SETCAR(CDR(e), NEW_CHARACTER(1));
 15 
    SETCAR(CDR(e), NEW_CHARACTER(1));