1library(readxl)
datamanova<-read_excel("DataManova.xlsx",sheet = "Sheet2",
2 col_names = TRUE)
3y1<-datamanova$Y1
4y2<-datamanova$Y2
5y<-cbind(y1,y2)
#<-factor(c(rep(1,10),rep(2,10),rep(3,10)))
6x<-datamanova$Model
#install.packages("mvnormtest")
7library(mvnormtest)
8mshapiro.test(t(y))- 1
- Mengaktifkan Library untuk membca file excel
- 2
-
Mendefinisikan
datamanovayang akan memuat data yang bersumber dari file excel - 3
-
Mendefinisikan
y1sebagai data yang memuat nilai dari kolom Y1 pada file excel - 4
-
Mendefinisikan
y2sebagai data yang memuat nilai dari kolom Y1 pada file excel - 5
-
Menggabungkan
y1dany2sebagai variabel dependeny - 6
-
Mendefinisikan
xsebagai data yang memuat nilai kolom Model pada file excel (Perlakuan) - 7
- mengaktifkan library untuk uji Normalitas Multivariat
- 8
-
perintah untuk melakukan uji Normalitas Multivariat dengan
mshapiro test
Shapiro-Wilk normality test
data: Z
W = 0.95323, p-value = 0.2062




















