3
3
// lower_tri.h: Rcpp R/C++ interface class library -- lower.tri
4
4
//
5
5
// Copyright (C) 2010 - 2017 Dirk Eddelbuettel and Romain Francois
6
- // Copyright (C) 2017 Dirk Eddelbuettel, Romain Francois, and Nathan Russell
6
+ // Copyright (C) 2017 Dirk Eddelbuettel, Romain Francois, and Nathan Russell
7
7
//
8
8
// This file is part of Rcpp.
9
9
//
@@ -29,39 +29,39 @@ namespace sugar {
29
29
template <int RTYPE, bool NA, typename T>
30
30
class LowerTri : public MatrixBase <LGLSXP, false , LowerTri<RTYPE, NA, T> > {
31
31
public:
32
- typedef Rcpp::MatrixBase<RTYPE, NA, T> MatBase;
32
+ typedef Rcpp::MatrixBase<RTYPE, NA, T> MatBase;
33
33
34
- LowerTri (const T& lhs, bool diag)
35
- : nr(lhs.nrow()),
34
+ LowerTri (const T& lhs, bool diag)
35
+ : nr(lhs.nrow()),
36
36
nc (lhs.ncol()),
37
- getter(diag ? (&LowerTri::get_diag_true) : (&LowerTri::get_diag_false))
37
+ getter(diag ? (&LowerTri::get_diag_true) : (&LowerTri::get_diag_false))
38
38
{}
39
39
40
- inline int operator ()(int i, int j) const { return get (i, j); }
40
+ inline int operator ()(int i, int j) const { return get (i, j); }
41
41
42
- inline R_xlen_t size () const { return static_cast <R_xlen_t>(nr) * nc; }
43
- inline int nrow () const { return nr; }
44
- inline int ncol () const { return nc; }
42
+ inline R_xlen_t size () const { return static_cast <R_xlen_t>(nr) * nc; }
43
+ inline int nrow () const { return nr; }
44
+ inline int ncol () const { return nc; }
45
45
46
46
private:
47
- typedef bool (LowerTri::*Method)(int , int ) const ;
47
+ typedef bool (LowerTri::*Method)(int , int ) const ;
48
48
49
- int nr, nc;
50
- Method getter;
49
+ int nr, nc;
50
+ Method getter;
51
51
52
- inline bool get_diag_true (int i, int j) const { return i >= j; }
52
+ inline bool get_diag_true (int i, int j) const { return i >= j; }
53
53
54
- inline bool get_diag_false (int i, int j) const { return i > j; }
54
+ inline bool get_diag_false (int i, int j) const { return i > j; }
55
55
56
- inline bool get (int i, int j) const { return (this ->*getter)(i, j); }
56
+ inline bool get (int i, int j) const { return (this ->*getter)(i, j); }
57
57
};
58
58
59
59
} // sugar
60
60
61
61
template <int RTYPE, bool NA, typename T>
62
62
inline sugar::LowerTri<RTYPE, NA, T>
63
63
lower_tri (const Rcpp::MatrixBase<RTYPE, NA, T>& lhs, bool diag = false ) {
64
- return sugar::LowerTri<RTYPE, NA, T>(lhs, diag);
64
+ return sugar::LowerTri<RTYPE, NA, T>(lhs, diag);
65
65
}
66
66
67
67
} // Rcpp
0 commit comments