Description Usage Arguments Author(s) Examples
Betfair filterEvents
1 | filterEvents(events, course, time = NULL)
|
events |
events |
course |
course |
time |
time |
colin@betwise.co.uk
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ##---- 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(events, course, time=NULL)
{
course <- paste("^",course,sep="")
j <- foreach(x=course,.combine=c) %do% grep(x, names(courseAbbrev), ignore.case=TRUE)
if(length(j)<1) return(c())
course <- courseAbbrev[j]
print(course)
j <- foreach(x=course,.combine=c) %do% grep(x, events$marketName, ignore.case=TRUE)
events[j,]
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.