シャピロウウィルク検定を複数列同時に行いたいです

Question

前提・実現したいこと

250列ほどのデータセットで各列に対してシャピローウィルク検定を行いたいのですが、うまくいきません。
非常に初歩的な質問で申し訳ありません。どなたか、ご教示ください。

発生している問題・エラーメッセージ

for (i in 1:ncol(dat1))
a <- dat1[i]
shapiro.test(a)

shapiro.test(a) でエラー: is.numeric(x) は TRUE ではありません

Answer 1

データセットに数値ではない要素が混じっていると思われますので、データセットの内容を確認することをお勧めします。

以下、shapiro.test に与えている c(1, 2, 3) などは検証用のダミーデータです。

> shapiro.test(c(1, 2, 3)) 

	Shapiro-Wilk normality test

data:  c(1, 2, 3)
W = 1, p-value = 1

# 'a' は文字列
> shapiro.test(c("a", 2, 3)) 
 shapiro.test(c("a", 2, 3)) でエラー: 
   is.numeric(x) は TRUE ではありません 

# "1", "2", "3" は文字列
> shapiro.test(c("1", "2", "3")) 
 shapiro.test(c("1", "2", "3")) でエラー: 
   is.numeric(x) は TRUE ではありません 

shapiro.test(c("1", "2", "3")) の場合は as.numeric で数値への変換が可能です。

> shapiro.test(as.numeric(c("1", "2", "3")))

	Shapiro-Wilk normality test

data:  as.numeric(c("1", "2", "3"))
W = 1, p-value = 1