blob: bf94f496391399b18165bc6997fefe8638caf0fe (
plain) (
blame)
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()
}
|
