Permalink
Branch: master
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (11 sloc) 214 Bytes
library(xlsx)
wd <- dirname(parent.frame(2)$ofile)
setwd(wd)
sheet <- read.xlsx("excel_data.xlsx",1, header = FALSE)
sheet
A <- sheet[,1]
B <- sheet[,2]
intersect(A, B)
union(A, B)
setdiff(A, B)
setdiff(B, A)