# NOT RUN {
rb <- basis_random(4, 2)
view_basis(basis = rb)
flea_std <- tourr::rescale(tourr::flea[, 1:4])
view_basis(basis = rb, data = flea_std)
view_basis(basis = rb, data = flea_std, axes = "bottomleft")
# }
Run the code above in your browser using DataLab