麻烦你先做两件事:
1.c:\>path #press enter
确认一下路径是否依你所言设置好
D:\setup\Rtools\bin;D:\setup\Rtools\MinGW\bin;D:\setup\R software\R-2.12.2\bin
2.执行下列程序,看结果如何
于 C:/Users/lenovo/Documents
建立文件夹convolve,放入文件convolve.c
然后在R运行
############
setwd('C:/Users/lenovo/Documents/convolve')
system("R CMD SHLIB convolve.c") #产生两个文件convolve.dll,convolve.o
#windows 用到convolve.dll
dyn.load("convolve.dll")
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
}
conv(c(1,4),c(1,1)
conv(c(1,2,2),conv(c(1,4),c(1,1)))



雷达卡






京公网安备 11010802022788号







