d1 = sort(unique(ddate_ven1),TRUE)
d2 = sort(unique(ddate_ven2),TRUE)
d3 = sort(unique(ddate_ven3),TRUE)
d4 = sort(unique(ddate_ven4),TRUE)
Qdd1 = {}
Qdd2 = {}
Qdd3 = {}
Qdd4 = {}
Qd1 = Quantity[Vendor == ven1 & Stent_type == 'DES']
Qd2 = Quantity[Vendor == ven2 & Stent_type == 'DES']
Qd3 = Quantity[Vendor == ven3 & Stent_type == 'DES']
Qd4 = Quantity[Vendor == ven4 & Stent_type == 'DES']
for(i in 1:length(d1)) {
  Qdd1 = c(Qdd1, sum(Qd1[d1==d1[i]]))
}
for(i in 1:length(d2)) {
  Qdd2 = c(Qdd2, sum(Qd2[d2==d2[i]]))
}
for(i in 1:length(d3)) {
  Qdd3 = c(Qdd3, sum(Qd3[d3==d3[i]]))
}
for(i in 1:length(d4)) {
  Qdd4 = c(Qdd4, sum(Qd4[d4==d4[i]]))
}