20101019 - waseda2bun_r @ ウィキ

 

x <- read.table("20101019.csv",sep=",",skip=1) x1 <- x$V1 x2 <- x$V2 x3 <- x$V3 x4 <- x$V4 t_X <- rbind(x2,x3,x4) X_ <- t(t_X)