cbind or ?

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.