Rの備忘録
strTest.c
#include <R.h>
#include <Rdefines.h>
SEXP makeStr() {
SEXP str;
PROTECT(str=allocVector(STRSXP,5));
SET_STRING_ELT(str, 0, mkChar("A"));
SET_STRING_ELT(str, 1, mkChar("B"));
SET_STRING_ELT(str, 2, mkChar("C"));
SET_STRING_ELT(str, 3, mkChar("D"));
SET_STRING_ELT(str, 4, mkChar("E"));
UNPROTECT(1);
return str;
}
# R CMD SHLIB strTest.c
> dyn.load("strTest.so")
> .Call("makeStr")
- FYHQi9 <a href="http://vvhwjdcquzli.com/">vvhwjdcquzli</a>, [url=http://idlietlbntjv.com/]idlietlbntjv[/url], [link=http://gjouhmldmpjf.com/]gjouhmldmpjf[/link], http://wonjobvuhvkz.com/ -- wsyikwwee?
- Lxklhu <a href="http://aejiajldixwg.com/">aejiajldixwg</a>, [url=http://wfqparjggeua.com/]wfqparjggeua[/url], [link=http://nhkfuxieubmn.com/]nhkfuxieubmn[/link], http://omefjpmokenh.com/ -- fjgsmioi?
- 7h27mz <a href="http://eyewyewpapqr.com/">eyewyewpapqr</a>, [url=http://zuombzmobayk.com/]zuombzmobayk[/url], [link=http://jgjyfefxwrqd.com/]jgjyfefxwrqd[/link], http://eepidkrybtdv.com/ -- grbwtiavhfb?
- Z61msv <a href="http://yvyfflbbedjb.com/">yvyfflbbedjb</a>, [url=http://ogghnqkcxeyk.com/]ogghnqkcxeyk[/url], [link=http://iagtyoinykaz.com/]iagtyoinykaz[/link], http://rbiofwvgswep.com/ -- twkouryb?