partage/QuadraticEstimatingEquations
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Correction des erreurs de R CMD check

Browse source
This commit is contained in:
François Pelletier 2014-02-23 21:51:20 -05:00
parent 1651ea0780
commit b41d1c99a2
9 changed files with 51 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/M.gauss.R
View file

@ -17,6 +17,6 @@
#' @author Francois Pelletier
M.gauss <- function(param,Y,meanf,variancef,dmean,dsd)
{
-(a.gauss(param,variancef,dmean,dsd) %o% dmean(param) +
2*sqrt(variancef(param)) * b.gauss(param,variancef,dmean,dsd) %*% t(dsd(param)))
-(a.gauss(param,variancef,dmean) %o% dmean(param) +
2*sqrt(variancef(param)) * b.gauss(param,variancef,dsd) %*% t(dsd(param)))
}

16
R/V.gauss.R
View file

@ -20,14 +20,14 @@
#' @author Francois Pelletier
V.gauss <- function(param,Y,meanf,variancef,skewnessf,kurtosisf,dmean,dsd)
{
(variancef(param)*(a.gauss(param,variancef,dmean,dsd) %o%
a.gauss(param,variancef,dmean,dsd) +
(variancef(param)*(a.gauss(param,variancef,dmean) %o%
a.gauss(param,variancef,dmean) +
sqrt(variancef(param)) * skewnessf(param) *
(a.gauss(param,variancef,dmean,dsd) %o%
b.gauss(param,variancef,dmean,dsd) +
b.gauss(param,variancef,dmean,dsd) %o%
a.gauss(param,variancef,dmean,dsd)) +
(a.gauss(param,variancef,dmean) %o%
b.gauss(param,variancef,dsd) +
b.gauss(param,variancef,dsd) %o%
a.gauss(param,variancef,dmean)) +
variancef(param)*(kurtosis(param)+2) *
b.gauss(param,variancef,dmean,dsd) %*%
t(b.gauss(param,variancef,dmean,dsd))))
b.gauss(param,variancef,dsd) %*%
t(b.gauss(param,variancef,dsd))))
}

2
R/b.Crowder.Mod.R
View file

@ -15,7 +15,7 @@
#' @return First weighting vector
#'
#' @author Francois Pelletier
a.Crowder.Mod <- function(param,Y,variancef,dmean,dsd)
b.Crowder.Mod <- function(param,Y,variancef,dmean,dsd)
{
(moments::skewness(Y)*dmean(param)-2*dsd(param)) /
(variancef(param)^(3/2)*gammaf.Crowder.Mod(Y))

2
R/b.Crowder.R
View file

@ -20,5 +20,5 @@ b.Crowder <- function(param,variancef,skewnessf,kurtosisf,dmean,dsd)
{
(skewnessf(param)*dmean(param)-
2*dsd(param))/
(variancef(param)^(3/2)*gamma.Crowder(param,skewnessf,kurtosisf))
(variancef(param)^(3/2)*gammaf.Crowder(param,skewnessf,kurtosisf))
}

4
R/eqn.gauss.R
View file

@ -18,6 +18,6 @@
#' @author Francois Pelletier
eqn.gauss <- function(param,Y,meanf,variancef,dmean,dsd)
{
a.gauss(param,variancef,dmean,dsd) * sum(Y-meanf(param)) +
b.gauss(param,variancef,dmean,dsd) * sum((Y-meanf(param))^2-variancef(param))
a.gauss(param,variancef,dmean) * sum(Y-meanf(param)) +
b.gauss(param,variancef,dsd) * sum((Y-meanf(param))^2-variancef(param))
}