myee <- function(data){
function(theta){
c(data$Y1 - theta[1],
(data$Y1 - theta[1])^2 - theta[2])
}
}
mybasis <- create_basis(
estFUN = myee,
data = geexex)
psi_list <- grab_psiFUN_list(create_psiFUN_list(mybasis))
# A list of functions
head(psi_list)
Run the code above in your browser using DataLab