Permalink
Browse files

sigscore() sets names property on returned value

  • Loading branch information...
1 parent 881e6de commit e428f9cc05ad63b2568665ea7602ba23f086573a @b4winckler committed Jun 19, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 R/sigscore.R
View
@@ -27,6 +27,11 @@ sigscore <- function(cats, pts, quiet=FALSE)
z <- system(paste('sigscore',fname), intern=TRUE, ignore.stderr=quiet)
system(paste('rm',fname))
- as.numeric(z)
+
+ vals <- as.numeric(z)
+ if (!is.null(colnames(pts)))
+ names(vals) <- colnames(pts)
+
+ vals
}

0 comments on commit e428f9c

Please sign in to comment.