[交流] 【求助】比较两组数据是否既有统计学意义？【已解决】

> x <- c(10.89,21.89,38.82,59.65,80.65,85.45,31.39,75.62,90.79,96.59,98.46,98.86)
> f1 <- gl(2,6,12)
> f2 <- gl(6,1,12)
> shapiro.test(x[1:6])

        Shapiro-Wilk normality test

data:  x[1:6]
W = 0.928, p-value = 0.5648

> shapiro.test(x[7:12])

        Shapiro-Wilk normality test

data:  x[7:12]
W = 0.7341, p-value = 0.01384

> asin(x/100) -> z
> shapiro.test(z[1:6])

        Shapiro-Wilk normality test

data:  z[1:6]
W = 0.9277, p-value = 0.5623

> shapiro.test(z[7:12])

        Shapiro-Wilk normality test

data:  z[7:12]
W = 0.8493, p-value = 0.1554

> anova(aov(z~f1+f2))
Analysis of Variance Table

Response: z
          Df  Sum Sq Mean Sq F value   Pr(>F)   
f1         1 0.80510 0.80510  40.287 0.001433 **
f2         5 1.50785 0.30157  15.091 0.004887 **
Residuals  5 0.09992 0.01998                    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
>
>