# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[,1:6])
rb <- tourr::basis_random(n = ncol(flea_std))
theta <- runif(1, 0, 2*pi)
phi <- runif(1, 0, 2*pi)
oblique_frame(data = flea_std, basis = rb, manip_var = 4, theta, phi)
oblique_frame(data = flea_std, basis = rb, manip_var = 4,
theta = 0, phi = 1,
lab = paste0("MyNm", 3:8), rescale_data = TRUE)
# }
Run the code above in your browser using DataLab