[[Rcpp::export]]
| 84 | |
| 85 | // [[Rcpp::export]] |
| 86 | ComplexVector complex_(){ |
| 87 | ComplexVector x(10) ; |
| 88 | Rcomplex rc ; |
| 89 | for( int i=0; i<10; i++) { |
| 90 | rc.r = rc.i = i + 0.0 ; |
| 91 | x[i] = rc ; |
| 92 | } |
| 93 | return x ; |
| 94 | } |
| 95 | |
| 96 | // [[Rcpp::export]] |
| 97 | ComplexVector complex_CPLXSXP( ComplexVector x ){ |
nothing calls this directly
no outgoing calls
no test coverage detected