R/quad.R

In fsemipar: Estimation, Variable Selection and Prediction for Functional Semiparametric Models

quad <- function(u)
{ 
# The construction of this code is based on that by F. Ferraty, which is available on his website 
# https://www.math.univ-toulouse.fr/~ferraty/SOFTWARES/NPFDA/index.html.
1 - (u)^2
}