Data<-c(1, 2, 2, 2, 3, 3, 4, 4, 5, 6, 7)

barplot(table(Data))

median(Data)

mean(Data)
sum(Data)


# Data Types R

X<-1:5
X

X1<-factor(X)
X1

X2<-factor(X, ordered=TRUE)
X2

is.numeric(X)