############################################################# ## R code to reproduce statistical analysis in the textbook: ## Agresti, Franklin, Klingenberg ## Statistics: The Art & Science of Learning from Data ## 5th Edition, Pearson 2021 ## Web: ArtofStat.com ## Copyright: Bernhard Klingenberg ############################################################ ################### ### Chapter 2 ### ### Example 2 ### ################### ##################### ## Displaying Data ## ##################### # Create dataset: region <- c('Florida', 'Hawaii', 'South Carolina', 'California', 'North Carolina', 'Australia', 'South Africa', 'Reunion Island', 'Brazil', 'Bahamas', 'Other') frequency <- c(203, 51, 34, 33, 23, 125, 43, 17, 16, 6, 138) attacks <- data.frame(region, frequency) # Display the entire dataset: attacks # Display only the first 6 lines: head(attacks,6) # Or, you can read in the dataset via: # > path <- 'https://raw.githubusercontent.com/artofstat/data/master/Chapter2/sharks.csv' # > Attacks <- read.csv(path) # Create column for the proportion in the dataframe: attacks\$proportion <- attacks\$frequency/sum(attacks\$frequency) head(attacks,6) # Create column for the percentage: attacks\$percentage <- 100*(attacks\$frequency/sum(attacks\$frequency)) head(attacks,6) # For nicer printing in R, use dplyr package and declare data frame as a table, using function as_tibble(). # To install dplyr package, use install.packages('dplyr'). # Then, load package into R using library(): library(dplyr) attacks <- as_tibble(attacks) attacks