inst/examples/ggplot/ggplotexample.R

In covafillr: Local Polynomial Regression of State Dependent Covariates in State-Space Models

library(ggplot2)
library(covafillr)

x <- seq(-2,2,len=300)
pol <- function(x)1 + 0.5 * x - 1.5 * x^2 + 2 * x ^ 3
y <- rnorm(length(x),pol(x), 2)

data <- data.frame(x=x,y=y)

cf <- covafill(coord = data$x,
               obs = data$y,
               p = as.integer(3))


cf$predict(0,TRUE)

ggplot(aes(x=x,y=y),data=data) +
    geom_point() +
    stat_covafill(polyDegree=3L)+
geom_label(aes(x=x,y=y,label=label,hjust=0),data=data.frame(x=0,y=-25,label="ggplot(aes(x=x,y=y),data=data) +\n\tgeom_point() +\n\tstat_covafill(polyDegree=3L)"))