sim.sampling.name <- system.file("extdata", "sim.sampling.shp",
package="sandwichr")
sim.ssh.name <- system.file("extdata", "sim.ssh.shp",
package="sandwichr")
sim.reporting.name <- system.file("extdata", "sim.reporting.shp",
package="sandwichr")
sim.data <- load.data.shp(sampling.file=sim.sampling.name,
ssh.file=sim.ssh.name,
reporting.file=sim.reporting.name)
Run the code above in your browser using DataLab