# NOT RUN {
## example 1
nrPerClass = 100
SampleImpact = c()
SampleClasses = rep(c(1,2), each=nrPerClass)
SampleData = matrix(ncol=100, nrow=200)
for(i in 1:100){
SampleVector = c(rnorm(nrPerClass, 1, 5),
rnorm(nrPerClass, i, 5))
SampleData[,i] = SampleVector
SampleImpact[i] = Impact(SampleVector, SampleClasses)$Impact
}
plot(SampleImpact, type='l', main=("Impact: \nIncreasing difference in means"))
# }
Run the code above in your browser using DataCamp Workspace