Update sTabl3R.v.0.2.R

CodeDepotIV · web-flow · commit 21bb51fa5910 · 2024-06-22T11:16:46.000-05:00
diff --git a/R/sTabl3R.v.0.2.R b/R/sTabl3R.v.0.2.R
@@ -175,6 +175,10 @@ generate_statistics <- function(df, group = "Group"){
     }
 
     # Perform Shapiro-Wilk test
+      # TODO: Consider using a different test
+      # TODO: Sometimes you want just non-parametric, so an improved package would 
+      # allow the use to override this. Coder needs to develop comfort with 
+      # using additional function arguments.
     shapiro_test <- shapiro.test(num)
 
     # Determine if the data is parametric or non-parametric

Original file line number	Diff line number	Diff line change
`@@ -175,6 +175,10 @@ generate_statistics <- function(df, group = "Group"){`
`175`	`175`	`}`
`176`	`176`
`177`	`177`	`# Perform Shapiro-Wilk test`
	`178`	`+ # TODO: Consider using a different test`
	`179`	`+ # TODO: Sometimes you want just non-parametric, so an improved package would`
	`180`	`+ # allow the use to override this. Coder needs to develop comfort with`
	`181`	`+ # using additional function arguments.`
`178`	`182`	`shapiro_test <- shapiro.test(num)`
`179`	`183`
`180`	`184`	`# Determine if the data is parametric or non-parametric`