Description Usage Public function Note Author(s) Examples
Base class for the expression of distribution. The main function is to evaluate the equivalent normal distribution at specific estimation point.
1 | Arbitrary distribution is expressed by inheritting this base class
|
Standard reference class is R6 class
Public function
function | contents | variable(s) |
initialize(mu,sigmma) | initializes the object | mu:mean value,sigmma:std. value |
Eq(X) | returns (mean,std.) list of equivalent norm. distribution | X:estimaion point |
GetMeanSig() | returns (mu,std.) list of the distribution | |
Gnormal, GLognormal, GGumbel, GWeibull have been deveoped as the inheritted classes
Shinsuke Sakai
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #Definition of class for log normal distribution
GLognormal <- R6Class("GLognormal",
inherit=Dbase,
public = list(
Eq = function(X){
zeta <- sqrt(log(1+ (private$sigmmaX / private$muX)**2))
lambda <- log(private$muX) - 0.5 * zeta*zeta
phi <- dnorm(qnorm(plnorm(X, lambda, zeta)))
fXi <- dlnorm(X, lambda, zeta)
sigm <- phi / fXi
mu <- X - qnorm(plnorm(X, lambda, zeta)) * sigm
c(mu, sigm)
}
)
)
#main program
dist <- GLognormal$new(4,1)
dist$Eq(1.0)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.