pubh

*

*

*

*

*

*

*

*

examples

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

> ### Name: axis_labs
> ### Title: Apply labels from variables to axis-labels in plots.
> ### Aliases: axis_labs
> 
> ### ** Examples
> 
> data(kfm, package = "ISwR")
> require(sjlabelled, quietly = TRUE)

Attaching package: 'sjlabelled'

The following object is masked from 'package:ggplot2':

    as_label

> kfm <- kfm |>
+   var_labels(
+     dl.milk = "Breast-milk intake (dl/day)",
+     sex = "Sex",
+     weight = "Child weight (kg)",
+     ml.suppl = "Milk substitute (ml/day)",
+     mat.weight = "Maternal weight (kg)",
+     mat.height = "Maternal height (cm)"
+   )
> 
> kfm |>
+   gf_point(weight ~ dl.milk) |>
+   gf_lm(col = 2, interval = "confidence", col = 2) |>
+   axis_labs()
Warning in rep(yes, length.out = len) :
  'x' is NULL so the result will be NULL
Error in ans[ypos] <- rep(yes, length.out = len)[ypos] : 
  replacement has length zero
Calls: axis_labs -> ifelse
Execution halted

*

*

*

*

*