R/TestPolicy.R

In rcss: Convex Switching Systems

## Copyright 2017 <Jeremy Yee> <jeremyyee@outlook.com.au>
## Testing the prescribed policy
################################################################################

TestPolicy <- function(position, path, control, Reward, Scrap, policy) {
    .Call('_rcss_TestPolicy', PACKAGE = 'rcss', position, path,
          control, Reward, Scrap, policy)
}