From 06ec3eced6e521437a3ee613200c7fe7e00dba6a Mon Sep 17 00:00:00 2001
From: St33v <st33v@woodenspoon.net>
Date: Thu, 16 May 2013 18:23:22 +1000
Subject: Create conversion

Added f2c (Fahrenheit to Celsius)
---
 conversion | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 conversion

diff --git a/conversion b/conversion
new file mode 100644
index 0000000..fc8d107
--- /dev/null
+++ b/conversion
@@ -0,0 +1,18 @@
+#######################################################################
+#   f2c
+#   convert evil Fahrenheit to Celcius
+#   SJP     April 2007
+f2c <- function(deg, sc='F', string=FALSE){
+#   sc == scale (default is f therefore cvt tfrom F to C)
+  sc <- substr(toupper(sc),1,1)       # clean input
+	if (sc=='F'){
+	    res <- (deg - 32) * (5/9)
+	    to <- 'C'
+	} else {
+	    res <- deg * 1.8 + 32
+	    to <- 'F'; sc <- 'C'
+	}
+	if (string) res <- sprintf('Converted from %i %1s to %i %1s.', 
+						round(deg, 0), sc, round(res, 0), to)
+	return(res)
+}
-- 
cgit v1.3