R-code für VPPS