data <- c(

6.9, 7.5, 8.5, 8.4, 8.1, 8.7, 8.9, 8.2, 7.8, 7.3, 6.8, # 第 1 组数据，11 例

9.6, 9.4, 9.5, 8.5, 9.4, 9.9, 8.7, 8.1, 7.8, 8.8,    # 第 2 组数据，10 例

5.7, 6.4, 6.8, 7.8, 7.6, 7.0, 7.7, 7.5, 6.8, 5.9,    # 第 3 组数据，10 例

7.6, 8.7, 8.5, 8.5, 9.0, 9.2, 9.3, 8.0, 7.2, 7.9, 7.8  # 第 4 组数据，11 例)

group <- rep(1:4, c(11, 10, 10, 11))    # 定义变量分组

Steel.Dwass(data, group)