Correction des erreurs de R CMD check
This commit is contained in:
François Pelletier
parent
1651ea0780
commit
b41d1c99a2
9 changed files with 51 additions and 37 deletions
6
.Rbuildignore
Normal file
6
.Rbuildignore
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
^.*\.Rproj$
|
||||
^\.Rproj\.user$
|
||||
.gitignore
|
||||
.project
|
||||
.git
|
||||
.settings
|
||||
1
.project
1
.project
|
|
@ -14,6 +14,5 @@
|
|||
<natures>
|
||||
<nature>de.walware.statet.base.StatetNature</nature>
|
||||
<nature>de.walware.statet.r.RNature</nature>
|
||||
<nature>de.walware.statet.r.RPkgNature</nature>
|
||||
</natures>
|
||||
</projectDescription>
|
||||
|
|
|
|||
|
|
@ -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
16
R/V.gauss.R
|
|
@ -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))))
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
}
|
||||
|
|
@ -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))
|
||||
}
|
||||
|
|
|
|||
|
|
@ -2,8 +2,6 @@
|
|||
\alias{a.Crowder.Mod}
|
||||
\title{First weighting vector of the modified quadratic estimating equation (Crowder)}
|
||||
\usage{
|
||||
a.Crowder.Mod(param, Y, variancef, dmean, dsd)
|
||||
|
||||
a.Crowder.Mod(param, Y, variancef, dmean, dsd)
|
||||
}
|
||||
\arguments{
|
||||
|
|
@ -19,35 +17,15 @@ a.Crowder.Mod(param, Y, variancef, dmean, dsd)
|
|||
|
||||
\item{dsd}{Derivative in respect to the parameter vector
|
||||
of the standard deviation function of the distribution}
|
||||
|
||||
\item{param}{Vector of parameters of the distribution
|
||||
function}
|
||||
|
||||
\item{Y}{Individual data sample}
|
||||
|
||||
\item{variancef}{Variance function of the distribution}
|
||||
|
||||
\item{dmean}{Derivative in respect to the parameter
|
||||
vector of the mean function of the distribution}
|
||||
|
||||
\item{dsd}{Derivative in respect to the parameter vector
|
||||
of the standard deviation function of the distribution}
|
||||
}
|
||||
\value{
|
||||
First weighting vector
|
||||
|
||||
First weighting vector
|
||||
}
|
||||
\description{
|
||||
First weighting vector of the modified quadratic estimating
|
||||
equation (Crowder)
|
||||
|
||||
Second weighting vector of the modified quadratic
|
||||
estimating equation (Crowder)
|
||||
}
|
||||
\author{
|
||||
Francois Pelletier
|
||||
|
||||
Francois Pelletier
|
||||
}
|
||||
|
||||
|
|
|
|||
31
man/b.Crowder.Mod.Rd
Normal file
31
man/b.Crowder.Mod.Rd
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
\name{b.Crowder.Mod}
|
||||
\alias{b.Crowder.Mod}
|
||||
\title{Second weighting vector of the modified quadratic estimating equation (Crowder)}
|
||||
\usage{
|
||||
b.Crowder.Mod(param, Y, variancef, dmean, dsd)
|
||||
}
|
||||
\arguments{
|
||||
\item{param}{Vector of parameters of the distribution
|
||||
function}
|
||||
|
||||
\item{Y}{Individual data sample}
|
||||
|
||||
\item{variancef}{Variance function of the distribution}
|
||||
|
||||
\item{dmean}{Derivative in respect to the parameter
|
||||
vector of the mean function of the distribution}
|
||||
|
||||
\item{dsd}{Derivative in respect to the parameter vector
|
||||
of the standard deviation function of the distribution}
|
||||
}
|
||||
\value{
|
||||
First weighting vector
|
||||
}
|
||||
\description{
|
||||
Second weighting vector of the modified quadratic
|
||||
estimating equation (Crowder)
|
||||
}
|
||||
\author{
|
||||
Francois Pelletier
|
||||
}
|
||||
|
||||
Loading…
Add table
Reference in a new issue