gistfile1.txt

// High quality
// Price range 1
gen   best_one  = .

set trace on

mkmat *_5_1, matrix(food_5_1)


forvalues i=1/56 {
	local max_5_1    = food_5_1[`i',1]
	forvalues t=1/37{
		local aux = food_5_1[`i',`t'+1]
		if (`max_5_1'<= `aux'){
			local max_5_1 = `aux'
			replace best_one = `t'+1 if _n==`i'
		}
	}
}