# NOT RUN {
IC1 <- IC()
plot(IC1)
## The function is currently defined as
IC <- function(name, Curve = EuclRandVarList(RealRandVariable(Map = list(function(x){x})),
Domain = Reals()), Risks, Infos, CallL2Fam = call("L2ParamFamily")){
if(missing(name))
name <- "square integrable (partial) influence curve"
if(missing(Risks))
Risks <- list()
if(missing(Infos))
Infos <- matrix(c(character(0),character(0)), ncol=2,
dimnames=list(character(0), c("method", "message")))
return(new("IC", name = name, Curve = Curve, Risks = Risks,
Infos = Infos, CallL2Fam = CallL2Fam))
}
# }
Run the code above in your browser using DataLab