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

b>3

d<-b[b>3]

d




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



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)


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="kiirtkeddora.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)

#library(rgl)

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

summary(egyesit)

library(psych)

describe(egyesit)

eredmeny<-describe(egyesit)

names(eredmeny)

eredmeny$skew

eredmeny[3,8]



?read.table


koleszterinregi<-read.table("cholestr.txt",header=TRUE)

View(koleszterinregi)

colnames(koleszterinregi)

str(koleszterinregi)

t.test(koleszterinregi$Day2,mu=260)



probafv<-function(a,b){
  return(2*a - b)
}

probafv(-2,4)