https://github.com/cran/GAS
Tip revision: e588e3a10bf22cb7dff4a49a848baac63d743c3f authored by Leopoldo Catania on 04 February 2022, 09:30:12 UTC
version 0.3.4
version 0.3.4
Tip revision: e588e3a
GASspec.R
UniGASSpec <- function(Dist = "norm", ScalingType = "Identity", GASPar = list(location = FALSE, scale = TRUE,
skewness = FALSE, shape = FALSE, shape2 = FALSE)) {
iK = NumberParameters(Dist)
if (is.null(GASPar$location)) {
GASPar$location = FALSE
}
if (is.null(GASPar$scale)) {
GASPar$scale = FALSE
}
if (is.null(GASPar$skewness)) {
GASPar$skewness = FALSE
}
if (is.null(GASPar$shape)) {
GASPar$shape = FALSE
}
if (is.null(GASPar$shape2)) {
GASPar$shape2 = FALSE
}
DistPar = DistParameters(Dist)
GASPar = GASPar[DistPar]
Spec <- new("uGASSpec", Spec = list(Dist = Dist, ScalingType = ScalingType, iK = iK, GASPar = GASPar))
return(Spec)
}
MultiGASSpec <- function(Dist = "mvnorm", ScalingType = "Identity", GASPar = list(location = FALSE,
scale = TRUE, correlation = FALSE, shape = FALSE), ScalarParameters = TRUE) {
if (is.null(GASPar$location)) {
GASPar$location = FALSE
}
if (is.null(GASPar$scale)) {
GASPar$scale = FALSE
}
if (is.null(GASPar$correlation)) {
GASPar$correlation = FALSE
}
if (is.null(GASPar$shape)) {
GASPar$shape = FALSE
}
DistPar = DistParameters(Dist)
GASPar = GASPar[DistPar]
Spec <- new("mGASSpec", Spec = list(Dist = Dist, ScalingType = ScalingType, GASPar = GASPar, ScalarParameters = ScalarParameters))
return(Spec)
}