From: Sundar Dorai-Raj <sundar.dorai-raj_at_pdf.com>

Date: Tue 20 Jul 2004 - 04:03:39 EST

nuniq <- function(x) length(unique(x))

as.numeric(apply(as.matrix(x), 1, nuniq) == 1)

R-help@stat.math.ethz.ch mailing list

https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Tue Jul 20 04:13:32 2004

Date: Tue 20 Jul 2004 - 04:03:39 EST

> Dear All,

*>
**>
**>
**> I have a data frame with n columns: X1, X2, ., Xn. Now I want to create a
**> new column: if X1 = X2 = . = Xn, the value is 1; Otherwise, the value is 0.
**>
**>
**>
**> How to do that in a quick way instead of doing (n choose 2) comparisons?
**>
**>
**>
**> Thank you,
**>
**>
**>
**> Frank
**>
**>
*

x <- data.frame(X1 = c(1, 1, 2, 4),

X2 = c(4, 1, 2, 5), X3 = c(2, 1, 2, 2))

nuniq <- function(x) length(unique(x))

as.numeric(apply(as.matrix(x), 1, nuniq) == 1)

--sundar

R-help@stat.math.ethz.ch mailing list

https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Tue Jul 20 04:13:32 2004

*
This archive was generated by hypermail 2.1.8
: Wed 03 Nov 2004 - 22:55:05 EST
*