Jean: Thanks!
Works great!
Lars
Op 27 sep. 2011 (w39), om 17:22 heeft Jean V Adams [via R] het volgende
geschreven:
df <- as.data.frame(unclass(xt))
dfu <- unique(df)
class_cnt <- apply(dfu, 1, sum)
subject_cnt <- tabulate(match(apply(df, 1, paste, collapse="-"),
apply(dfu, 1, pa
Metronome123 wrote on 09/27/2011 07:24:50 AM:
>
> Startsituation:
>
> structure(c(1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1,
> 0, 1, 1), .Dim = 4:5, .Dimnames = structure(list(subject = c("s1",
> "s2", "s3", "s4"), class = c("c1", "c2", "c3", "c4", "c5")), .Names =
> c("subject",
> "c
Startsituation:
structure(c(1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1,
0, 1, 1), .Dim = 4:5, .Dimnames = structure(list(subject = c("s1",
"s2", "s3", "s4"), class = c("c1", "c2", "c3", "c4", "c5")), .Names =
c("subject",
"class")), class = c("xtabs", "table"), call = xtabs(formula = ~s
3 matches
Mail list logo