Displaying 1 result from an estimated 1 matches for "premark".
Did you mean:
remark
2005 Nov 09
1
Problems with Shapiro Wilk's test of normality.
...tion.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{'
+ postmark <- '}'
+ }
+
+ #skapa stj??rnor
+ if(! is.na(shap)){
+ if( shap <= 0.001 ){
+ stars <- '***'
+ }else{
+ if( shap &l...