when i run your code i get the exact same output but why doesn't is work with my code?
Cellcykel <-read.csv2(file.choose(),header = FALSE)
cclist <- Cellcykel$V1
cclist
length(cclist)
zd <-read.csv2(file.choose(),header = FALSE)
ZDlist <- zd$V1
ZDlist
length(ZDlist)
install.packages("VennDiagram")
venn.diagram(list("Cellcykel"=cclist, "ZD"=ZDlist),
fill = c("cyan","red"),
cex= 1.5,
filename = "C-mot-.ZD.png",
print.mode =c("raw", "percent"))
overlap <- intersect(cclist, ZDlist)
overlap
cat(paste0(overlap, collapse = "\n"))
what am i doing wrong?