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

correction

Browse source
This commit is contained in:
François Pelletier 2014-02-22 14:47:11 -05:00
parent ac0468fc52
commit 4c507d0bff
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
R/EppsPulley.test.R
View file

@ -20,7 +20,7 @@ EppsPulley.test <- function(x,alpha=0.05)
{
## Statistics
n <- length(x)
if (n<10) stop("n doit être supérieur à 10")
if (n<10) stop("n must be > 10")
xbar <- mean(x)
S <- sd(x)
## Constants
@ -37,7 +37,7 @@ EppsPulley.test <- function(x,alpha=0.05)
Z <- gamma+delta*log((Tmod-xi)/(xi+lambda-Tmod))
Pvalue <- 1-pnorm(Z)
reject <- Pvalue<alpha
cat(sprintf("\nTest de normalité de Epps-Pulley\n\n T: %f\n T*: %f\np-value: %f\n\n",T,Tmod,Pvalue))
cat(sprintf("\nEpps-Pulley Normality test\n\n T: %f\n T*: %f\np-value: %f\n\n",T,Tmod,Pvalue))
list(Tstat=T,Tmod=Tmod,Zscore=Z,Pvalue=Pvalue,Reject=reject)
}