a<-4
c<-6
a+c



# kommentelunk mert hasznos

getwd()

# a lenti parancs a Session/Working directory-val kivalthato

setwd("beallitani kivant munkakonyvtar elerhetosege")

szam<-8

szam

a<-1:5

a

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

b

mode(b)

length(b)


b[2]

c<-b[2:4]

c

b

d<-b[b>3]

d

mode(b)

length(b)

listacska<-list( 1,"hello",TRUE )

listacska

if(listacska[3]){
  print("siker")  
}

if( listacska[[3]] ){
print("siker")  
}

?matrix

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

proba

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

proba2

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

proba3

ncol

nrow

library(stats)

library(graphics)

library(utils)


?runif


kockaseged<-runif(500,0.5,6.5)

kockaseged

round(3.3)

kocka<-round(kockaseged)

kocka

kiirando<-data.frame(kockaseged,kocka)

attributes(kiirando)

names(kiirando)

names(kiirando)<-c("alma","korte")


head(kiirando)

View(kiirando)

kiirando

kiirando[3,2]

kiirando[3,]

kiirando[,2]

colnames(kiirando)

kiirando$korte

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

hist(kocka)

table(kocka)