wyliczyc srednia zarobkow z pliku Wyk_Zarobki


> dane=read.csv2("Wyk_Zarobki.csv")
> dane[,4]
> as.vector(dane[,4])
> zar=as.vector(dane[,4])
> zarobki=sort(zar)
> zarobki
> table(zarobki)
> zarobki[300:305]=10000
> zarobki[298:300]=9500
> zarobki[297]=8500
> zarobki[295:296]=7500
> zarobki[294]=6500
> zarobki[286:293]=5500
> zarobki[272:285]=4500
> zarobki[243:271]=3500
> zarobki[196:242]=2500
> zarobki[110:195]=1500
> zarobki[50:109]=500
> zarobki[1:49]=0
> zarobki
> mean(zarobki)