×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
#dat <- Orange
for(i in 1:ncol(dat)) {
x <- paste(colnames(dat)[i], " <- c(", paste( dat[,i], collapse=","), ")", sep="")
print(x)
}
# あまり美しくない出力
xs <- vector()
#dat <- Orange
for(i in 1:ncol(dat)) {
x <- paste(" <- c(", paste( dat[,i], collapse=","), ")", sep="")
xs[i] <- x
}
names(xs) <- colnames(dat)
xd <- data.frame(xs)
print(xd, right=F)
PR
Comment
Trackback
Trackback URL
Comment form
