Displaying 1 result from an estimated 1 matches for "takedastack".
2009 Feb 13
0
help with reshaping (no file attached)
...Figure 1 - Takeda2_nas.csv
Trying to get data in suitable format for Genstat
#clear console
rm(list=ls())
install.packages("reshape")
library(reshape)
#Read in data
#Takeda <-
read.table("Takeda2_nas.csv", sep = ",", header = TRUE,
row.names = 1)
#Takedastack <-
cbind(Takeda[gl(nrow(Takeda), 1, 40*nrow(Takeda)), 1], stack(Takeda[, 1:41]))
zz <-
read.csv("Takeda2_nas.csv",strip.white = TRUE)
#zzz <-
cbind(zz[gl(nrow(zz), 1, 40*nrow(zz)), 1], stack(zz[, 2:41]))
#Use reshape function to
change data
zzz <-
reshape(zz,varying=...