Displaying 1 result from an estimated 1 matches for "shaptest".
Did you mean:
sha1test
2005 Nov 09
1
Problems with Shapiro Wilk's test of normality.
...is.na(x)) > 3 & length(! is.na(x)) < 5000 ){
+ p <- shapiro.test(x)$p.value
+ return(p)
+ }else{
+ return(NA)
+ }
+ }
>
> distribution.table.fun <- function(x,na.rm=T,digits=1){
+
+ if(length(! is.na(x)) > 3 & length(! is.na(x)) < 5000){
+ # shapTest <- shapiro.test(x)
+ # W <- shapTest$statistic
+ W <- "W"
+ }
+
+
+
+ shap <- shapiro.p.value(x)
+ stars <- ''
+ premark <- ''
+ postmark <- ''
+ if(length(x) < 10){
+ premark <- '\\textit{'
+ postma...