Rscript をテストした
行のラベルを動的に配置することができるか、テスト
test <- function(){
x <- matrix(1:2, nrow=1, ncol=2) # 行列
rownames(x) <- c("up") # 行
xx <-c("unchi")
xxx <-c("unchi2")
xx <- rbind ( xx, xxx )
colnames(x) <- c(xx) # 列の名前
return(x)
}
> aaa<-tesya() > aaa unchi unchi2 up 1 2
なるほどー