R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot. write(‘PATH=“\({RTOOLS40_HOME}\\usr\\bin;\){PATH}”’, file = “~/.Renviron”, append = TRUE)

Sys.which(“make”) install.packages(“jsonlite”, type = “source”) install.packages(“devtools”)

ad <- “isa” yas <- 16 + 12 gun <-Sys.Date() yeniyil <- as.Date(“2024-01-01”) veri <- rnorm(n = 10, mean = 15, sd = 3)

yas + 10 yeniyil - gun mean(veri) n1 <- yas + 10

##alıştırma

en <- “4” boy <- “10”

en * boy

kare_al <- function(sayi){sayi*sayi} kare_al(sayi=3)

kuvvet_al <- function(sayi, kuvvet=2){sayi^kuvvet} kuvvet_al(2,5) kuvvet_al(9)

dikdortgen <- function(en=5,boy=10){ alan <- enboy cevre <- 2en + 2boy # (en+boy)2 kosegen <- sqrt(enen + boyboy) cikti <- c(alan,cevre,kosegen) names(cikti) <- c(“alan”,“cevre”,“kosegen”) cikti }

dikdortgen(en=5,boy=10)

dikdortgen <- function(en=5,boy=10){ alan <- enboy cevre <- 2en + 2boy # (en+boy)2 kosegen <- sqrt(enen + boyboy)

cikti <- list(alan= alan,cevre = cevre, kosegen = kosegen) cikti }

cikti1 <- dikdortgen(en=5,boy=10) cikti1alancikti1 cevre cikti1$kosegen

kare(kenar=5)

kare <- function(kenar=5){cevre <- 4kenar alan <- kenarkenar kosegen <- sqrt(kenarkenar2)

cikti <- list(alan = alan, cevre = cevre, kosegen = kosegen)

cikti }

x <- 1:1000 mean(x) avg <- function(x){sum(x) / length(x) } avg(x)

setwd()

getwd()

setwd(“C:/Users/huawei/Desktop/OLC731”)

getwd()

##Ters olan eğik çizgileri düz yapmamız gerekiyor!