x <- 1:9 y <- c(1,2,3) # vektör eleman sayıları farklı mı? length(x)/length(y) x+y
ad <- c(“Ali”,“Elif”,“Su”,“Deniz”,“Aras”, “Berk”,“Can”,“Ece”,“Efe”,“Arda”) ad[1]
ad[c(1, 4, 6)]
ad[10] ad[length(ad)]
ad_1 <- ad[-1] ad_1
ad_2 <- ad[-c(1, 4, 6)] ad_2
ad[11] <- “Esma” ad
ad[c(12, 13)] <- c(“Demet”, “Samet”) ad
ad <- append(ad, “Aslı” ,4) ad
ad <- c(“Ali”,“Elif”,“Su”,“Deniz”,“Aras”, “Berk”,“Can”,“Ece”,“Efe”,“Arda”) boy <- c(160,165,170,155,167,162,169,158,160,164) kilo <-c(50,55,57,50,48,65,58,62,45,47)
#isimlendirme names(boy) names(boy) <- ad names(boy)
#seçim yapma boy boy[1] boy[“Ali”] boy[c(“Ali”, “Deniz”)]
#isimden kurtarma boy <- unname(boy) boy
#dizi oluşturma seq() ?seq 1:10
seq(from=1, to=10, by=1) seq(1, 10, 1)
seq(from=1, to=3, by=0.4) seq(from=1, to=3, length=6)
#length out bak! seq(1, 3, 0.5) length.out()
#tekrar etme rep(0:9, times = 3)
?rep
a <- c(3, 5, 7) rep(a, each=3) a
a <- c(3,5,7) rep(a, each=2, times=3)
a <- c(1, 2, 3, 4) rep(a, each=2)
a <- c(1, 2, 3) rep(1:3, 1:3)
?paste
paste(“test”,1:10, sep=” “) paste(”test”,1:10, sep=“_“) paste(”test”,1:10, sep=“,”)
paste(“test”,1:10,“puan”,sep=“_“)
paste(“test”,1:10,round(rnorm(10), 2), sep=“_“)
paste(“test”, c(“A”, “B”, “C”, “D”, 1:4))
sample(0:100,5) ?sample
sample(c(0,1), 100, replace = TRUE)
#random sayıyla histogram oluşturma hist(rnorm(100, 0, 1))
ad <- c(“Ali”,“Elif”,“Su”,“Deniz”,“Aras”, “Berk”,“Can”,“Ece”,“Efe”,“Arda”) boy <- c(160,165,170,155,167,162,169,158,160,164) kilo <- c(55,55,57,50,48,65,58,62,45,47)
boy_metre <- boy/100 BKI <- kilo/(boy_metre^2) round(mean(BKI),2)
#Artık yeni bir BKI vektörümüz var. Bunun summarysine bakabiliriz. BKI summary(BKI)
table(boy) table(BKI)
set.seed(10) madde_gucluk_degerleri <- round(runif(10, 0, 1), 2) paste(1:10, “.maddenin guclugu”, madde_gucluk_degerleri, sep=” “)
?strsplit ad_soyad_acik <- c(“Ayse-Sel”,“Can-Yucel”,“Cem-Togay”,“Banu-Cift”)
adlar <- unlist(strsplit(ad_soyad, “-”))[c(1, 3, 5, 7)] soyadlar <- unlist(strsplit(ad_soyad, “-”))[c(2, 4, 6, 8)]
ad_soyad<- c(“Ayse-Sel”,“Can-Yucel”, “Cem-Togay”,“Banu-Cift”) ad_soyad_acik <- strsplit(ad_soyad,“-”)
ad <- unlist(ad_soyad_acik)[c(1,3,5,7)] soyad <- unlist(ad_soyad_acik)[c(2,4,6,8)]
unlist(lapply(ad_soyad_acik,function(x){x[1]})) unlist(lapply(ad_soyad_acik,function(x){x[2]}))