get_clusters.R in pets-0.2.4

- old
+ new

@@ -14,11 +14,11 @@
 
 )
 opt <- parse_args(OptionParser(option_list=option_list))
 
 if(!is.null(opt$npy)){
-	x_axis_labels <- read.table(paste0(opt$npy, '_x.lst'), header=FALSE, stringsAsFactors=FALSE)
-	y_axis_labels <- read.table(paste0(opt$npy, '_y.lst'), header=FALSE, stringsAsFactors=FALSE)
+	x_axis_labels <- read.table(paste0(opt$npy, '_x.lst'), header=FALSE, stringsAsFactors=FALSE, sep="\t")
+	y_axis_labels <- read.table(paste0(opt$npy, '_y.lst'), header=FALSE, stringsAsFactors=FALSE, sep="\t")
 	matrix_data <- npyLoad(opt$data_file)
 	colnames(matrix_data) <- x_axis_labels$V1
 	rownames(matrix_data) <- y_axis_labels$V1
 }else{
 	matrix_data <- read.table(opt$data_file, sep="\t", quote = '')