## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ------------------------------------------------------------------------
library(brainvr.reader)
dir_path <- system.file("extdata/CFNS", package = "brainvr.reader")
obj <- load_experiment(dir_path)
## ------------------------------------------------------------------------
obj <- translate_positions(obj, c(33.5, 0, 47.75))
obj <- mirror_axes(obj)
## ------------------------------------------------------------------------
#set constraints
obj$map_limits <- list(x = c(-5, 105), y = c(-5, 105))
plot_trial_path(obj, 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.