Nothing
.modify.xi.PFam.call <- function(xi, PFam){
Param <- param(PFam)
param <- main(Param)
param["shape"] <- xi
main(Param) <- param
nModel <- modifyModel(PFam, Param)
return(nModel)
}
.RMXE.xi <- function(xi, PFam) .RMXE.th(xi, PFam, .modify.xi.PFam.call)
.MBRE.xi <- function(xi, PFam) .MBRE.th(xi, PFam, .modify.xi.PFam.call)
.OMSE.xi <- function(xi, PFam) .OMSE.th(xi, PFam, .modify.xi.PFam.call)
.getLMGrid <- function(xiGrid = getShapeGrid(),
PFam = GParetoFamily(scale=1,shape=2),
optFct = .RMXE.xi, GridFileName="LMGrid.Rdata",
withPrint = FALSE, len = 13){
### changed defaults and argnames (for historical reasons):
ROptEst::.getLMGrid(thGrid = xiGrid, PFam = PFam, optFct = optFct,
modifyfct = NULL, GridFileName = GridFileName,
withPrint = withPrint, len = len)}
.svInt <- function(optF = .RMXE.th, xiGrid = getShapeGrid(700, cutoff.at.0=0.005),
#.svInt <- function(optF = .RMXE.th, xiGrid = getShapeGrid(5, cutoff.at.0=0.005),
PFam = GParetoFamily(shape=1,scale=2), radius = 0.5,
upper = 1e4, lower = 1e-4, OptOrIter = "iterate",
maxiter = 150, tol = .Machine$double.eps^0.5,
loRad = 0, upRad = Inf, loRad0 = 1e-3,
loRad.s=0.2, upRad.s=1,
withStartLM = TRUE, len = 13,namFzus =""){
namF <- gsub("\\.th$","",paste(deparse(substitute(optF))))
namF <- paste(gsub(" ", "",namF),namFzus,sep="")
to <- gsub("XXXX",gsub(" ","",name(PFam)),
gsub("YYYY", namF, "interpolYYYYXXXX.csv"))
print(to)
len0 <- if(name(PFam)=="GEVU Family") 25 else 13
.generateInterpGrid(thGrid = xiGrid,
PFam = PFam, toFileCSV = to,
getFun = ROptEst::.getLMGrid,
modifyfct = .modify.xi.PFam.call, optFct = optF,
nameInSysdata = namF, withPrint = TRUE, radius = radius,
upper = upper, lower = lower, OptOrIter = OptOrIter,
maxiter = maxiter, tol = tol, loRad = loRad, upRad = upRad,
loRad0 = loRad0, loRad.s = loRad.s, upRad.s = upRad.s,
withStartLM = withStartLM, len = len0)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.