summaryrefslogblamecommitdiff
path: root/R/kinwrite.KinGUI.R
blob: bf94f496391399b18165bc6997fefe8638caf0fe (plain) (tree)
1
2
3
4
5
6
7
8
9
10
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()
}

Contact - Imprint