fixing 2 parameter mapply