|
1 | | -// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 4 -*- |
| 1 | +// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*- |
2 | 2 | // |
3 | 3 | // cauchy.h: Rcpp R/C++ interface class library -- |
4 | 4 | // |
5 | | -// Copyright (C) 2010 - 2011 Douglas Bates, Dirk Eddelbuettel and Romain Francois |
| 5 | +// Copyright (C) 2010 - 2016 Douglas Bates, Dirk Eddelbuettel and Romain Francois |
6 | 6 | // |
7 | 7 | // This file is part of Rcpp. |
8 | 8 | // |
|
25 | 25 | namespace Rcpp{ |
26 | 26 | namespace stats{ |
27 | 27 |
|
28 | | -inline double dcauchy_0(double x, int give_log){ |
29 | | - return ::Rf_dcauchy(x,0.0,1.0, give_log) ; |
| 28 | +inline double dcauchy_0(double x, int give_log) { |
| 29 | + return ::Rf_dcauchy(x,0.0,1.0, give_log) ; |
30 | 30 | } |
31 | | -inline double dcauchy_1(double x, double location, int give_log){ |
32 | | - return ::Rf_dcauchy(x,location,1.0, give_log) ; |
| 31 | + |
| 32 | +inline double dcauchy_1(double x, double location, int give_log) { |
| 33 | + return ::Rf_dcauchy(x,location,1.0, give_log) ; |
33 | 34 | } |
34 | 35 |
|
35 | | -inline double pcauchy_0(double x, int lower_tail, int log_p){ |
36 | | - return ::Rf_pcauchy(x,0.0,1.0,lower_tail, log_p) ; |
| 36 | +inline double pcauchy_0(double x, int lower_tail, int log_p) { |
| 37 | + return ::Rf_pcauchy(x,0.0,1.0,lower_tail, log_p) ; |
37 | 38 | } |
38 | | -inline double pcauchy_1(double x, double location, int lower_tail, int log_p){ |
39 | | - return ::Rf_pcauchy(x,location,1.0,lower_tail, log_p) ; |
| 39 | + |
| 40 | +inline double pcauchy_1(double x, double location, int lower_tail, int log_p) { |
| 41 | + return ::Rf_pcauchy(x,location,1.0,lower_tail, log_p) ; |
40 | 42 | } |
41 | 43 |
|
42 | | -inline double qcauchy_0(double p, int lower_tail, int log_p){ |
43 | | - return ::Rf_qcauchy(p, 0.0, 1.0, lower_tail, log_p ) ; |
| 44 | +inline double qcauchy_0(double p, int lower_tail, int log_p) { |
| 45 | + return ::Rf_qcauchy(p, 0.0, 1.0, lower_tail, log_p ) ; |
44 | 46 | } |
45 | | -inline double qcauchy_1(double p, double location, int lower_tail, int log_p){ |
46 | | - return ::Rf_qcauchy(p, location, 1.0, lower_tail, log_p ) ; |
| 47 | +inline double qcauchy_1(double p, double location, int lower_tail, int log_p) { |
| 48 | + return ::Rf_qcauchy(p, location, 1.0, lower_tail, log_p ) ; |
47 | 49 | } |
48 | 50 |
|
49 | 51 | } // stats |
|
0 commit comments