Statistics
| Revision:

root / trunk / tests / dll / simple.r @ 1510

History | View | Annotate | Download (153 Bytes)

1
x <- rep(0,100)
2
x
3
f <- 0
4
dyn.load("simple.dll")
5
xx <- .C("simple", as.integer(length(x)), as.double(x), as.double(f), "")
6
dyn.unload("simple.dll")