noahhl · January 26, 2012 14:25
diff --git a/gistfile1.r b/gistfile1.r
 > data <- data.frame(a = c(1,2,3,4,4,5), b = c('a', 'b', 'c', 'd', 'e', 'f'))
 > data[!duplicated(data$a), ]
  a b
 1 1 a
 2 2 b
 3 3 c
 4 4 d
 6 5 f
 > data[!duplicated(data$a) & !duplicated(data$a, fromLast=T), ]
  a b
 1 1 a
 2 2 b
 3 3 c
 6 5 f
	> data <- data.frame(a = c(1,2,3,4,4,5), b = c('a', 'b', 'c', 'd', 'e', 'f'))
	> data[!duplicated(data$a), ]
	a b
	1 1 a
	2 2 b
	3 3 c
	4 4 d
	6 5 f
	> data[!duplicated(data$a) & !duplicated(data$a, fromLast=T), ]
	a b
	1 1 a
	2 2 b
	3 3 c
	6 5 f
No results found