data=read.table("Endowment.txt",header=T)
attach(data)
mean(Endowment)
median(Endowment)
var(Endowment)
sd(Endowment)
hist(Endowment,xlab="Endowments in billions of dollars", main=" U.S. institutions with endowments >= billion dollars",col="purple")
sapply(data,mean)

Q1=quantile(Endowment,0.25)
Q3=quantile(Endowment,0.75)
IQR=Q3-Q1
I1=Q1-1.5*IQR
I2=Q3+1.5*IQR
outliers1=which(Endowment<I1)
outliers2=which(Endowment>I2)

boxplot(Endowment,ylab="Endowments", main=" U.S. institutions with endowments >= billion dollars",col="pink")
boxplot(Endowment,range=0,ylab="Endowments", main=" U.S. institutions with endowments >= billion dollars",col="pink")