EXP1STATS, R - rextester

EXP1STATS

Language: Layout:

empid=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50)
empid
age=c(30,31,30,31,33,31,30,41,35,31,30,31,39,31,34,32,29,31,30,31,30,31,30,34,40,41,40,43,30,31,30,31,34,34,34,34,30,31,31,31,50,35,50,51,50,41,43,41,44,49)
age
sex=c(0,0,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,0,0,0,0,0,0,1,1,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0)
sex
status=c(1,2,2,2,1,1,1,1,1,1,2,2,1,2,1,2,2,2,1,1,1,1,2,2,1,2,1,2,1,2,1,2,2,2,2,2,1,1,1,2,1,2,1,2,1,2,1,2,2,1)
status
subject=c(2,3,2,2,3,4,3,3,4,2,3,4,4,4,4,2,3,2,2,3,4,2,3,4,2,3,2,2,2,4,2,3,4,4,3,4,2,3,4,2,3,3,3,3,4,2,3,4,4,2)
subject
empinfo=data.frame(empid,age,sex,status,subject)
empinfo$sex=factor(empinfo$sex,label=c("Male","Female"))
empinfo$status=factor(empinfo$status,label=c("Staff","Faculty"))
empinfo$subject=factor(empinfo$subject,label=c("Maths","Physics","Biology"))
empinfo
summary(empinfo)
summary(empinfo$sex)
summary(empinfo$status)
summary(empinfo$subject)
result.mean=mean(age)
print('Mean Age =')
print(result.mean)
table1=table(empinfo$sex)
table2=table(empinfo$status)
table3=table(empinfo$subject)
pie(table1)
table4=table(empinfo$status,empinfo$subject)
barplot(table4,beside=T,xlim=c(1,20))
legend("topright",legend=rownames(table4),fill=c('black','lightgrey'),bty="n") 
table5=table(empinfo$sex,empinfo$status)
barplot(table5,beside=T,ylim=c(0,25))
legend("topright",legend=rownames(table5),fill=c(fill=c('black','lightgrey'),bty="n"))
table6=table(empinfo$sex,empinfo$subject)
barplot(table6,beside=T,ylim=c(0,15))
legend("topright",legend=rownames(table6),fill=c(fill=c('black','lightgrey'),bty="n"))

[ + ] Show input
Absolute running time: 1.14 sec, cpu time: 0.85 sec, memory peak: 34 Mb, absolute service time: 1,16 sec

[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 [26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 [1] 30 31 30 31 33 31 30 41 35 31 30 31 39 31 34 32 29 31 30 31 30 31 30 34 40 [26] 41 40 43 30 31 30 31 34 34 34 34 30 31 31 31 50 35 50 51 50 41 43 41 44 49 [1] 0 0 0 1 0 1 0 1 1 1 1 1 0 1 0 1 0 1 0 1 1 1 1 1 0 1 0 0 0 0 0 0 0 1 1 1 0 1 [39] 0 1 0 1 0 0 0 1 0 1 0 0 [1] 1 2 2 2 1 1 1 1 1 1 2 2 1 2 1 2 2 2 1 1 1 1 2 2 1 2 1 2 1 2 1 2 2 2 2 2 1 1 [39] 1 2 1 2 1 2 1 2 1 2 2 1 [1] 2 3 2 2 3 4 3 3 4 2 3 4 4 4 4 2 3 2 2 3 4 2 3 4 2 3 2 2 2 4 2 3 4 4 3 4 2 3 [39] 4 2 3 3 3 3 4 2 3 4 4 2 empid age sex status subject 1 1 30 Male Staff Maths 2 2 31 Male Faculty Physics 3 3 30 Male Faculty Maths 4 4 31 Female Faculty Maths 5 5 33 Male Staff Physics 6 6 31 Female Staff Biology 7 7 30 Male Staff Physics 8 8 41 Female Staff Physics 9 9 35 Female Staff Biology 10 10 31 Female Staff Maths 11 11 30 Female Faculty Physics 12 12 31 Female Faculty Biology 13 13 39 Male Staff Biology 14 14 31 Female Faculty Biology 15 15 34 Male Staff Biology 16 16 32 Female Faculty Maths 17 17 29 Male Faculty Physics 18 18 31 Female Faculty Maths 19 19 30 Male Staff Maths 20 20 31 Female Staff Physics 21 21 30 Female Staff Biology 22 22 31 Female Staff Maths 23 23 30 Female Faculty Physics 24 24 34 Female Faculty Biology 25 25 40 Male Staff Maths 26 26 41 Female Faculty Physics 27 27 40 Male Staff Maths 28 28 43 Male Faculty Maths 29 29 30 Male Staff Maths 30 30 31 Male Faculty Biology 31 31 30 Male Staff Maths 32 32 31 Male Faculty Physics 33 33 34 Male Faculty Biology 34 34 34 Female Faculty Biology 35 35 34 Female Faculty Physics 36 36 34 Female Faculty Biology 37 37 30 Male Staff Maths 38 38 31 Female Staff Physics 39 39 31 Male Staff Biology 40 40 31 Female Faculty Maths 41 41 50 Male Staff Physics 42 42 35 Female Faculty Physics 43 43 50 Male Staff Physics 44 44 51 Male Faculty Physics 45 45 50 Male Staff Biology 46 46 41 Female Faculty Maths 47 47 43 Male Staff Physics 48 48 41 Female Faculty Biology 49 49 44 Male Faculty Biology 50 50 49 Male Staff Maths empid age sex status subject Min. : 1.00 Min. :29.0 Male :26 Staff :25 Maths :17 1st Qu.:13.25 1st Qu.:31.0 Female:24 Faculty:25 Physics:17 Median :25.50 Median :31.5 Biology:16 Mean :25.50 Mean :35.3 3rd Qu.:37.75 3rd Qu.:40.0 Max. :50.00 Max. :51.0 Male Female 26 24 Staff Faculty 25 25 Maths Physics Biology 17 17 16 [1] "Mean Age =" [1] 35.3