From 6a70e7a4dbc157bcf0e4a6b35ecc49c0cc1f2419 Mon Sep 17 00:00:00 2001
From: einarr <einarr@pvv.ntnu.no>
Date: Sun, 6 Mar 2011 14:32:37 +0000
Subject: [PATCH] Removed old laydi.R

---
 R/laydi.R | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 R/laydi.R

diff --git a/R/laydi.R b/R/laydi.R
deleted file mode 100644
index 22d1fa3..0000000
--- a/R/laydi.R
+++ /dev/null
@@ -1,30 +0,0 @@
-
-write.ftsv <- function(data, con, name="unnamed_dataset", rowdim="rows", coldim="cols") {
-    # If con is a file name, open it 
-    opened.here = FALSE
-    if (is.character(con)){
-        con = file(con, "w")
-        opened.here = TRUE 
-    }
-    
-    # Substitute all whitespace with underscores in identifiers 
-    rows <- paste(gsub("\\s", "_", rownames(data)), collapse=" ")
-    cols <- paste(gsub("\\s", "_", colnames(data)), collapse=" ")
-
-    # Write header 
-    writeLines(c("# type: dataset", 
-                 paste("# dimension:", rowdim, rows, collapse=' '), 
-                 paste("# dimension:", coldim, cols, collapse=' '), 
-                 paste("# name:", name, collapse=' '),
-                 ""),
-               con=con)
-
-    # Write matrix 
-    write.table(data, file=con, col.names=FALSE, row.names=FALSE, sep="\t")
-
-    # If con was a string, close file now 
-    if (opened.here)
-        close(con)
-}
-
-