Final Term Exercise no. 5

library(openintro)

## Warning: package 'openintro' was built under R version 4.2.3

## Loading required package: airports

## Warning: package 'airports' was built under R version 4.2.3

## Loading required package: cherryblossom

## Warning: package 'cherryblossom' was built under R version 4.2.3

## Loading required package: usdata

## Warning: package 'usdata' was built under R version 4.2.3

help("email")

## starting httpd help server ... done

head(email)

## # A tibble: 6 × 21
##   spam  to_multiple from     cc sent_e…¹ time                image attach dollar
##   <fct> <fct>       <fct> <int> <fct>    <dttm>              <dbl>  <dbl>  <dbl>
## 1 0     0           1         0 0        2012-01-01 14:16:41     0      0      0
## 2 0     0           1         0 0        2012-01-01 15:03:59     0      0      0
## 3 0     0           1         0 0        2012-01-02 00:00:32     0      0      4
## 4 0     0           1         0 0        2012-01-01 17:09:49     0      0      0
## 5 0     0           1         0 0        2012-01-01 18:00:01     0      0      0
## 6 0     0           1         0 0        2012-01-01 18:04:46     0      0      0
## # … with 12 more variables: winner <fct>, inherit <dbl>, viagra <dbl>,
## #   password <dbl>, num_char <dbl>, line_breaks <int>, format <fct>,
## #   re_subj <fct>, exclaim_subj <dbl>, urgent_subj <fct>, exclaim_mess <dbl>,
## #   number <fct>, and abbreviated variable name ¹​sent_email

length(email$number)

## [1] 3921

table(email$number)

## 
##  none small   big 
##   549  2827   545