Update vcf.R

Added sample names