shapiro_conventional_indirect <- shapiro.test(speed$Conventionally.indirect.strategy.speech.rate) Error in shapiro.test(speed$Conventionally.indirect.strategy.speech.rate) : 不是所有的is.numeric(x)都是TRUE

这个错误通常是因为数据中包含缺失值或非数值型数据。你可以使用下面的代码来检查数据中是否包含缺失值：

sum(is.na(speed$Conventionally.indirect.strategy.speech.rate))

如果结果不为0，表示数据中包含缺失值，此时你需要先对数据进行缺失值处理。如果结果为0，可以使用下面的代码来检查数据类型：

class(speed$Conventionally.indirect.strategy.speech.rate)

如果结果不为"numeric"，表示该列数据类型不是数值型，需要将其转换为数值型数据。