retailPRICE$cheapestSTORE = colnames(retailPRICE)[apply(retailPRICE, 1, which.min)]
This should do it. You will get some warnings due to the names and missing values but would get the result you want.