corrected LGLSXP case (with a thanking no to Kevin...)

Author: eddelbuettel

ChangeLog

@@ -1,7 +1,7 @@
 2015-01-01  Dirk Eddelbuettel  <[email protected]>
 
         * inst/include/Rcpp/sugar/functions/mean.h: Return type is double, not
-        storage type; also added logical vector case [in progress]
+        storage type; also added logical vector case 
 
 2014-12-31  Dirk Eddelbuettel  <[email protected]>
 

inst/include/Rcpp/sugar/functions/mean.h

@@ -97,11 +97,11 @@ class Mean<LGLSXP,NA,T> : public Lazy<double, Mean<LGLSXP,NA,T> > {
 
     double get() const {
         LogicalVector input = object;
-        int n = input.size();           // double pass (as in summary.c)
+        int n = input.size();       
         long double s = 0.0;
         for (int i=0; i<n; i++) {
-            if (input[i] == NA) return NA;
-            s += (input[i] == TRUE);
+            if (input[i] == NA_INTEGER) return NA_REAL;
+            s += input[i];
         }
         s /= n;                 // no overflow correction needed for logical vectors
         return (double)s;