more standard indentation

Author: eddelbuettel

_posts/2012-12-23-sugar-any.md

@@ -11,7 +11,6 @@ The sugar function any() answers the question, "Are any of the values ... ?".
 
 
 
-
 The any_sug() function takes a LogicalVector as an argument and allows one to
 enter an expression for the argument as shown in the R examples. In this
 example, it is simply wrapper around the sugar function any() and includes
@@ -31,7 +30,6 @@ bool any_sug(LogicalVector x){
 }
 {% endhighlight %}
 
-
 {% highlight r %}
  x <- c(3, 9, 0, 2, 7, -1, 6)
  y <- c(8, 3, 2, 6, 1, 5, 0)
@@ -80,7 +78,6 @@ bool any_sug(LogicalVector x){
 [1] TRUE
 </pre>
 
-
 While the above function may seem trivial, it can be easy to forget is_true()
 when using any() and will result in a compile error. The check_negative()
 function below is an example of a simple utility function to check if a
@@ -99,9 +96,8 @@ void check_negative(NumericVector x) {
 }
 {% endhighlight %}
 
-
 {% highlight r %}
- check_negative(x)
+check_negative(x)
 {% endhighlight %}
 
 
@@ -113,12 +109,11 @@ The vector contains negative numbers
 
 
 {% highlight r %}
- check_negative(y)
+check_negative(y)
 {% endhighlight %}
 
 
 
 <pre class="output">
 The vector does not contain negative numbers
 </pre>
-

_posts/2012-12-23-sugar-diff.md

@@ -9,7 +9,6 @@ src: 2012-12-23-sugar-diff.cpp
 ---
 
 
-
 The sugar function diff() computes the difference of consecutive elements
 (i.e. lag = 1) of the input vector. Note that the size of the vector returned
 is one less than the input vector. The sugar function diff() works the same
@@ -25,10 +24,9 @@ NumericVector diff_sug(NumericVector x){
 }
 {% endhighlight %}
 
-
 {% highlight r %}
- x <- rnorm(10)
- diff_sug(x)
+x <- rnorm(10)
+diff_sug(x)
 {% endhighlight %}
 
 
@@ -41,8 +39,8 @@ NumericVector diff_sug(NumericVector x){
 
 
 {% highlight r %}
- # base R function
- diff(x)
+# base R function
+diff(x)
 {% endhighlight %}
 
 
@@ -52,7 +50,6 @@ NumericVector diff_sug(NumericVector x){
 [9]  1.66974
 </pre>
 
-
 One can use the diff() function to compute one period simple returns of stock
 prices.
 
@@ -70,12 +67,11 @@ NumericVector ret_simple(NumericVector x) {
 }
 {% endhighlight %}
 
-
 {% highlight r %}
- # Close prices of S&P 500
- y <- c(1418.55, 1427.84, 1428.48, 1419.45, 1413.58, 
-        1430.36, 1446.79, 1435.81, 1443.69, 1430.15)
- ret_simple(y)
+# Close prices of S&P 500
+y <- c(1418.55, 1427.84, 1428.48, 1419.45, 1413.58, 
+       1430.36, 1446.79, 1435.81, 1443.69, 1430.15)
+ret_simple(y)
 {% endhighlight %}
 
 
@@ -84,4 +80,3 @@ NumericVector ret_simple(NumericVector x) {
  [1]         NA  0.0065489  0.0004482 -0.0063214 -0.0041354  0.0118706
  [7]  0.0114866 -0.0075892  0.0054882 -0.0093787
 </pre>
-

src/2012-12-23-sugar-any.cpp

@@ -56,6 +56,6 @@ void check_negative(NumericVector x) {
 }
 
 /*** R
- check_negative(x)
- check_negative(y)
+check_negative(x)
+check_negative(y)
  */

src/2012-12-23-sugar-diff.cpp

@@ -22,10 +22,10 @@ NumericVector diff_sug(NumericVector x){
 }
 
 /*** R
- x <- rnorm(10)
- diff_sug(x)
- # base R function
- diff(x)
+x <- rnorm(10)
+diff_sug(x)
+# base R function
+diff(x)
 */
 
 /**
@@ -46,8 +46,8 @@ NumericVector ret_simple(NumericVector x) {
 }
 
 /*** R
- # Close prices of S&P 500
- y <- c(1418.55, 1427.84, 1428.48, 1419.45, 1413.58, 
-        1430.36, 1446.79, 1435.81, 1443.69, 1430.15)
- ret_simple(y)
+# Close prices of S&P 500
+y <- c(1418.55, 1427.84, 1428.48, 1419.45, 1413.58, 
+       1430.36, 1446.79, 1435.81, 1443.69, 1430.15)
+ret_simple(y)
  */