ames = c("1100", "4",
"1094", "632", "176", "187", "192", "495", "71", "343", "930"
))
(d1 <-melt(xx, id= c("SibID")))
dcast(d1, SibID ~ variable, min)
------------
ames = c("1100", "4",
"1094", "632", "176", "187", "192", "495", "71", "343", "930"
))
(d1 <-melt(xx, id= c("SibID")))
dcast(d1, SibID ~ variable, min)
------------
Solved it:
oldest<-unlist(tapply(warmerge$birth.year, warmerge$SibID,function(x)
ifelse (x==min(x, na.rm=T)|is.na(x)==T,1,0)))
-
Corey Sparks, PhD
Assistant Professor
Department of Demography and Organization Studies
University of Texas at San Antonio
501 West Durango Blvd
Monterey Build
Dear list,
I have some data on a geneaology, here is a subset:
warmerge[1:11,c(1,6,25)]
Warrior SibID birth.year
11003793 2013 1926
4 2013 2024 1934
10943769 2024 1918
632 2747 2037 1928
176 2083 2039 1944
187 2085 2039 1949
4 matches
Mail list logo