C ++ में R की सुविधाओं का लाभ कैसे लें

R सांख्यिकीय डेटा प्रोसेसिंग और ग्राफिक्स के लिए एक प्रोग्रामिंग भाषा है, साथ ही यह GNU प्रोजेक्ट - विकिपीडिया के ढांचे में एक मुक्त ओपन-सोर्स कंप्यूटिंग वातावरण है।

आर ने सभी अवसरों के लिए बड़ी संख्या में सांख्यिकीय एल्गोरिदम एकत्र किए हैं और न केवल देशी सॉफ्टवेयर वातावरण से इसका उपयोग किया जा सकता है: यह एसपीएसएस, स्टेटिस्टिका, एसएएस, वोल्फ्राम मैथमेटिका और कुछ अन्य जैसे प्रसिद्ध गणितीय पैकेजों द्वारा समर्थित है। आप अपने अनुप्रयोगों में R को कैसे एकीकृत कर सकते हैं?
C ++ में R का उपयोग करने के बारे में पहले से ही habrahabr पर एक लेख था, हालांकि इसने केवल एक ही तरीके पर प्रकाश डाला कि यदि आपका कोड GPL- संगत लाइसेंस के तहत वितरित किया गया है तो इसका उपयोग करना संभव है। लेकिन अन्यथा वहाँ एक रास्ता है - Rerve पैकेज का उपयोग करना।

Rserve

Rerve एक टीसीपी / आईपी / यूनिक्स सॉकेट सर्वर है जो आपको अपने पुस्तकालयों से लिंक किए बिना आर की क्षमताओं का उपयोग करने की अनुमति देता है। ग्राहकों को विभिन्न लोकप्रिय भाषाओं के अंतर्गत लागू किया जाता है, जैसे C / C ++, Java, PHP। LGPL के तहत वितरित ग्राहक कोड।

R और Rerve स्थापित करें:

# sudo apt-get instal r-base # sudo R > install.packages("Rserve"); 

अब यह चलाने के लिए बनी हुई है:

 # R CMD Rserve 

डिबग मोड भी है

 # R CMD Rserve.dbg 

जब मापदंडों के बिना लॉन्च किया जाता है, तो Rerve डिफ़ॉल्ट पोर्ट (6311) पर टीसीपी / आईपी सर्वर मोड में संचालित होता है। यूनिक्स सॉकेट्स का उपयोग करने के लिए --RS-socket फ्लैग के साथ Rerve चलाएं

 # R CMD Rserve --RS-socket "/home/zoberg/mysocket" 

उपलब्ध झंडों की सूची को टाइप करके देखा जा सकता है

 # R CMD Rserve --help 

C ++ क्लाइंट

C ++ क्लाइंट में 4 हेडर फाइलें होती हैं: Rconnection.h (यहां उन सभी विज्ञापनों को जिनके साथ काम करने की आवश्यकता हो सकती है), Rsrv.h , config.h (केवल Windows पर आवश्यक), sisocks.h (क्रॉस-प्लेटफॉर्म सॉकेट और एक Rconnection.cc ) । आप उन सभी को गुथब पर आधिकारिक भंडार से ले सकते हैं।

तो, चलिए उस डेमो पर नज़र डालते हैं जो ज्यादातर मुख्य ऑपरेशनों को कवर करता है

 /// main.cpp #include <iostream> using std::cout; #define MAIN // c  sisocks.h #define SOCK_ERRORS // verbose socket errors #include "sisocks.h" #include "Rconnection.h" //     C++ API int main(int argc, char **argv) { initsocks(); //    Win32 -     unix //     Rserve. //     - "127.0.0.1", 6311. //    unix sockets,     : // Rconnection *rc = new Rconnection("/home/zoberg/mysocket", -1); Rconnection *rc = new Rconnection(); int i=rc->connect(); if (i) { char msg[128]; sockerrorchecks(msg, 128, -1); printf("unable to connect (result=%d, socket:%s).\n", i, msg); return i; } double d[6] = { 1.5, 2.4, 5.6, -1.2, 0.6, 1.7 }; //      "a"  R Rdouble *rd = new Rdouble(d, 6); rc->assign("a", rd); delete rd; //   "b"  2 x 3     b * t(b) Rdouble *x = (Rdouble*) rc->eval("b<-matrix(a,2); b%*%t(b)"); if (x) { //    ,    cout << x << "\n"; //       Rinteger *dim = (Rinteger*) x->attribute("dim"); if (dim) cout << dim->intAt(0) << " by " << dim->intAt(1) << " matrix\n"; //    ( ) double *d = x->doubleArray(); int i=0, ct = x->length(); while (i < ct) { cout << d[i++] << " "; } cout << "\n"; //   delete x; } //      i  R int ia[6] = { 1, 4, 6, 3, 5 , 2 }; Rinteger *ri = new Rinteger(ia, 6); rc->assign("i", ri); delete ri; //   —      , //       1936   //      . //      R,   Rvector *iris = (Rvector*) rc->eval("data(iris); iris"); if (!iris) { cout << "oops! couldn't get iris data\n"; delete rc; return 0; } //         (sepal width) - //      Rserve,         Rdouble *sw = (Rdouble*) iris->byName("Sepal.Width"); double *swd = sw->doubleArray(); // and print it ... { int i=0, ct=sw->length(); while (i<ct) { cout << swd[i++] << " "; } cout << "\n"; } //    ,   iris, //  sw  . delete iris; //   .   . delete rc; } 

