This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

data.set=c(16189,5659,140,899,1021,427)
data.set2=c("Automobile","Plane","Train","Bus","Boat","Other Methods")
Method=c("Automobile","Plane","Train", "Bus", "Boat", "Other Methods")
Frequency=c(16189,5659,140,899,1021,427) 
barplot(Frequency,names.arg =Method,ylim=c(0,20000),xlab= 'Method of Transit',ylab='US Residents Entered (in thousands)',col=rainbow(6), main='1a)Nagir') 

data.set=c(16189,5659,140,899,1021,427)
data.set2=c("Automobile","Plane","Train","Bus","Boat","Other Methods")
pie(data.set,data.set2,col=rainbow(6),main="Nagir")

C) The bar chart is unimodal and is a right skewed distribution. Both the bar chart and pie chart show that automobiles are the most popular method of transportation.However, the pie chart is not an appropriate display of this information because it is difficult to distinguish between some of the different categories such as bus and boat.

data.set=c(16.7,11.0,8.9,5.8,5.1,4.2,3.9,3.9,3.4,2.7,13.1,10.8,8.5,5.5,5.0,4.0,3.9,3.5,2.9,2.5)
classes=c(0,2,4,6,8,10,12,14,16,18)
hist(data.set,breaks=10,right=TRUE,xlab="classes",ylab="percent",ylim=c(0,10), col=rainbow(6), main="2a)Nagir") 

data.set2=c(16.7,11.0,8.9,5.8,5.1,4.2,3.9,3.9,3.4,2.7,13.1,10.8,8.5,5.5,5.0,4.0,3.9,3.5,2.9,2.5)
stem(data.set2,scale=3)
## 
##   The decimal point is at the |
## 
##    2 | 579
##    3 | 45999
##    4 | 02
##    5 | 0158
##    6 | 
##    7 | 
##    8 | 59
##    9 | 
##   10 | 8
##   11 | 0
##   12 | 
##   13 | 1
##   14 | 
##   15 | 
##   16 | 7
  1. The distribution representing the unemployment rates among the 19 countries and the European Union has a single hump and is a right skewed distribution which is centered around 2-5.