<jupyter_start><jupyter_text>Box plot for mtcars' wt column, in which we can see two data points are outside of the quantiles<jupyter_code>data <- mtcars

boxplot(data[['wt']], ylab='MPG')<jupyter_output><empty_output><jupyter_text>Frequency Table for mtcars' cylinder to get the frequency of each car<jupyter_code>breaks <- seq(from=min(data[['cyl']]), 
              to=max(data[['cyl']]))
cyl_freq <- cut(data[['cyl']], breaks=breaks, 
                right=TRUE, include.lowest=TRUE)
data['cyl_freq'] <- cyl_freq
table(cyl_freq)<jupyter_output><empty_output><jupyter_text>Histogram based on frequency table of cyl column<jupyter_code>hist(data[['cyl']], breaks=breaks)<jupyter_output><empty_output><jupyter_text>Density plot (smooth version of histogram)<jupyter_code>hist(data$cyl, freq=FALSE)
lines(density(data$cyl), lwd=3, col='blue')

hist(data$mpg, freq=FALSE)
lines(density(data$mpg), lwd=3, col='blue')<jupyter_output><empty_output>
{'fraction_non_alphanumeric': 0.15148305084745764, 'fraction_numerical': 0.00211864406779661, 'mean_word_length': 7.75, 'pattern_counts': {'":': 0, '<': 21, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'chain_length': '4', 'dir': 'jupyter-structured-clean-dedup', 'id': '470763', 'license': 'MIT', 'n_tokens_mistral': 368, 'n_tokens_neox': 343, 'n_words': 65, 'path': 'R/Day8/day8ofmathandstats.ipynb', 'repo_name': 'harsh9898/100daysofstatandmath', 'size': '944'}