Running examples in 'HistData-Ex.R' failed
The error most likely occurred in:

> ### Name: PearsonLee
> ### Title: Pearson and Lee's data on the heights of parents and children
> ###   classified by gender
> ### Aliases: PearsonLee
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(PearsonLee)
> str(PearsonLee)
'data.frame':	746 obs. of  6 variables:
 $ child    : num  59.5 59.5 59.5 60.5 60.5 61.5 61.5 61.5 61.5 61.5 ...
 $ parent   : num  62.5 63.5 64.5 62.5 66.5 59.5 60.5 62.5 63.5 64.5 ...
 $ frequency: num  0.5 0.5 1 0.5 1 0.25 0.25 0.5 1 0.25 ...
 $ gp       : Factor w/ 4 levels "fd","fs","md",..: 2 2 2 2 2 2 2 2 2 2 ...
 $ par      : Factor w/ 2 levels "Father","Mother": 1 1 1 1 1 1 1 1 1 1 ...
 $ chl      : Factor w/ 2 levels "Daughter","Son": 2 2 2 2 2 2 2 2 2 2 ...
> 
> with(PearsonLee, 
+     {
+     lim <- c(55,80)
+     xv <- seq(55,80, .5)
+     sunflowerplot(parent,child, number=frequency, xlim=lim, ylim=lim, seg.col="gray", size=.1)
+     abline(lm(child ~ parent, weights=frequency), col="blue", lwd=2)
+     lines(xv, predict(loess(child ~ parent, weights=frequency), data.frame(parent=xv)), 
+           col="blue", lwd=2)
+     # NB: dataEllipse doesn't take frequency into account
+     if(require(car)) {
+     dataEllipse(parent,child, xlim=lim, ylim=lim, plot.points=FALSE)
+         }
+   })
Loading required package: car
Loading required package: carData
> 
> ## separate plots for combinations of (chl, par)
> 
> # this doesn't quite work, because xyplot can't handle weights
> require(lattice)
Loading required package: lattice
> xyplot(child ~ parent|par+chl, data=PearsonLee, type=c("p", "r", "smooth"), col.line="red")
> 
> # Using ggplot [thx: Dennis Murphy]
> require(ggplot2)
Loading required package: ggplot2
> ggplot(PearsonLee, aes(x = parent, y = child, weight=frequency)) +
+    geom_point(size = 1.5, position = position_jitter(width = 0.2)) +
+    geom_smooth(method = lm, aes(weight = PearsonLee$frequency,
+                colour = 'Linear'), se = FALSE, size = 1.5) +
+    geom_smooth(aes(weight = PearsonLee$frequency,
+                colour = 'Loess'), se = FALSE, size = 1.5) +
+    facet_grid(chl ~ par) +
+    scale_colour_manual(breaks = c('Linear', 'Loess'),
+                        values = c('green', 'red')) +
+    theme(legend.position = c(0.14, 0.885),
+         legend.background = element_rect(fill = 'white'))
Error in namespaceExport(ns, exports) : 
  undefined exports: %s!=%, %s!==%, %s+%, %s<%, %s<=%, %s==%, %s===%, %s>%, %s>=%, %stri!=%, %stri!==%, %stri+%, %stri<%, %stri<=%, %stri==%, %stri===%, %stri>%, %stri>=%, stri_datetime_add<-, stri_sub<-, stri_subset<-, stri_subset_charclass<-, stri_subset_coll<-, stri_subset_fixed<-, stri_subset_regex<-, stri_c, stri_c_list, stri_cmp, stri_cmp_eq, stri_cmp_equiv, stri_cmp_ge, stri_cmp_gt, stri_cmp_le, stri_cmp_lt, stri_cmp_neq, stri_cmp_nequiv, stri_compare, stri_conv, stri_count, stri_count_boundaries, stri_count_charclass, stri_count_coll, stri_count_fixed, stri_count_regex, stri_count_words, stri_datetime_add, stri_datetime_create, stri_datetime_fields, stri_datetime_format, stri_datetime_fstr, stri_datetime_now, stri_datetime_parse, stri_datetime_symbols, stri_detect, stri_detect_charclass, stri_detect_coll, stri_detect_fixed, stri_detect_regex, stri_dup, stri_duplicated, stri_duplicated_any, stri_enc_detect, stri_enc_detect2, stri_enc_fromutf32, stri_enc_get, stri_enc_inf
Calls: <Anonymous> ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted