经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
> 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为什么得不出结果,求教各位大神!!!
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|