Solution Review: Find the Highest Achiever

findTopper <- function() 
{
    findIndexWithMaxNum <- function(myVector) # helper function that returns the index 
                                        # of the element that has the highest value
    {
        maxNumber = -Inf # We want this to be the lowest possible value for comparison
        maxIndex = 0
        index = 1
        for(i in myVector)
        {
            if(maxNumber < i)
            {
                maxNumber = i # set the max element
                maxIndex = index # set the max element's index
            }
            index = index + 1
        }
        return(maxIndex) # return the index of the max element
    }
    # MAIN FILE HANDLING CODE
    mathData = read.csv("math.csv") # fetch data from math.csv
    englishData = read.csv("english.csv") # fetch data from english.csv
    scienceData = read.csv("science.csv") # fetch data from science.csv
    tempData <- merge(mathData, englishData) # we use the merge function on data frames
    finalData <- merge(tempData, scienceData) # another merge function to merge the remaining data frame
    print(finalData)
    result <- vector("numeric", 0) # vector to store the total marks of each student
    for(student in 1:length(finalData)) # loop over all the rows/students
    {
        temp <- 0.0 # temporarily stores the total marks of the current student
        for(i in 2:ncol(finalData)){ # loop over all the columns (math, english, science)
        # We iterate from 2 to ncol(finalData) because the 1st column is just names of students
            temp <- temp + as.double(finalData[student, i]) # fetch respective student's marks
        }
        result <- c(result, temp) # store the total marks of the current student
    }
    return(findIndexWithMaxNum(result)) # return the index of the highest scoring student
}
# Driver Code
findTopper()