Running examples in ‘eechidna-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: abs2001
> ### Title: 2001 Australian Census data on all 150 electorates
> ### Aliases: abs2001
> ### Keywords: datasets
> 
> ### ** Examples
> 
> library(eechidna)
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data(abs2001)
> abs2001 %>% select(DivisionNm, MedianAge, Unemployed, NoReligion, MedianPersonalIncome) %>% head()
  DivisionNm MedianAge Unemployed NoReligion MedianPersonalIncome
1   ADELAIDE        37   7.779892  19.673954                349.5
2      ASTON        34   4.722118  18.054206                449.5
3   BALLARAT        35   8.957760  18.771159                349.5
4      BANKS        37   5.301010   9.693882                349.5
5     BARKER        38   6.330406  21.711487                349.5
6     BARTON        37   5.802002  10.540373                449.5
> 
> # Join with two-party preferred voting data
> library(ggplot2)
> data(tpp01)
> election2001 <- left_join(abs2001, tpp01, by = "UniqueID")
> # See relationship between personal income and Liberal/National support
> ggplot(election2001, aes(x = MedianPersonalIncome, y = LNP_Percent)) + geom_point() + geom_smooth()
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 247
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 202.5
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  1.3749e-15
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 10000
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  pseudoinverse used at 247
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  neighborhood radius 202.5
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  reciprocal condition number  1.3749e-15
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  There are other near singularities as well. 10000
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted