I do not know the type of the object results, but you can use which.max. If you have a vector like x <- c("H", "D", "A") (may be column names of results as well), you can use this:
results[i] = x[which.max(c(H, D, A))]
Hope this helps.
@Jamiet9850, sorry, I made a bad mistake. Hopefully, I fixed it correctly. Please check the edited code. If it fails again, can you please provide a reprex? Otherwise, I cannot test my code.