wle.fracdiff
, the remain functions are for internal use and they should not call by the users. They are not documented here.wle.fracdiff(x, lower, upper, M, group, na.action=na.fail, tol=10^(-6), equal=10^(-3), raf="HD", smooth=0.0031, smooth.ao=smooth, boot=10, num.sol=1, x.init=rep(0,M), use.uniroot=FALSE, max.iter.out=20, max.iter.in=100, max.iter.step=5000, max.iter.start=max.iter.step, verbose=FALSE, w.level=0.4, min.weights=0.5, init.values=NULL, num.max=length(x), include.mean=FALSE, ao.list=NULL, elitist=5, size.generation=5, size.population=10, type.selection="roulette", prob.crossover=0.8, prob.mutation=0.02, type.scale="none", scale.c=2)
tol
).raf="HD"
: Hellinger Distance RAF,
raf="NED"
: Negative Exponential Disparity RAF,
raf="SCHI2"
: Symmetric Chi-Squared Disparity RAF.smooth
.M
parameter, or a number, default is 0.FALSE
, if TRUE
in each step the weighted likelihood estimating equations is solved, otherwise, a maximization is performed on a weighted log-likelihood function with fixed weights. The estimators obtain with the two methods is the same.TRUE
warnings are printed.TRUE
.max.iter.out
iteration are reached.min.weight
: the weighted likelihood equation could have more than one solution. These roots appear for particular situation depending on contamination level and type. We introduce the min.weight
parameter in order to choose only between roots that do not down weight everything. This is not still the optimal solution, and perhaps, in the new release, this part will be change. The algorithm used to classify the observations as additive outliers is
a simple genetic algorithm as described in Goldberg (1989). The size.population
, size.generation
,
type.selection
, prob.crossover
, prob.mutation
, type.scale
, type.selection
, elitist
and
scale.c
are parameters related to this algorithm.
Goldberg, David E., (1989) Genetic Algorithms in Search, Optimization and Machine Learning. Addison-Wesley Pub. Co. ISBN: 0201157675
set.seed(1234)
resw <- wle.fracdiff(Nile, M=100, include.mean=TRUE, lower=0.01,
upper=0.96, group=20)
resw$d
resw$sigma2
resw$x.mean
## Not run:
# x <- Nile
# x[50] <- x[50]+4*sd(x)
#
# set.seed(1234)
# resw <- wle.fracdiff(x, M=100, include.mean=TRUE, lower=0.01,
# upper=0.96, group=40)
# resw$d
# resw$sigma2
# resw$x.mean
# resw$ao.position
# ## End(Not run)
Run the code above in your browser using DataLab