tests/testthat/test_plot3d.r

context('test_plot3d')

data(sinkhole)

test_that('Test Plotting 3D Single Profile', {
  plot3d(sinkhole@profiles[[1]])
})

test_that('Test Plotting 3D Profile Set', {
  plot3d(sinkhole)
})
kleebaum/geoelectrics documentation built on Feb. 5, 2023, 5:01 a.m.