Jay,
Thanks much for the reply. I think you are right about the prob.
Unfortunately, I was not able to find the old emails I had discussing the use
of the more powerful setdiff that essentially inherits from the base class R
setdiff functionality but extends that functionality by now working with
data.frames instead of just a simple array of values. Love this functionality.
However, for the following example,
Test1_DF<-data.frame(HouseSize=c(1:100), LandLocation=c("Here"))
Test1_DF<-data.frame(HouseSize=c(1:100), LandLocation=c("Here"), Price =
c("Low"))
Test2_DF<-rbind(Test1_DF, Test1_DF)
setdiff(Test1_DF, Test2_DF)
[1] HouseSize LandLocation Price
<0 rows> (or 0-length row.names)
> setdiff(Test2_DF, Test1_DF)
[1] HouseSize LandLocation Price
<0 rows> (or 0-length row.names)
I was hoping for this example one of the setdiff's would have returned
essentially Test1_DF, since it is duplicated and that is what is different
between the two dataframes.
So, I guess I am trying to figure out a way to truely diff the dataframes, i.e.
determine when two data.frames are different from one another and then receive
the output of the results.
Does this capability exist in a function within a current R package or does it
exist within a typically used pattern to create this functionality?
Thanks again for any feedback you can provide.
Also, I tried to determine my Session Info and the packages I have loaded, but
I received the following:
> sessionInfo()
Error in x$Priority : $ operator is invalid for atomic vectors
In addition: There were 12 warnings (use warnings() to see them)
> warnings()
Warning messages:
1: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'prob' is missing or broken
2: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'ggplot2' is missing or broken
3: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'reshape' is missing or broken
4: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'RColorBrewer' is missing or broken
5: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'proto' is missing or broken
6: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'plyr' is missing or broken
7: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'nortest' is missing or broken
8: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'fBasics' is missing or broken
9: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'timeSeries' is missing or broken
10: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'timeDate' is missing or broken
11: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'vcd' is missing or broken
12: In FUN(c("prob", "ggplot2", "reshape", "RColorBrewer", ... :
DESCRIPTION file of package 'colorspace' is missing or broken
However, I typically load the following ones:
library(colorspace, lib.loc=RLibraryPathLocation)
library(vcd, lib.loc=RLibraryPathLocation)
library(timeDate, lib.loc=RLibraryPathLocation)
library(timeSeries, lib.loc=RLibraryPathLocation)
library(fBasics, lib.loc=RLibraryPathLocation)
library(nortest, lib.loc=RLibraryPathLocation)
library(plyr, lib.loc=RLibraryPathLocation)
library(proto, lib.loc=RLibraryPathLocation)
library(RColorBrewer, lib.loc=RLibraryPathLocation)
library(reshape, lib.loc=RLibraryPathLocation)
library(ggplot2, lib.loc=RLibraryPathLocation)
library(prob, lib.loc=RLibraryPathLocation)
--- On Fri, 5/29/09, G. Jay Kerns <gke...@ysu.edu> wrote:
> From: G. Jay Kerns <gke...@ysu.edu>
> Subject: Re: [R] Odd Behavior Out of setdiff(...) - addition of duplicate
> entries is not identified
> To: "Jason Rupert" <jasonkrup...@yahoo.com>
> Cc: R-help@r-project.org
> Date: Friday, May 29, 2009, 3:21 PM
> Dear Jason,
>
> On Fri, May 29, 2009 at 2:48 PM, Jason Rupert <jasonkrup...@yahoo.com>
> wrote:
> >
> > I think I am using the improved version of
> setdiff(...) that handles data.frames, so I think some odd
> behavior was expected but this one is escaping me.
> >
> > It appears that the the addition of duplicate entries
> is not caught by the setdiff(...). Is this expected
> behavior?
>
> [snip]
>
> > Thanks in advance for any feedback.
> >
> > Test1_DF<-data.frame(HouseSize=c(1:100))
> > Test2_DF<-rbind(Test1_DF, Test1_DF)
> > setdiff(Test1_DF, Test2_DF)
> > integer(0)
> > setdiff(Test2_DF, Test1_DF)
> > integer(0)
> >
> > However,
> > Test3_DF<-data.frame(HouseSize=c(1:25))
> > setdiff(Test1_DF, Test3_DF)
> > [1] 26 27 28 29 30 31 32 33 34
> 35 36 37 38 39 40 41
> > [17] 42 43 44 45 46 47 48 49 50 51
> 52 53 54 55 56 57
> > [33] 58 59 60 61 62 63 64 65 66 67
> 68 69 70 71 72 73
> > [49] 74 75 76 77 78 79 80 81 82 83
> 84 85 86 87 88 89
> > [65] 90 91 92 93 94 95 96 97 98 99
> 100
> >
> > setdiff(Test3_DF, Test1_DF)
> > integer(0)
>
>
> You didn't explicitly say which "improved version" of
> setdiff() that
> you are using, so I can only presume that you are using
> the
> setdiff.data.frame in the prob package.
>
> The behaviour you are observing is expected and matches
> the
> base:::setdiff behaviour in the case of vectors; cf.
>
> x1 <- c(1:100)
> x2 <- c(x1,x1)
>
> setdiff(x1, x2) # integer(0)
> setdiff(x2, x1) # integer(0)
>
> x3 <- c(1:25)
> setdiff(x1, x3) # 26:100
> setdiff(x3, x1) # integer(0)
>
>
> >
> > If so, is there another method or approach that should
> be used to identify duplicate row entries between two
> different data frames?
> >
>
> The R-help archives are chock full of every possible
> variant of
> questions (and answers) about this, and you haven't said
> _exactly_
> what you are looking for. In the absence of an already
> posted
> solution, please specify exactly what you want and I'll
> wager an R
> Ninja could dispatch it in moments.
>
> Regards,
> Jay
>
>
>
>
>
>
>
>
>
> ***************************************************
> G. Jay Kerns, Ph.D.
> Associate Professor
> Department of Mathematics & Statistics
> Youngstown State University
> Youngstown, OH 44555-0002 USA
> Office: 1035 Cushwa Hall
> Phone: (330) 941-3310 Office (voice mail)
> -3302 Department
> -3170 FAX
> E-mail: gke...@ysu.edu
> http://www.cc.ysu.edu/~gjkerns/
>
______________________________________________
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.
