| 728 | {} |
| 729 | |
| 730 | return_vector get() const { |
| 731 | R_xlen_t i, j, nr = ref.nrow(), nc = ref.ncol(); |
| 732 | return_vector res(nc); |
| 733 | |
| 734 | for (j = 0; j < nc; j++) { |
| 735 | for (i = 0; i < nr; i++) { |
| 736 | detail::incr(&res[j], ref(i, j)); |
| 737 | } |
| 738 | } |
| 739 | |
| 740 | for (j = 0; j < nc; j++) { |
| 741 | detail::div(&res[j], nr); |
| 742 | } |
| 743 | |
| 744 | return res; |
| 745 | } |
| 746 | }; |
| 747 | |
| 748 | // ColMeans |