getwd()

setwd("relso")

a<-1:5

a

b<-c(1,2,2,4,5,1)

b[2]

c<-b[2:4]

c

b[b>3]

mode(b)

length(b)



proba<-matrix(1:6,2,3)

proba

proba2<-matrix(1:6,ncol=3,nrow=2)

proba2

proba3<-matrix(1:6,ncol=3,nrow<-2)

proba3

ncol

nrow

library(stats)

library(graphics)

library(utils)

# ide most kommmentelunk, hogy kesobb megertsuk mit csinaltunk

kockaseged<-runif(500,0.5,6.5)

kockaseged

kocka<-round(kockaseged)

kocka

kiirando<-data.frame(kockaseged,kocka)

kiirando

kiirando[3,2]

kiirando[3,]

kiirando[,2]

kiirando$kocka

write.table(kiirando,file="kiirtcsut.csv", sep=";",row.names=FALSE)

hist(kocka)

table(kocka)

eredmeny<-chisq.test(table(kocka))

eredmeny2<-chisq.test(table(kocka),p=c(0.1,0.1,0.1,0.1,0.1,0.5))