Try this: Dataset$LLCI<-with(Dataset, ave(Rcil, LEAID, Property, FUN = function(x)max(x, na.rm = TRUE)))
On Wed, Dec 30, 2009 at 2:44 PM, L.A. <ro...@millect.com> wrote: > > > I've searched and tried several ideas (na.action. and other things), but I > can't see > to figure this out. > I'm guessing this is so simple I'll feel foolish for asking, but here goes. > Thanks, > L.A. > > Dataset$Rcil=with(Dataset, ifelse(Rpr >= .95, Dataset[,"percentchgn"], NA)) > > Dataset$LLCI<-with(Dataset, ave(Rcil, LEAID, Property, > FUN=function(x)max(x))) > > > LEAID percentchgn Property Rpr Rcil LLCI > 12 2036 12.190220 UNSOLD 0.9999237 12.190220 16.09097 > 13 2036 14.741559 UNSOLD 0.9992714 14.741559 16.09097 > 14 2036 15.882518 UNSOLD 0.9955750 15.882518 16.09097 > 15 2036 16.090965 UNSOLD 0.9807892 16.090965 16.09097 > 34 2201 -6.542363 UNSOLD -1.0000000 NA NA > 55 2201 -5.060431 UNSOLD 0.9848659 -5.060431 NA > 56 2201 -5.056231 UNSOLD 0.9699841 -5.056231 NA > 57 2201 -4.994895 UNSOLD 0.9441028 NA NA > 58 2201 -4.982279 UNSOLD 0.9020456 NA NA > 99 2202 -8.982821 UNSOLD -1.0000000 NA NA > 241 2202 9.704573 UNSOLD -1.0000000 NA NA > 242 2202 10.447709 UNSOLD 0.9999237 10.447709 NA > 243 2202 12.616943 UNSOLD 0.9992714 12.616943 NA > 244 2202 12.943887 SOLD 0.9955750 12.943887 NA > 245 2202 13.774406 SOLD 0.9807892 13.774406 NA > 246 2202 15.007848 SOLD 0.9364319 NA NA > 333 2333 2.099854 UNSOLD 0.7853246 NA NA > 333 2333 2.343452 UNSOLD 0.7853246 NA NA > > > What I'm trying to accomplish is: > > LEAID percentchgn Property Rpr Rcil LLCI > 12 2036 12.190220 UNSOLD 0.9999237 12.190220 16.09097 > 13 2036 14.741559 UNSOLD 0.9992714 14.741559 16.09097 > 14 2036 15.882518 UNSOLD 0.9955750 15.882518 16.09097 > 15 2036 16.090965 UNSOLD 0.9807892 16.090965 16.09097 > 34 2201 -6.542363 UNSOLD -1.0000000 NA -5.056231 > 55 2201 -5.060431 UNSOLD 0.9848659 -5.060431 -5.056231 > 56 2201 -5.056231 UNSOLD 0.9699841 -5.056231 -5.056231 > 57 2201 -4.994895 UNSOLD 0.9441028 NA -5.056231 > 58 2201 -4.982279 UNSOLD 0.9020456 NA -5.056231 > 99 2202 -8.982821 UNSOLD -1.0000000 NA 12.616943 > 241 2202 9.704573 UNSOLD -1.0000000 NA 12.616943 > 242 2202 10.447709 UNSOLD 0.9999237 10.447709 12.616943 > 243 2202 12.616943 UNSOLD 0.9992714 12.616943 12.616943 > 244 2202 12.943887 SOLD 0.9955750 12.943887 13.774406 > 245 2202 13.774406 SOLD 0.9807892 13.774406 13.774406 > 246 2202 15.007848 SOLD 0.9364319 NA 13.774406 > 333 2333 2.099854 UNSOLD 0.7853246 NA NA > 333 2333 2.343452 UNSOLD 0.7853246 NA NA > -- > View this message in context: > http://n4.nabble.com/NA-or-work-around-tp991019p991019.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
