WR: This function caculates the wicket rate vs mean number of...
In cricketr: Analyze Cricketers and Cricket Teams Based on ESPN Cricinfo Statsguru

Description Usage Arguments Details Value Note Author(s) References Examples

This function caculates the wicket rate vs mean number of deliveries

WR(file)

file

Name of file

More details can be found in my short video tutorial in Youtube https://www.youtube.com/watch?v=q9uMPFVsXsI

None

Maintainer: Tinniam V Ganesh <tvganesh.85@gmail.com>

Tinniam V Ganesh

https://www.espncricinfo.com/ci/content/stats/index.html
https://gigadom.in/

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (file) 
{
    bowler <- clean(file)
    wktRate <- NULL
    w <- NULL
    for (i in 0:max(as.numeric(as.character(bowler$Wkts)))) {
        balls <- bowler[bowler$Wkts == i, ]$Overs * 6
        if (length(balls != 0)) {
            wktRate[i] <- lapply(list(balls), mean)
            w[i] <- i
        }
    }
    a <- sapply(wktRate, is.null)
    wktRate[a] <- NaN
    wktRate
  }