| 215 | /* General Support Functions */ |
| 216 | #ifndef HAVE_HYPOT |
| 217 | inline double hypot(double a, double b) { return ::Rf_hypot(a, b); } |
| 218 | #endif |
| 219 | /* Gone since R 2.14.0 according to Brian Ripley and is now comment out per his request */ |
| 220 | /* inline double pythag(double a, double b) { return ::Rf_pythag(a, b); } */ |
no outgoing calls
no test coverage detected