gistfile1.r

# data = ...
# subjects = ...
# trials = ...
# computation = function(...)

for (subject in subjects) {
    subject_rows = data$subject == subject
    for (trial in trials) {
        rows = subject_rows & data$trial == trial
        result = computation(data[rows,])
        data$result[rows,] = result
    }
}