Rafe's problem

d = data.frame(doc = c(1,2,3,2,2,3,4,6,5,5), 
   prepost= c(0,0,1,1,1,0,0,1,0,1))
d =d[order(d$doc),]

uu = function(u){
  u = unique(u)
  if (length(u)==2){ "III"
  } else{if (u==1) "II" else "I"}

p =  tapply(d$prepost, d$doc, FUN=uu)
d$cl = p[as.character(d$doc)]
# OR
d$cl =  tapply(d$prepost, d$doc, FUN=uu)[as.character(d$doc)]

# if missing values
d = data.frame(doc = c(1,2,1,3,2,2,3,3,4,6,5,5), 
   prepost= c(0,0,1,1,1,NA,0,0,1,NA,,0,1))

p = with(subset(d, subset=!is.na(prepost)),
   tapply(prepost, doc, FUN=uu))
d$cl = p[as.character(d$doc)]
Topic revision: r2 - 21 Nov 2006, TheresaScott

This site is powered by FoswikiCopyright © 2013-2022 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding Vanderbilt Biostatistics Wiki? Send feedback