Dear Erich and Wayne,
Thank you for your comments. As per your suggestion I changed the RunFile
call. Also, as Wayne pointed out it is the invocation of xlsReadWrite
library that was creating the problem. Once replaced the code bit from the
file it runs fine now. Thank you so much for kind help. As such this
application is extremely good, and I will be introducing it in my
econometrics classes very soon.
With Regards,
Santosh
Santosh Mishra
Assistant Professor
Department of Economics
Oregon State University
Corvallis, OR, 97330
On Mon, Oct 6, 2008 at 1:16 AM, Erich Neuwirth
<[EMAIL PROTECTED]>wrote:
> The problem with file names is that directory separators are
> different in R and and in VBA.
> So if you are running VBA stuff, you have to use
> single backslashes since this is what VBA exopects.
> Call RInterface.RunRFile("C:\Subodh\Prog\temprr.txt")
> You also could omit Call and write
> RInterface.RunRFile "C:\Subodh\Prog\temprr.txt"
>
> If you were using VBA to run a command in R,
> you would either need forward slashes
>
> RInterface.RRun "source('C:/Subodh/Prog/temprr.txt')"
>
> or (yes, this is strange) quadruple backslashes
> RInterface.RRun "source('C:\\\\Subodh\\\\Prog\\\\temprr.txt')"
>
> The reason is that when strings are parsed, backslashes indicate special
> character, and backslahes themselves have to be written as double
> backslashes. When things are parsed twice, this mechanism is applied
> twice, therefore the 4 backslahes.
>
> The simple rule:
> If VBA needs a filename, use backslashes, if R needs a filename, use
> forward slashes.
>
> The reason for RunRFile to exist is that R and Excel may run on
> different machines, and then RunRFile will use a file on the Excel
> machine, whereas RunR "source(..." will use a file on the R machine.
>
>
>
>
>
> [EMAIL PROTECTED] wrote:
> > Try Call RInterface.RunRFile("C:/Subodh/Prog/temprr.txt") or Call
> > RInterface.RunRFile("C:\Subodh\Prog\temprr.txt")
> >
> > instead of Call RInterface.RunRFile("C:\\Subodh\\Prog\\temprr.txt")
> >
> > Regards
> >
> > Wayne
> >
> >
> > -----Original Message-----
> > *From:* [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] Behalf Of
> > *Santosh Mishra
> > *Sent:* 06 October 2008 08:38
> > *To:* rcom-l@mailman.csd.univie.ac.at
> > *Subject:* [Rcom-l] Sourcing R code from VBA
> >
> > Dear Friends,
> > I am new to Rexcel, but I have worked in R for a while. I have a
> > problem in sourcing R code file from VBA.
> > Here is the code I am running in R.
> > ## R code below
> > library(np);
> > library(gam);
> > library(xlsReadWrite);
> > data("Italy");
> > attach(Italy);
> > X <- data.frame(year=ordered(year))
> > y <- data.frame(gdp)
> > bw <- npcdensbw(xdat=X, ydat=y, tol=.1, ftol=.1)
> > fhat <- npcdens(bws=bw);
> > utotd<-fhat$condens;
> > write.xls(totDat, "C:\\AAA.xls",colNames = FALSE,sheet = 1,from =
> > 1,rowNames=NA ) ;
> >
> ############################################################################
> > XX<-cbind(rnorm(1008));
> > y1<-as.matrix(y);
> > gamformn<-formula(y1~s(XX));
> > nlin_fitn<-gam(formula = gamformn, family = gaussian, data =Italy,
> > na.action = na.exclude, control = list(epsilon = 0.0001,
> > bf.epsilon = 0.0001, maxit = 5000, bf.maxit = 1000, trace =
> > F),x=TRUE,y=TRUE)
> > tempjj2<-nlin_fitn$residuals;
> >
> > ## VBA macro used(the above code is stored in temprr.txt)
> > Sub Demo100()
> > RInterface.StartRServer
> > Call RInterface.RunRFile("C:\\Subodh\\Prog\\temprr.txt")
> > RInterface.StopRServer
> > End Sub
> >
> > This is the error I am getting
> >
> > *Error-2147220502 in Module RExcel.Rserver
> > Error Running Expression
> > eval(parse(text="source(.rexcel..xtoavnn)"))*
> >
> > My hunch is that adding the GAM code is creating a problem. Because
> > when I use the np library (from beginning to ##########, it runs
> fine)
> >
> > Note that the whole code is running fine in R. Any help will be
> > highly appreciated.
> > Best regards,
> > Santosh
> >
> > Santosh Mishra
> > Assistant Professor
> > Department of Economics
> > Oregon State University
> > Corvallis, OR, 97330
> >
> >
> > ------------------------------------------------------------------------
> >
> > _______________________________________________
> > Rcom-l mailing list
> > Rcom-l@mailman.csd.univie.ac.at
> > http://mailman.csd.univie.ac.at/mailman/listinfo/rcom-l
> > More information (including a Wiki) at http://rcom.univie.ac.at
> >
> >
> > ------------------------------------------------------------------------
> >
> >
> > No virus found in this incoming message.
> > Checked by AVG - http://www.avg.com
> > Version: 8.0.173 / Virus Database: 270.7.6/1709 - Release Date: 10/5/2008
> 9:20 AM
> >
>
> --
> Erich Neuwirth, University of Vienna
> Faculty of Computer Science
> Computer Supported Didactics Working Group
> Visit our SunSITE at http://sunsite.univie.ac.at
> Phone: +43-1-4277-39464 Fax: +43-1-4277-39459
> _______________________________________________
> Rcom-l mailing list
> Rcom-l@mailman.csd.univie.ac.at
> http://mailman.csd.univie.ac.at/mailman/listinfo/rcom-l
> More information (including a Wiki) at http://rcom.univie.ac.at
>
_______________________________________________
Rcom-l mailing list
Rcom-l@mailman.csd.univie.ac.at
http://mailman.csd.univie.ac.at/mailman/listinfo/rcom-l
More information (including a Wiki) at http://rcom.univie.ac.at
