df <- data.frame("BW" = seq(1, 100, by = 1), "FFM" = seq(1, 100, by = 1))

df$PCT = df$FFM / df$BW

head(df,n=60)