# First create an engine
set.seed(123)
engine <- createEngine(
dimension = 2,
lowerBounds = c(-1, -1),
upperBounds = c(1, 1),
seed = 123,
mean = c(0, 0),
precision = diag(2)
)
# Draw a single Markovian zigzag sample
position <- c(0.1, -0.2)
travel_time <- 0.5
sample_result <- getMarkovianZigzagSample(
position = position,
engine = engine,
travelTime = travel_time
)
sample_result
Run the code above in your browser using DataLab