#Zadatak 3.
x<-c(0.1, 0.4, 0.6, 2.7, 1.1, 0.6, 1.6, 0.3, 2.4, 0.2, 0.1, 2.5, 0.8, 2.1, 2.0, 0.7, 3.2, 1.5, 1.3, 3.5, 0.5, 0.9, 0.5, 1.5, 4.0, 1.1, 1.7, 2.3, 1.0, 4.6)
stem(x)
#zadatak 4.
zvucni<-c(86, 102, 103, 99, 108, 100, 115, 106, 109, 113, 114, 107, 107, 117, 120, 101, 126, 109, 106)
vizuelni<-c(72, 99, 102, 75, 100, 103, 77, 95, 71, 97, 80, 104, 101, 78, 73, 90, 71, 70, 81, 103, 89)
stem(zvucni, scale = 2)
stem(vizuelni, scale = 2)
#zadatak 6.
x<-c(4285, 602, 2300, 582, 701, 1137, 1379, 564, 1379, 478, 1429, 497, 520, 454, 1278, 2584, 726, 852, 3367, 261, 205, 14, 510, 1000, 1402, 2778, 1850, 349, 318, 2662, 786, 373, 2066, 3570, 737, 308, 1100, 414, 604, 99, 3032, 981, 35, 396, 209, 1009, 2000, 1560, 99, 83)
granice<-c()
granice[1]<-13.5
for(i in 2:7){
  granice[i]<-granice[i-1]+712
}
hist(x,granice,freq = FALSE)
#zadatak 7.
x<-c(1, 3, 6, 2, 4, 6, 2, 1, 4, 6, 6, 1, 4, 9, 2, 3, 1, 5, 6, 2, 6, 5, 7, 11, 5, 4, 10, 12, 12, 15, 7, 5, 8, 7, 14, 4)
granice<-c()
granice[1]<-0.5
for(i in 2:7){
  granice[i]<-granice[i-1]+3
}
hist(x,granice)
#zadatak 8.
x<-c(0.044, 0.020, 0.040, 0.057, 0.055, 0.061, 0.047, 0.030, 0.066, 0.045, 0.050, 0.037, 0.061, 0.051, 0.052, 0.052, 0.039, 0.056, 0.062, 0.058, 0.054, 0.044, 0.049, 0.039, 0.061, 0.062, 0.053, 0.042, 0.046, 0.030, 0.039, 0.042, 0.070, 0.060, 0.051)
stem(x)
granice<-c()
granice[1]<-0.0195
for(i in 2:7){
  granice[i]<-granice[i-1]+0.009
}
hist(x,granice)
#zadatak 13.
x<-c(160, 165, 170, 172, 161, 176, 163, 196, 162, 160, 162, 185, 167, 180, 168, 163, 161, 167, 173, 162, 169, 164, 179, 163, 178)
boxplot(x)
#zadatak 14.
A<-c(105, 126, 120, 119, 133, 145, 200, 123, 108, 112, 132, 136, 156, 12.4, 134, 130, 130, 142, 170)
R<-c(221, 261, 250, 230, 253, 256, 227, 264, 236, 246, 273, 271, 280, 238, 240, 283, 516)
boxplot(A)
boxplot(R)