Made waves.rscript an executable.

halian-vilela · Jan 23, 2012 · c5f3032 · c5f3032
1 parent ae57837
commit c5f3032
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/r/waves.rscript b/r/waves.rscript
@@ -1,3 +1,5 @@
+#!/usr/bin/env Rscript
+#
 # Quick test to see how zero-phase sine and cosine waves
 # correlate.
 #
@@ -18,6 +20,7 @@ waves <- function() {
   plot(b, type="l")
   plot(c, type="l")
 
-  print("Correlation: ")
-  print(sum(c)) # Displays a near-zero number
+  cat("Correlation: ", sum(c), "\n") # Displays a near-zero number
 }
+
+waves()