1 files changed, 11 insertions, 0 deletions
diff --git a/R/kinwrite.KinGUI.R b/R/kinwrite.KinGUI.R
new file mode 100644
index 0000000..bf94f49
--- /dev/null
+++ b/R/kinwrite.KinGUI.R
@@ -0,0 +1,11 @@
+kinwrite.KinGUI <- function(kinobject, file, comment=NA)
+{
+	sink(file)
+	cat("Version:\t1.1\n")
+	cat("Project:\t", kinobject$parent, "\n", sep = "")
+	cat("Testsystem:\t", kinobject$type, "\n", sep = "")
+	cat("Comment:\t", comment, "\n", sep = "")
+	write.table(kinobject$data, sep = "\t", na = "NaN", 
+                quote = FALSE, row.names = FALSE)
+	sink()
+}