Validates the marginal specification of the continuous variables

Description

Checks whether the marginal specification of the continuous part is valid and consistent.

Usage

validation.skewness.kurtosis(n.C, skewness.vec = NULL, kurtosis.vec = NULL)

Arguments

Value

The function returns TRUE if no specification problem is encountered. Otherwise, it returns an error message.

References

Demirtas, H., Hedeker, D., and Mermelstein, R.J. (2012). Simulation of massive public health data by power polynomials. Statistics in Medicine, 31(27), 3337-3346.

Examples

n.C<-3
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6,8)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

## Not run: 
n.C<--1
skewness.vec=c(0)
kurtosis.vec=c(-1.2)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

n.C<-3
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6,5)
validation.skewness.kurtosis(3)

n.C<-3
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6,5)
validation.skewness.kurtosis(n.C,skewness.vec)
validation.skewness.kurtosis(n.C,kurtosis.vec)

n.C<-0
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6,8)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

n.C<-2
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6,8)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

n.C<-2
skewness.vec=c(0,2,3)
kurtosis.vec=c(-1.2,6)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

skewness.vec=c(2,3)
kurtosis.vec=c(1,5)
validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)

## End(Not run)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(PoisBinNonNor)
Loading required package: BB
Loading required package: corpcor
Loading required package: Matrix
Loading required package: mvtnorm
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/PoisBinNonNor/validation.skewness.kurtosis.Rd_%03d_medium.png", width=480, height=480)
> ### Name: validation.skewness.kurtosis
> ### Title: Validates the marginal specification of the continuous variables
> ### Aliases: validation.skewness.kurtosis
> 
> ### ** Examples
> 
> n.C<-3
> skewness.vec=c(0,2,3)
> kurtosis.vec=c(-1.2,6,8)
> validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
[1] TRUE
> 
> ## Not run: 
> ##D n.C<--1
> ##D skewness.vec=c(0)
> ##D kurtosis.vec=c(-1.2)
> ##D validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
> ##D 
> ##D n.C<-3
> ##D skewness.vec=c(0,2,3)
> ##D kurtosis.vec=c(-1.2,6,5)
> ##D validation.skewness.kurtosis(3)
> ##D 
> ##D n.C<-3
> ##D skewness.vec=c(0,2,3)
> ##D kurtosis.vec=c(-1.2,6,5)
> ##D validation.skewness.kurtosis(n.C,skewness.vec)
> ##D validation.skewness.kurtosis(n.C,kurtosis.vec)
> ##D 
> ##D n.C<-0
> ##D skewness.vec=c(0,2,3)
> ##D kurtosis.vec=c(-1.2,6,8)
> ##D validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
> ##D 
> ##D n.C<-2
> ##D skewness.vec=c(0,2,3)
> ##D kurtosis.vec=c(-1.2,6,8)
> ##D validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
> ##D 
> ##D n.C<-2
> ##D skewness.vec=c(0,2,3)
> ##D kurtosis.vec=c(-1.2,6)
> ##D validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
> ##D 
> ##D skewness.vec=c(2,3)
> ##D kurtosis.vec=c(1,5)
> ##D validation.skewness.kurtosis(n.C,skewness.vec,kurtosis.vec)
> ## End(Not run)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>