多變量分析 [R]：學習筆記

### MANOVA Assumptions: Multivariate Normality
### (Shapiro-Wilk test)
library('mvnormtest')
mshapiro.test(X)


## Example on producing plastic film from Krzanowski (1998, p. 381)
tear <- 0.8="" 1.6="" 1.9="" 10.0="" 10.1="" 2.0="" 2.7="" 2.8="" 3.0="" 3.4="" 3.8="" 3.9="" 4.1="" 5.2="" 5.7="" 5.8="" 5="" 6.1="" 6.2="" 6.3="" 6.4="" 6.5="" 6.6="" 6.7="" 6.8="" 6.9="" 7.0="" 7.1="" 7.2="" 7.5="" 7.6="" 8.3="" 8.4="" 8.5="" 8.8="" 9.1="" 9.2="" 9.3="" 9.4="" 9.5="" 9.6="" 9.7="" 9.9="" a="" ackage:="" additive="" and="" anova="" as="" by="" c="" car="" cbind="" coefficients="" contr.sas="" contrasts="list(group" default="" do="" equal="" f="" factor="" first="" fit.="" fit.lm="" fit.manova="" get="" gl="" gloss="" have="" if="" igh="" labels="c(" lambda="" length="20)," library="" linear="" lm="" manova="" model="" not="" note="" of="" opacity="" option:="" ow="" plot="" pre="" puts="" r="" rate="" same="" sas="" single-df="" statistics.="" statistics="" summary.aov="" summary="" table="" tables="" tear="" terms="" test.statistic="Wilks" test="" that="" the="" to="" treatment="" tukeyhsd="" type="III" univariate="" use="" want="" we="" wilks="" will="" with="" work="" y="" zero="">