R/Module-5-Example-6.R at main · Eggy115/R · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# Install one time the "car" package.
# install.packages('car')

library(car)

# Exercise example
exercise <- read.csv("Datasets/exercise.csv")
exercise
attach(exercise)


# Multivariate Analysis of Variance (MANOVA)
# Manova
# Effect of PreStretch on 3 dependent varaibles
mymodel.manova.PreStretch <-manova(cbind(Speed, Oxygen,Energy) ~ PreStretch )
summary(mymodel.manova.PreStretch)

# Summarize an Analysis of Variance Model
summary.aov(mymodel.manova.PreStretch)


# Effect of AnkleWeights on 3 dependent varaibles
mymodel.manova.AnkleWeights <-manova(cbind(Speed, Oxygen,Energy) ~ AnkleWeights )
summary(mymodel.manova.AnkleWeights)

# Summarize an Analysis of Variance Model
summary.aov(mymodel.manova.AnkleWeights)