locNormCstData {quantCurves}

Centile curves using local polynomial compared to noise data

Description

Centile curves using local polynomial compared to noise data

Usage

locNormCstData(
  x,
  y,
  bandwidth.method,
  cents = c(0.03, 0.25, 0.5, 0.75, 0.97),
  data,
  leg = FALSE
)

Arguments

x

the explanatory variable - numeric

y

the response variable - numeric

bandwidth.method

the method chosen to calculate bandwidth. Could be cross validation or Plug-in. Default is set to CV.

cents

A numeric vector that represents the centiles calculated. Default is set to cents=c(0.03,0.25,0.5,0.75,0.97) )

data

the noise data we want to compare

leg

Boolean. Should the legend be desplayed (TRUE) or not (FALSE).

Value

Plots centile curves with local constant polynomial and displays them on the same figure as the noise data to be compared

Examples

#create an example data frame
example<-data.frame(sample(30:42,50,rep=TRUE),sample(800:5000,50,rep=TRUE))
colnames(example)<-c("Gestational Age in weeks","Weight in gramms")
x<-example$`Gestational Age in weeks`
y<-example$`Weight in gramms`
abnormal<-data.frame(sample(30:42,10,rep=TRUE),sample(800:5000,10,rep=TRUE))
colnames(abnormal)<-c("Gestational Age in weeks","Weight in gramms")
locNormCstData(x,y,bandwidth.method="Plug-in",cents=c(0.03,0.25,0.50,0.75,0.97),data=abnormal)