df <- data.frame("score" = 5, "slr" = 20)
interpret_slr(df)
df <- data.frame("score" = 0.12, "slr" = 0.5)
interpret_slr(df)
df <- data.frame("score" = 1, "slr" = 1)
interpret_slr(df)
df <- data.frame("score" = 0, "slr" = 0)
interpret_slr(df)
Run the code above in your browser using DataLab