more indentation fixes

Author: eddelbuettel

_posts/2012-12-27-stl-inner-product.md

@@ -12,7 +12,6 @@ One useful function is `inner_product` which can be used to compute
 the sum oof the elements of two vectors.
 
 
-
 {% highlight cpp %}
 #include <Rcpp.h>
 #include <numeric>
@@ -25,11 +24,10 @@ double innerProduct(const std::vector<double>& x,
 }
 {% endhighlight %}
 
-
 {% highlight r %}
-  x <- c(1,2,3)
-  y <- c(4,5,6)
-  cbind(x,y)
+x <- c(1,2,3)
+y <- c(4,5,6)
+cbind(x,y)
 {% endhighlight %}
 
 
@@ -44,8 +42,7 @@ double innerProduct(const std::vector<double>& x,
 
 
 {% highlight r %}
-
-  innerProduct(x, y)
+innerProduct(x, y)
 {% endhighlight %}
 
 
@@ -57,7 +54,7 @@ double innerProduct(const std::vector<double>& x,
 
 
 {% highlight r %}
-  sum(x*y)  # check from R
+sum(x*y)  # check from R
 {% endhighlight %}
 
 
@@ -68,9 +65,8 @@ double innerProduct(const std::vector<double>& x,
 
 
 
-
 {% highlight r %}
-  innerProduct(x, x)
+innerProduct(x, x)
 {% endhighlight %}
 
 
@@ -82,12 +78,11 @@ double innerProduct(const std::vector<double>& x,
 
 
 {% highlight r %}
-  sum(x^2)
+sum(x^2)
 {% endhighlight %}
 
 
 
 <pre class="output">
 [1] 14
 </pre>
-

src/2012-12-27-stl-inner-product.cpp

@@ -22,19 +22,19 @@ double innerProduct(const std::vector<double>& x,
 }
 
 /*** R
-  x <- c(1,2,3)
-  y <- c(4,5,6)
-  cbind(x,y)
+x <- c(1,2,3)
+y <- c(4,5,6)
+cbind(x,y)
 
-  innerProduct(x, y)
-  sum(x*y)  # check from R
+innerProduct(x, y)
+sum(x*y)  # check from R
 */
 
 /** 
   * Similarly, we can use it compute a sum of squares:
   */
 
 /*** R
-  innerProduct(x, x)
-  sum(x^2)
+innerProduct(x, x)
+sum(x^2)
 */