b <- 2 # itt egy valtozo erteket adtuk meg

rm(b)

b <- 3

x <- c(10.4, 5.6, 3.1, 6.4, 21.7)

length(x)

y <- c(x, 0, x)

a<-mean(x)
b<-sd(x)

y2 <- 1:30

seq(-5, 5, by=.2) -> s3

s4 <- seq(length=51, from=-5, by=.2)

z <- 1:1500
dim(z) <- c(3,5,100)

x2 <- array(1:20, dim=c(4,5))

x3 <- array(0, c(3,4,2))

qnorm(.95,0,1)

xx<-rnorm(10000,10,3)

boxplot(xx)
hist(xx)


atlag <- c(1:100)

for (i in 1:100) {
n <- 100*i 
atlag[i] <- mean(xx[1:n])
}