Score - weird values

[QuentinRa]

The score can take some weird values, such as 8100.0062612 so maybe make a better function.

This sample might help

score <- function (s, g, t, dd, ns, fe, fa){
  score <- s - g
  if (score > 0){
    score <- ifelse(s > 10000 * 2, sqrt(s), s)
    score <- score + score * (1 / log(t))
    score <- score + sqrt(dd / t)
    score <- score + score * (1 / log(ns))
    if( g > 1 ) score <- score - score / log2(g^2)
  }
  if(fe + fa < 10) score <- score / 2
  round(score)
}

score(2322992,1,129,154381563207,400,10,10 )

for (i in sample(1:10000, 50)){
  cat("i=",i, " for ",
    score(10032,i, sample(1:700,1), sample(
      50000:3000000, 1
    ),sample(0:300, 1),350,170 ),
      "\n"
  )
}

[DataSaiyentist]