Vapor Rain
15 5
19 7
10 2
90 15
50 10
66 13
Rain=c(5,7,2,15,10,13)
Vapor=c(15,19,10,90,50,66)
table(Rain)                             #    جدول فراوانی
table(Vapor)
mean(Rain)                             #    میانگین
sd(Rain)                                 #    انحراف معیار
median(Rain)                          #    میانه
diff(range(Rain))                      #    دامنه
par(mfrow=c(1,2))
hist(Rain)
hist(Vapor)
plot(Rain,Vapor)
abline(h=51)
plot(Rain,Vapor,col=(Rain>mean(Rain))+1)
a=cbind(Rain,Vapor)
rep(1,nrow(a))%*%a / nrow(a)
apply(a,2,var)
apply(a,2,stem)
boxplot(Rain~Vapor<25)
pie(table(Vapor<25),label=c('humid','dry'))