# NOT RUN {
series <- rnorm(100)
## create instance of an object, using fully qualified class name
obj <- .cnew ("com.stg.math.Model", 1.0, 3.5)
## call method F(3) on object
val <- .ccall (obj, "F", 3)
## call overload method F of 2 arguments F(3,4) on object
val <- .ccall (obj, "F", 3, 4)
## call method Estimate(series) on object
series <- rnorm(100)
val <- .ccall (obj, "Estimate", series)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab