Untitled

print("merhaba akademililer")
help("else")
help("sum")
example("for")
mert<- c(1, 2, 3, 4, 5)
sum(mert)
getwd<- c("C:/Users/mert/Documents")
setwd<- c("C:/Users/mert/Documents")
history<- c("inf")
.Last.value<- c(1, 3, 5)
9
.Last.value
data<- c("mtcars")
ls<- c("objects")
rm<- c(2001)
install.packages("splines")
library("grid")
library<- c("splines")
view<- c("mtcars")
mert <- c("a", "b", "c", "d")
str<- c("mert")
data<- c("mtcars")
summary<- c("mtcars")


for (mert in 1:10) {
  print(mert)
}
akademili<- 1

while (akademili <= 10) {
  print(akademili)
  akademili <- akademili + 1
}
v <- c(12, 14, 16, 18, 20)
if (v[1] == 12) {
  print("ilk eleman 12'ye eşit")
} else {
  print("ilk eleman 12'ye eşit değil")
}


data("mtcars")
car_names <- mtcars$rownames
disp_hp <- mtcars[,c("disp", "hp")]
disp_mean <- mean(mtcars$disp)


mean(mtcars$disp)
median(mtcars$disp)
sd(mtcars$disp) 
summary(mtcars$disp)


mean(mtcars$hp) 
median(mtcars$hp)
sd(mtcars$hp)
summary(mtcars$hp)
library(psych)
describe(mtcars)



install.packages("ggplot2")
library(ggplot2)

ggplot(mtcars, aes(x = mpg, y = cyl)) + 
  geom_point()