Hafta1

#HAFTA 1

#install.packages("devtools")
#install.packages("Rtools")
# Yorum satirlari kodlarinizi anlamli hale getirir.
a <-  2
y <-  a * a
y

## [1] 4

ad <- "ada"
yas <- 16 + 20 
gun <-Sys.Date()
yeniyil <- as.Date("2024-01-01")
veri <- rnorm(n = 10, mean = 15, sd = 3)

yas + 10

## [1] 46

yeniyil - gun

## Time difference of -300 days

mean(veri)

## [1] 14.11625

n1 <- yas + 10

# en nesnesi tanimlama
en <- 4
# boy nesnesi tanimlama
boy<-10
# alan nesnesi tanimlama
alan <- en*boy

# alan nesnesini yazdirma
alan

## [1] 40

# en nesnesi tanimlama
en <- 4
# boy nesnesi tanimlama
boy<-10
# kosegen nesnesi tanimlama
kosegen <- sqrt(en^2+boy^2)
# kosegen nesnesini yazdirma
kosegen

## [1] 10.77033