#read 1985 Auto Imports Database with arff file

library(foreign)

df <- read.arff("C:/dataset_9_autos.arff")



#Find the outliers

#the function takes the name of the dataset and/or variable as parameter and returns the outliers, if any were found.

outliers = function(x) {

  boxplot(x, horizontal=FALSE, las=2, col = c('snow2'), cex.axis=1)

  o = boxplot.stats(x)$out

  return(o)

}



#compare all numerical variables with standarization

layout(1)

outliers(dfs)



#q-q plot for chi^2 distribution and normality check

library(MVN)

layout(1)

mardiaTest(dfn, cov = FALSE, qqplot = TRUE)

abline(a=0,b