Try this: `class<-`(lapply(1:length(QuanImpUnsold), function(idx)c(QuanImpUnsold[[idx]], PARCELS[[idx]])), "by")
On Fri, Jan 15, 2010 at 5:06 PM, L.A. <ro...@millect.com> wrote: > > > Hey Guys, > It sure seems I get stuck on things that should be easy. > Heres my question: > > PARCELS<-by(ResImp[ , "ACCOUNTNO"], ResImp["Property"], length) > >> PARCELS > Property: UNSOLD > [1] 9053 > ------------------------------------------------------------------------------------------- > Property: SOLD > [1] 578 > ------------------------------------------------------------------------------------------- > Property: SubSale > [1] 52 > > > QuanImpUnsold<-with(ResImp, by(Appraisal, Property, > FUN=function(x)quantile(x, > probs = c(1,25,50,75,90)/100))) > >> QuanImpUnsold > Property: UNSOLD > 1% 25% 50% 75% 90% > 18106.4 92817.0 131794.0 185742.0 262365.0 > ------------------------------------------------------------------------------------------- > Property: SOLD > 1% 25% 50% 75% 90% > 35335.65 105034.25 138967.00 181971.25 254946.00 > ------------------------------------------------------------------------------------------- > Property: SubSale > 1% 25% 50% 75% 90% > 37255.72 117055.50 149314.00 196207.00 259288.60 > > > tb<-cbind(PARCELS, QuanImpUnsold) > > tb > PARCELS QuanImpUnsold > UNSOLD 9053 Numeric,5 > SOLD 578 Numeric,5 > SubSale 52 Numeric,5 > > This is what I want > >> tb > Property: UNSOLD > Parcels 1% 25% 50% 75% 90% > 9053 18106.4 92817.0 131794.0 185742.0 262365.0 > ------------------------------------------------------------------------------------------- > Property: SOLD > Parcels 1% 25% 50% 75% 90% > 578 35335.65 105034.25 138967.00 181971.25 254946.00 > ------------------------------------------------------------------------------------------- > Property: SubSale > Parcels 1% 25% 50% 75% 90% > 52 37255.72 117055.50 149314.00 196207.00 259288.60 > > Any suggestions? > Thanks, > L.A. > > Don't know if this helps: >> str(PARCELS) > 'by' int [1:3(1d)] 9053 578 52 > - attr(*, "dimnames")=List of 1 > ..$ Property: chr [1:3] "UNSOLD" "SOLD" "SubSale" > - attr(*, "call")= language by.default(data = ResImp[, "ACCOUNTNO"], > INDICES = ResImp["Property"], FUN = length) > >> str(QuanImpUnsold) > List of 3 > $ UNSOLD : Named num [1:5] 18106 92817 131794 185742 262365 > ..- attr(*, "names")= chr [1:5] "1%" "25%" "50%" "75%" ... > $ SOLD : Named num [1:5] 35336 105034 138967 181971 254946 > ..- attr(*, "names")= chr [1:5] "1%" "25%" "50%" "75%" ... > $ SubSale: Named num [1:5] 37256 117056 149314 196207 259289 > ..- attr(*, "names")= chr [1:5] "1%" "25%" "50%" "75%" ... > - attr(*, "dim")= int 3 > - attr(*, "dimnames")=List of 1 > ..$ Property: chr [1:3] "UNSOLD" "SOLD" "SubSale" > - attr(*, "call")= language by.default(data = Appraisal, INDICES = > Property, FUN = function(x) quantile(x, probs = c(1, 25, 50, 75, > 90)/100)) > - attr(*, "class")= chr "by" > > -- > View this message in context: > http://n4.nabble.com/cbind-or-tp1015187p1015187.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.