Urs Wagner wrote:
Hello
Who can help? I have my troubles with the dll's. The sample library
gausssdl is loaded but the function call
to the C function gaussSeidel does not work.
Thanks
Urs
> sys.time({x1<-gaussSeidel(A,b)}) # timing the S version
Timing stopped at: 0.0159999999999982 0.0160000000005311
Problem: Couldn't find a function definition for "gaussSeidel"
Use traceback() to see the call stack
> sys.time({x2<-.Call('gaussSeidel',A,b)}) # timing the .Call version
[1] 0 0
> all.equal(x1,x2) # Should return T
Problem: Object "x1" not found
Use traceback() to see the call stack
> search()
...
[9] "sgui" "maps" [11]
"gausssdl" "main"
It appears you do not have an S-PLUS function called "gaussSeidel". Try
gaussSeidel <- function(A, b) {
.Call("gaussSeidel", A, b)
}
x1 <- gaussSeidel(A, b)
--sundar
|