Wow.  That is exactly what I wanted (thread viewers see output below).  I think/hope this script will be more user friendly for my needs (RTF final output) than the loop I currently have for LaTex output.  Thanks very much A.K.  I’ll need to send you a Bundt cake at some point I suppose…  BNC

> lst1
$MWtotaleesDue
                  zeroNO    zeroYES
Mean            8.428571  0.9076923
StdError        2.496256  0.4117990
Median          7.000000  0.0000000
StdDev          6.604472  3.3200295
Min             1.000000  0.0000000
Max            17.000000 17.0000000
NinetyPct       3.593998  0.5332467
NinetyPctLower  4.834573  0.3744456
NinetyPctUpper 12.022570  1.4409390

$OTtotaleesDue
                  zeroNO    zeroYES
Mean            6.600000  1.0153846
StdError        2.242023  0.4442433
Median          3.000000  0.0000000
StdDev          7.089899  3.5816036
Min             1.000000  0.0000000
Max            23.000000 23.0000000
NinetyPct       3.100782  0.5752594
NinetyPctLower  3.499218  0.4401252
NinetyPctUpper  9.700782  1.5906440

$OTtotalBWsDue
                  zeroNO    zeroYES
Mean            559.9440   86.14523
StdError        305.7341   51.57520
Median          257.5500    0.00000
StdDev          966.8160  415.81256
Min              15.1900    0.00000
Max            3232.9700 3232.97000
NinetyPct       422.8390   66.78575
NinetyPctLower  137.1050   19.35948
NinetyPctUpper  982.7830  152.93098

$TotalBWsFD
                  zeroNO    zeroYES
Mean            693.2973  159.99169
StdError        265.0846   69.86036
Median          267.5800    0.00000
StdDev         1026.6682  563.23225
Min              15.1900    0.00000
Max            3232.9700 3232.97000
NinetyPct       356.5468   90.46357
NinetyPctLower  336.7505   69.52812
NinetyPctUpper 1049.8442  250.45526


From: arun kirshna [via R] [mailto:ml-node+s789695n4671818h70@n4.nabble.com]
Sent: Thursday, July 18, 2013 12:24 AM
To: Crombie, Burnette N
Subject: Re: combine select data from 2 dataframes sharing same variables

Hi,
Not sure if this is what you wanted:
#If columns are arranged in the same order in both data.frames.

lst1<-lapply(seq_len(ncol(StatsUTAH)),function(i) {x1<-cbind(StatsUTAH[,i],sStatsUTAH[,i]);row.names(x1)<-row.names(StatsUTAH);colnames(x1)<-c("zeroNO","zeroYES");x1})
 names(lst1)<- colnames(StatsUTAH)

A.K.





--
View this message in context: http://r.789695.n4.nabble.com/combine-select-data-from-2-dataframes-sharing-same-variables-tp4671790p4671887.html
Sent from the R help mailing list archive at Nabble.com.
	[[alternative HTML version deleted]]

