animal_ts <- anim_timespan(wolf_samples$AnimalRef,
                           wolf_samples$Date,
                           wolf_samples$SType,
                           dead = c("Tissue"))
sampledata <- merge(wolf_samples, animal_ts, by.x = "AnimalRef", by.y = "ID", all.x = TRUE )
path <- paste0(system.file("extdata", package = "wpeR"), "/wpeR_samplePed")
ped_colony <- get_colony(path, sampledata, rm_obsolete_parents = TRUE, out = "FamAgg")
org_tables <- org_fams(ped_colony, sampledata, output = "both")
pt <- plot_table(plot_fams = "all",
                 org_tables$fams,
                 org_tables$ped,
                 sampledata,
                 deadSample = "Tissue")

test_that("Is plot produced", {
 # test.plot <- ped_satplot(pt$Date, pt$AnimalRef, pt$plottingID, pt$GeneticSex, pt$FamID,
  #            pt$polyCluster, pt$isPolygamous, pt$rep, pt$later_rep, pt$dead)
test.plot <- ped_satplot(pt)
  expect_true(!is.null(test.plot))
})