# \donttest{
if(requireNamespace("cshapes")){
dates = c(
as.Date("1989-1-1"),
as.Date("1992-5-1"),
as.Date("1993-5-1"),
as.Date("2006-7-1"),
as.Date("2008-3-1"))
cow_codes = list(345,
c(344, 346, 349),
343,
341,
347)
bb<-c(xmin=13,ymin=40,xmax=24,ymax=47)
balkans<-cshp_mult(dates = dates, cowcodes = cow_codes,
bb = bb,jitter_labs = FALSE)
plot(balkans)
}# }
Run the code above in your browser using DataLab