Added skeleton for transfer functions

1 files changed, 10 insertions, 0 deletions

diff --git a/R/tf.R b/R/tf.R
new file mode 100644
index 0000000..135a2d7
--- /dev/null
+++ b/R/tf.R
@@ -0,0 +1,10 @@
+# S3 class for defining trasnfer functions
+tf <- function(num=c(1),den=c(1),Ts=1){
+  
+}
+
+# Display the Transfer Function
+print.tf <- function(G){
+  
+}
+