weights.R

# script detailing process for weighted scores in Runner's World dataset

# reading in the csv containing the table
dat = read.csv("data/runners-world-data.csv")

# remove the ranking column since rows are id'd 1:x
dat = dat[,2:7]

# weights provided by Runner's World
weights = c(.4,.2,.2,.1,.1)

# empty vector
weighted.total = c()

# for loop to calculate the weighted average for each row  
for(i in 1:nrow(dat)) {
  weighted.total = c(weighted.total, sum(dat[i,2:6] * weights))
}

# add column to dataframe
dat$Weighted.Score = weighted.total