Nothing
# This function is for building the Quantile of a Mixed TS. Internally the
# function uses the qMixedTS.aux
setGeneric("qMixedTS",
function(object,x,setSup=NULL,setInf=NULL,N=2^10, ...)
standardGeneric("qMixedTS")
)
setMethod("qMixedTS","param.MixedTS",
function(object,x,setSup=NULL,setInf=NULL,N=2^10,...){
if(object@Mixing=="Gamma"){
quan<-qMixedTS.aux(p=x, mu0=object@mu0,
mu=object@mu, sig=object@sigma, a=object@a,
alpha=object@alpha, lambda_p=object@lambda_p,lambda_m=object@lambda_m,
setSup=setSup, setInf=setInf, MixingDens=object@Mixing,N=N,
UseMGF=NULL, paramMixing=NULL,Parametrization=object@Parametrization)
resDens<-new("MixedTS", prob=x, xMixedTS=quan, quantile=TRUE, mu0=object@mu0,
mu=object@mu, sig=object@sigma, a=object@a,
alpha=object@alpha, lambda_p=object@lambda_p,lambda_m=object@lambda_m,
Mixing=object@Mixing,Parametrization=object@Parametrization)
}else{
quan<-qMixedTS.aux(p=x, mu0=object@mu0,
mu=object@mu, sig=object@sigma, a=object@a,
alpha=object@alpha, lambda_p=object@lambda_p,lambda_m=object@lambda_m,
setSup=setSup, setInf=setInf, MixingDens=object@Mixing,
N=N,UseMGF=object@MixingLogMGF, paramMixing=object@paramMixing,
Parametrization=object@Parametrization)
resDens<-new("MixedTS", prob=x, xMixedTS=quan, quantile=TRUE, mu0=object@mu0,
mu=object@mu, sig=object@sigma, a=object@a,
alpha=object@alpha, lambda_p=object@lambda_p,lambda_m=object@lambda_m,
Mixing=object@Mixing,MixingLogMGF=object@MixingLogMGF,
paramMixing=object@paramMixing,Parametrization=object@Parametrization)
}
return(resDens)
}
)
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.