Changed vcf.R to s4