bc.sampling_ssh.name <- system.file("extdata", "bc_sampling_ssh.csv",
package="sandwichr")
bc.reporting_ssh.name <- system.file("extdata", "bc_reporting_ssh.csv",
package="sandwichr")
bc.data <- load.data.txt(sampling_ssh.file=bc.sampling_ssh.name,
reporting_ssh.file=bc.reporting_ssh.name)
Run the code above in your browser using DataLab