R调用C语言简单实例

时间：2014-12-25 16:27:01 阅读：216 评论：0 收藏：0 [点我收藏+]

新建目录C:/D_package/work_source/R_work/convolve，并创建convolve.c 文件

打开R（32bit，64bit的会报错和安装环境有关）

> setwd(‘C:/D_package/work_source/R_work/convolve‘)

> system("R CMD SHLIB convolve.c")
gcc -m32 -I"C:/PROGRA~1/R/R-31~1.2/include" -DNDEBUG -I"d:/RCompile/CRANpkg/extralibs64/local/include" -O3 -Wall -std=gnu99 -mtune=core2 -c convolve.c -o convolve.o
gcc -m32 -shared -s -static-libgcc -o convolve.dll tmp.def convolve.o -Ld:/RCompile/CRANpkg/extralibs64/local/lib/i386 -Ld:/RCompile/CRANpkg/extralibs64/local/lib -LC:/PROGRA~1/R/R-31~1.2/bin/i386 -lR
> # 生成了两个文件convolve.dll和convolve.o
> # convolve.dll用于windows上
> dyn.load("convolve.dll") #导入dll文件
> #调用 convolve方法即convolve.c中的方法convolve
> conv <- function(a,b){
+ .C("convolve",
+ as.double(a),as.integer(length(a)),
+ as.double(b),as.integer(length(b)),
+ ab = double(length(a)+length(b)-1))$ab
+ }
> a=3
> b=4
> conv(a,b)
[1] 12
> b=6
> conv(a,b)
[1] 18

R调用C语言简单实例

标签：r c语言 gcc

原文地址：http://blog.csdn.net/jklfjsdj79hiofo/article/details/42146645

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行