> data<-read.table("clipboard",header = T)> data   X1410 X1440 X1470 X15001   2.19  2.10  1.88  1.622   2.19  2.10  1.88  1.623   2.19  2.10  1.88  1.624   3.14  2.95  2.59  2.195   3.14  2.95  2.59  2.196   4.35  4.11  3.61  3.047   5.98  5.61  4.86  4.048   8.01  7.43  6.43  5.339  10.36  9.55  8.32  7.0310 13.57 12.04 10.31  8.7111 16.91 15.19 12.96 10.7912 18.80 17.20 15.49 13.7313 19.23 17.52 15.70 13.8714 20.27 18.18 16.13 14.2115 24.50 22.28 20.03 17.7716 22.64 20.55 17.87 15.0717 22.94 20.60 18.57 16.5318 20.62 18.57 16.50 14.5219 22.57 20.55 18.55 16.5320 19.45 17.74 16.05 14.3721 18.83 17.27 15.56 13.8122 13.58 12.18 10.83  9.5223 13.03 12.02 10.87  9.5624  9.85  8.48  7.53  6.8025  8.49  7.69  6.88  6.1126  6.58  6.05  5.50  4.9427  2.13  1.84  1.66  1.5428  1.73  1.59  1.44  1.2929  1.35  1.18  1.12  1.0930  1.35  1.18  1.12  1.0931  1.35  1.18  1.12  1.09> n<-as.matrix(data)> n      X1410 X1440 X1470 X1500 [1,]  2.19  2.10  1.88  1.62 [2,]  2.19  2.10  1.88  1.62 [3,]  2.19  2.10  1.88  1.62 [4,]  3.14  2.95  2.59  2.19 [5,]  3.14  2.95  2.59  2.19 [6,]  4.35  4.11  3.61  3.04 [7,]  5.98  5.61  4.86  4.04 [8,]  8.01  7.43  6.43  5.33 [9,] 10.36  9.55  8.32  7.03[10,] 13.57 12.04 10.31  8.71[11,] 16.91 15.19 12.96 10.79[12,] 18.80 17.20 15.49 13.73[13,] 19.23 17.52 15.70 13.87[14,] 20.27 18.18 16.13 14.21[15,] 24.50 22.28 20.03 17.77[16,] 22.64 20.55 17.87 15.07[17,] 22.94 20.60 18.57 16.53[18,] 20.62 18.57 16.50 14.52[19,] 22.57 20.55 18.55 16.53[20,] 19.45 17.74 16.05 14.37[21,] 18.83 17.27 15.56 13.81[22,] 13.58 12.18 10.83  9.52[23,] 13.03 12.02 10.87  9.56[24,]  9.85  8.48  7.53  6.80[25,]  8.49  7.69  6.88  6.11[26,]  6.58  6.05  5.50  4.94[27,]  2.13  1.84  1.66  1.54[28,]  1.73  1.59  1.44  1.29[29,]  1.35  1.18  1.12  1.09[30,]  1.35  1.18  1.12  1.09[31,]  1.35  1.18  1.12  1.09> library("mvnormtest")> mshapiro.test(data)Error in mshapiro.test(data) :   U[] is not a matrix with number of columns (sample size) between 3 and 5000为什么得不出结果，求教各位大神！！！