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.
