1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| tab <-
structure(list(Tet = structure(1:3, .Label = c("A", "B", "C"), class = "factor"),
E1 = c(2L, 3L, 32L), E2 = c(3L, 12L, 9L)), .Names = c("Tet",
"E1", "E2"), class = "data.frame", row.names = c(NA, -3L))
tab
Tet E1 E2
1 A 2 3
2 B 3 12
3 C 32 9
tabl <- reshape(tab, varying = 2:3, idvar = "Tet", direction = "long", sep ="")
tabl
Tet time E
A.1 A 1 2
B.1 B 1 3
C.1 C 1 32
A.2 A 2 3
B.2 B 2 12
C.2 C 2 9
colnames(tabl)[2:3] <- c("E","Val")
Tet E Val
A.1 A 1 2
B.1 B 1 3
C.1 C 1 32
A.2 A 2 3
B.2 B 2 12
C.2 C 2 9 |
Partager