<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.7600.16588">
<STYLE>@font-face {
        font-family: 宋体;
}
@font-face {
        font-family: Verdana;
}
@font-face {
        font-family: @宋体;
}
@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; layout-grid: 15.6pt; }
P.MsoNormal {
        TEXT-JUSTIFY: inter-ideograph; TEXT-ALIGN: justify; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; FONT-SIZE: 10.5pt
}
LI.MsoNormal {
        TEXT-JUSTIFY: inter-ideograph; TEXT-ALIGN: justify; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; FONT-SIZE: 10.5pt
}
DIV.MsoNormal {
        TEXT-JUSTIFY: inter-ideograph; TEXT-ALIGN: justify; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; FONT-SIZE: 10.5pt
}
A:link {
        COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
        COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
        COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
        COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
        FONT-STYLE: normal; FONT-FAMILY: Verdana; COLOR: windowtext; FONT-WEIGHT: normal; TEXT-DECORATION: none; mso-style-type: personal-compose
}
DIV.Section1 {
        page: Section1
}
BLOCKQUOTE {
        MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 2em
}
OL {
        MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
UL {
        MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
</STYLE>
</HEAD>
<BODY style="FONT-FAMILY: verdana; FONT-SIZE: 10pt">
<DIV><FONT color=#0000ff size=2 face=Verdana>Thanks for your advice! I'll plan 
to read the documents carefully. Now I am anxious&nbsp;to make the program 
running. If possible, could you please give me an example to achieve that? 
</FONT></DIV>
<DIV><FONT color=#0000ff></FONT>&nbsp;</DIV>
<DIV><FONT color=#0000ff>Best regards,</FONT></DIV>
<DIV><FONT color=#0000ff>Gao Xia</FONT></DIV>
<DIV><FONT size=2 face=Verdana></FONT>&nbsp;</DIV>
<DIV align=left>
<DIV align=left><FONT size=2 face=Verdana>
<HR style="WIDTH: 122px; HEIGHT: 2px" SIZE=2>
</FONT></DIV>
<DIV><FONT color=#c0c0c0><FONT size=2 
face=Verdana><SPAN>xiagao1982</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Verdana>2010-06-16</FONT></FONT></DIV></DIV>
<DIV><FONT size=2 face=Verdana>
<HR>
</FONT></DIV>
<DIV><FONT face=Verdana><FONT size=2><STRONG>发件人:</STRONG> Dirk 
Eddelbuettel</FONT></FONT></DIV>
<DIV><FONT face=Verdana><FONT size=2><STRONG>发送时间:</STRONG> 
2010-06-16&nbsp;09:14:07</FONT></FONT></DIV>
<DIV><FONT face=Verdana><FONT size=2><STRONG>收件人:</STRONG> 
xiagao1982</FONT></FONT></DIV>
<DIV><FONT face=Verdana><FONT size=2><STRONG>抄送:</STRONG> 
rcpp-devel</FONT></FONT></DIV>
<DIV><FONT face=Verdana><FONT size=2><STRONG>主题:</STRONG> Re: [Rcpp-devel] About 
calling C/C++ functions in R</FONT></FONT></DIV>
<DIV><FONT size=2 face=Verdana></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Verdana>
<DIV></DIV>
<DIV>On&nbsp;16&nbsp;June&nbsp;2010&nbsp;at&nbsp;08:13,&nbsp;xiagao1982&nbsp;wrote:</DIV>
<DIV>|&nbsp;Dear&nbsp;friends,</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;I&nbsp;am&nbsp;a&nbsp;newcomer&nbsp;of&nbsp;Rcpp&nbsp;and&nbsp;RInside.&nbsp;I&nbsp;installed&nbsp;them&nbsp;in&nbsp;my&nbsp;system&nbsp;and</DIV>
<DIV>|&nbsp;successfully&nbsp;build&nbsp;the&nbsp;following&nbsp;example:</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;#include&nbsp;&lt;RInside.h&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;for&nbsp;the&nbsp;embedded&nbsp;R&nbsp;via&nbsp;RInside</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;Rcpp::NumericMatrix&nbsp;createMatrix(const&nbsp;int&nbsp;n)&nbsp;{</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Rcpp::NumericMatrix&nbsp;M(n,n);</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(int&nbsp;i=0;&nbsp;i&lt;n;&nbsp;i++)&nbsp;{</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(int&nbsp;j=0;&nbsp;j&lt;n;&nbsp;j++)&nbsp;{</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;M(i,j)&nbsp;=&nbsp;i*10+j;&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return(M);</DIV>
<DIV>|&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;int&nbsp;main(int&nbsp;argc,&nbsp;char&nbsp;*argv[])&nbsp;{</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;const&nbsp;int&nbsp;mdim&nbsp;=&nbsp;4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;let&nbsp;the&nbsp;matrices&nbsp;be&nbsp;4&nbsp;by&nbsp;4&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SEXP&nbsp;ans;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RInside&nbsp;R(argc,&nbsp;argv);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;create&nbsp;an&nbsp;embedded&nbsp;R&nbsp;instance&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Rcpp::NumericMatrix&nbsp;M&nbsp;=&nbsp;createMatrix(mdim);&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;create&nbsp;and&nbsp;fill&nbsp;a&nbsp;sample&nbsp;data&nbsp;Matrix&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R["M"]&nbsp;=&nbsp;M;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;assign&nbsp;C++&nbsp;matrix&nbsp;M&nbsp;to&nbsp;R's&nbsp;'M'&nbsp;var</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;std::string&nbsp;evalstr&nbsp;=&nbsp;"\</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cat('Running&nbsp;ls()\n');&nbsp;print(ls());&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cat('Showing&nbsp;M\n');&nbsp;print(M);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cat('Showing&nbsp;colSums()\n');&nbsp;Z&nbsp;&lt;-&nbsp;colSums(M);&nbsp;print(Z);&nbsp;\</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Z";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;returns&nbsp;Z</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ans&nbsp;=&nbsp;R.parseEval(evalstr);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;eval&nbsp;the&nbsp;init&nbsp;string&nbsp;--&nbsp;Z&nbsp;is&nbsp;now&nbsp;in&nbsp;ans</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Rcpp::NumericVector&nbsp;v(ans);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//</DIV>
<DIV>|&nbsp;&nbsp;convert&nbsp;SEXP&nbsp;ans&nbsp;to&nbsp;a&nbsp;vector&nbsp;of&nbsp;doubles</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(int&nbsp;i=0;&nbsp;i&lt;&nbsp;v.size();&nbsp;i++)&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;show&nbsp;the&nbsp;result</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;std::cout&nbsp;&lt;&lt;&nbsp;"In&nbsp;C++&nbsp;element&nbsp;"&nbsp;&lt;&lt;&nbsp;i&nbsp;&lt;&lt;&nbsp;"&nbsp;is&nbsp;"&nbsp;&lt;&lt;&nbsp;v[i]&nbsp;&lt;&lt;&nbsp;std::endl;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit(0);</DIV>
<DIV>|&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;Now&nbsp;I&nbsp;add&nbsp;a&nbsp;function&nbsp;in&nbsp;the&nbsp;C++&nbsp;code:</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;const&nbsp;char*&nbsp;hello(&nbsp;std::string&nbsp;who&nbsp;){</DIV>
<DIV></DIV>
<DIV>This&nbsp;defines&nbsp;a&nbsp;C++&nbsp;function&nbsp;called&nbsp;"hello".</DIV>
<DIV></DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;std::string&nbsp;result(&nbsp;"hello&nbsp;"&nbsp;)&nbsp;;</DIV>
<DIV>|&nbsp;result&nbsp;+=&nbsp;who&nbsp;;</DIV>
<DIV>|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;result.c_str()&nbsp;;</DIV>
<DIV>|&nbsp;}</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;And&nbsp;I&nbsp;try&nbsp;to&nbsp;call&nbsp;this&nbsp;function&nbsp;in&nbsp;R:</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;std::string&nbsp;txt&nbsp;=&nbsp;"ret&nbsp;=&nbsp;hello('Friends');&nbsp;print(ret);";</DIV>
<DIV></DIV>
<DIV>This&nbsp;calls&nbsp;an&nbsp;R&nbsp;function&nbsp;called&nbsp;"hello".</DIV>
<DIV></DIV>
<DIV>But&nbsp;as&nbsp;R&nbsp;!=&nbsp;C++,&nbsp;it&nbsp;does&nbsp;not&nbsp;call&nbsp;the&nbsp;C++&nbsp;function&nbsp;from&nbsp;above.</DIV>
<DIV></DIV>
<DIV>|&nbsp;R.parseEvalQ(txt);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;eval&nbsp;string&nbsp;quietly,&nbsp;no&nbsp;result</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;It&nbsp;fails&nbsp;to&nbsp;do&nbsp;that.</DIV>
<DIV>|&nbsp;&nbsp;</DIV>
<DIV>|&nbsp;Could&nbsp;you&nbsp;please&nbsp;tell&nbsp;me&nbsp;how&nbsp;to&nbsp;achieve&nbsp;that?&nbsp;Thanks&nbsp;very&nbsp;much!</DIV>
<DIV></DIV>
<DIV>It&nbsp;is&nbsp;a&nbsp;bit&nbsp;more&nbsp;complicated&nbsp;than&nbsp;this.&nbsp;You&nbsp;probably&nbsp;want&nbsp;to&nbsp;start&nbsp;by&nbsp;reading</DIV>
<DIV>both&nbsp;the&nbsp;'Writing&nbsp;R&nbsp;Extensions'&nbsp;manual&nbsp;and&nbsp;some&nbsp;of&nbsp;the&nbsp;introductory&nbsp;vignettes</DIV>
<DIV>for&nbsp;Rcpp.&nbsp;It&nbsp;can&nbsp;be&nbsp;done,&nbsp;but&nbsp;you&nbsp;need&nbsp;to&nbsp;do&nbsp;a&nbsp;little&nbsp;reading,&nbsp;experimenting</DIV>
<DIV>and&nbsp;learning&nbsp;first.</DIV>
<DIV></DIV>
<DIV>--&nbsp;</DIV>
<DIV>&nbsp;&nbsp;Regards,&nbsp;Dirk</DIV></FONT></DIV></BODY></HTML>