00001 00002 dyn.load("piWithInterrupts.so") 00003 #res <- .Call("PiLeibniz", n=1e9, frequency=1e6) 00004 res <- .Call("PiLeibniz", n=1e9, frequency=1e6) 00005 print(res, digits=10)