mich.df_scan() 1: 850 2: 740 3: 900 4: 1070 5: 930 6: 850 7: 950 8: 980 9: 980 10: 880 11: mich.df_c(mich.df,1000,980,930,650,760,810,1000,1000,960,960) mich.df summary(mich.df) summary(mich.df)[1] summary(mich.df)[5] boxplot(mich.df) iqd <- summary(mich.df)[5] - summary(mich.df)[2] density(mich.df, width = 2*iqd) eda.shape_function(x) { par(mfrow=c(2,2)) hist(x) boxplot(x) iqd_summary(x)[5]-summary(x)[2] plot(density(x,width=2*iqd),xlab="x",ylab="",type="l") qqnorm(x) qqline(x) par(mfrow=c(1,1)) invisible() } eda.shape(mich.df)