Statistics
| Revision:

root / trunk / tests / R / simple-unix.r @ 1512

History | View | Annotate | Download (148 Bytes)

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