# personal notes
library(VennDiagram)
data=list(A=c(1,2,3,4,5,6),B=c(3,4,5,6,7),C=c(5,6,7,8,9,10)) # demo data
venn.diagram(data,”vennFigure.tiff”,fill = c(“cornflowerblue”, “green”, “yellow”)) # venn diagram saved to a file
# personal notes
library(VennDiagram)
data=list(A=c(1,2,3,4,5,6),B=c(3,4,5,6,7),C=c(5,6,7,8,9,10)) # demo data
venn.diagram(data,”vennFigure.tiff”,fill = c(“cornflowerblue”, “green”, “yellow”)) # venn diagram saved to a file
# for personal notes
@group=(0,1,2,3,4);
# generate files and file handles
foreach $i (@group){
$train[$i]=”train_$i.txt”; # file name
$FILE[$i]=”FILE”.”$i”; # file handle
open $FILE[$i],”>$train[$i]” or die;
}
# write to file
foreach $i (@group){
print {$FILE[$i]} “test\n”;
close $FILE[$i];
}