स्मृति प्रबंधन के बारे में ध्यान दें: सभी आवश्यक मेमोरी को Rmessage ऑब्जेक्ट द्वारा आवंटित किया गया है, जो कि "eval" कहते समय निहित है। इस ऑब्जेक्ट का मालिक Rexp है, जिसे eval द्वारा लौटाया जाता है (इसे मुख्य कॉल करें)। आप मुख्य एक को छोड़कर कोई अन्य रेक्सपी जारी नहीं कर सकते हैं! मुख्य Rexp के जारी होने के बाद मुख्य Rexp से जुड़ा कोई भी Rexp अमान्य हो जाता है। इसके अलावा, मुख्य रेक्सपी जारी करने के बाद, सभी संकेत अमान्य हो जाते हैं (उदाहरण के लिए, डबलअरे () विधि द्वारा लौटाया गया)।

संकलन

 # g++ -c Rconnection.cc # g++ Rconnection.o main.cpp -o RExample -lcrypt 

और भागो

 # ./RExample Rdouble[4] 2 by 2 matrix 33.97 -2.1 -2.1 10.09 3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 3.7 3.4 3 3 4 4.4 3.9 3.5 3.8 3.8 3.4 3.7 3.6 3.3 3.4 3 3.4 3.5 3.4 3.2 3.1 3.4 4.1 4.2 3.1 3.2 3.5 3.6 3 3.4 3.5 2.3 3.2 3.5 3.8 3 3.8 3.2 3.7 3.3 3.2 3.2 3.1 2.3 2.8 2.8 3.3 2.4 2.9 2.7 2 3 2.2 2.9 2.9 3.1 3 2.7 2.2 2.5 3.2 2.8 2.5 2.8 2.9 3 2.8 3 2.9 2.6 2.4 2.4 2.7 2.7 3 3.4 3.1 2.3 3 2.5 2.6 3 2.6 2.3 2.7 3 2.9 2.9 2.5 2.8 3.3 2.7 3 2.9 3 3 2.5 2.9 2.5 3.6 3.2 2.7 3 2.5 2.8 3.2 3 3.8 2.6 2.2 3.2 2.8 2.8 2.7 3.3 3.2 2.8 3 2.8 3 2.8 3.8 2.8 2.8 2.6 3 3.4 3.1 3 3.1 3.1 3.1 2.7 3.2 3.3 3 2.5 3 3.4 3 

हो गया! R इंटरफ़ेस के बारे में अधिक जानकारी के लिए, Rconnection.h देखें।

Rserv.conf

मैं विन्यास फाइल Rserv.conf के बारे में कुछ शब्द कहूंगा। यह Rerve की शुरुआत में कुछ R कोड को निष्पादित करने का एक दिलचस्प अवसर प्रदान करता है। डिफ़ॉल्ट कॉन्फ़िगरेशन फ़ाइल को /etc/Rserv.conf में देखा जाता है, लेकिन आप Rerve शुरू करते समय --RS-conf ध्वज का उपयोग करके एक अलग पथ निर्दिष्ट कर सकते हैं। Rserv.conf में निम्नलिखित विकल्प हो सकते हैं:

workdir [/tmp/Rserv]

pwdfile [none=disabled]

remote enable|disable [disable]
auth required|disable [disable]
plaintext enable|disable [disable]
fileio enable|disable [enable]
interactive yes|no [yes] (since 0.6-2)

( 0.1-9):
socket [none=disabled]
port [6311]
maxinbuf [262144]

( 0.3):
maxsendbuf [0=unlimited]
uid [none]
gid [none]
su now|server|client [none] (since 0.6-1)

( 0.3-16):
source
eval

( 0.5 unix):
chroot [none]
sockmod [0=default]
umask [0]

( 0.5-3):
encoding native|utf8|latin1 [native]

Rserve C++ , . , - .

PS load-balancer Rserve: RSproxy .

UPDATE: Windows Ws2_32.lib.