a<-4
b<-6
a+b



# kommentelunk mert hasznos

getwd()

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

setwd("beallitani kivant munkakonyvtar elerhetosege")



a<-1:5

a



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

b

mode(b)

length(b)


b[1]

e<-b[2:4]

e

e<-b[c(2,3,4)]

e

b

d<-b[b>3]

d

b>3


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

nrow

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)

View(kiirando)

attributes(kiirando)



names(kiirando)

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

names(kiirando)

head(kiirando)


kiirando[3,2]

kiirando[3,]

kiirando[,2]

colnames(kiirando)

kiirando$korte

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

hist(kocka)

table(kocka)

# most jon az elso heti kedvcsinalo ujra

normalis<-rnorm(100,0,1)
exp<-rexp(100,1)
unif<-runif(100,0,1)

egyesit<-data.frame(normalis,exp,unif)

head(egyesit)

library(rgl)

plot3d(egyesit[,1],egyesit[,2],egyesit[,3], col="red", size=3)


summary(egyesit)

library(psych)

describe(egyesit)