FINAL TERM EXERCISE 5

library(openintro) 

Loading required package: airports

Loading required package: cherryblossom

Loading required package: usdata

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

#> [1] 3921
table(email$number)

 none small   big 
  549  2827   545 

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