R/FullTestPolicy.R

In rcss: Convex Switching Systems

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

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