Update for use on beast and new output vcf4.1

old: geno(vcf_list[[19]][2])$VF
new: geno(vcf_list[[19]][2])$VF[1]

old: 
new: geno(vcf_list[[rj]][ri])$AD[[1]][2]

old: geno(vcf_list[[rj]][ri])$DP
new: info(vcf_list[[rj]][ri])$DP