###Odev - 1 Satır ve sütun sayılarını kullanıcının belirlediği matris oluşturma fonksiyonu
matris_olustur <- function() {
a <- as.numeric(readline(prompt = "matrisin kaç satırı olsun?"))
b <- as.numeric(readline(prompt = "matrisin kaç sütunu olsun?"))
mat <- matrix(NA, nrow = a, ncol = b)
for (i in 1:a) {
for (j in 1:b) {
mat[i,j] <- i*j
}
}
if (a>10) {
head(mat, 10)
} else {
print(mat)}
}
###Ödev - 2 Fibonacci sayı dizisini for döngüsü ile oluşturma
fib <- c(1,1)
for (i in 3:20) {
fib[i] <- fib[i-2] + fib[i-1]
print(fib)
}
## [1] 1 1 2
## [1] 1 1 2 3
## [1] 1 1 2 3 5
## [1] 1 1 2 3 5 8
## [1] 1 1 2 3 5 8 13
## [1] 1 1 2 3 5 8 13 21
## [1] 1 1 2 3 5 8 13 21 34
## [1] 1 1 2 3 5 8 13 21 34 55
## [1] 1 1 2 3 5 8 13 21 34 55 89
## [1] 1 1 2 3 5 8 13 21 34 55 89 144
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
## [16] 987 1597
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
## [16] 987 1597 2584
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
## [16] 987 1597 2584 4181
## [1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
## [16] 987 1597 2584 4181 6765
###Ödev - 3
set.seed(1786)
ornek<-exp(matrix(rnorm(2000),nrow=100))
index1.temp<-sample(1:100,10)
index2.temp<-sample(1:20,10)
for(i in 1:10){
ornek[index1.temp[i],index2.temp[i]]<--1
}
head(ornek,10)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] 0.55495247 0.3247338 0.5236032 0.3821027 0.4187483 0.1588847 5.2261615
## [2,] 0.56717341 1.2431592 0.8812069 2.6695443 0.6984453 1.0838792 1.0799464
## [3,] 4.80684569 0.3449856 0.6079096 0.9194116 1.5361330 1.9082522 0.6719770
## [4,] 1.35092339 2.3569582 0.1931423 4.0707377 0.3527276 2.3498825 1.1985139
## [5,] 0.90120324 0.2310683 0.2317487 1.3809955 0.9168741 0.6237213 1.6094031
## [6,] 1.23314833 1.1066056 0.3546027 0.3705946 0.9002303 0.2528151 3.3375122
## [7,] 0.07451759 0.3278400 1.7221210 0.3376303 0.7432453 4.3874156 1.1125610
## [8,] 1.65857091 0.7029296 1.1111179 0.6354256 0.5884865 1.1157169 0.1794564
## [9,] 0.94744395 1.0146770 1.2630543 0.7452380 2.7686406 4.3269818 3.6254793
## [10,] -1.00000000 0.3249447 0.3348874 0.6454255 1.2567404 2.0312851 2.4200718
## [,8] [,9] [,10] [,11] [,12] [,13] [,14]
## [1,] 2.62800573 1.2251526 0.47609658 5.2379018 1.4782655 1.3761338 1.0202608
## [2,] 2.20873852 0.5195551 0.37574092 0.9004808 0.7409205 2.0543842 0.3668661
## [3,] 1.53100157 0.6735007 2.20697755 0.5060078 0.7171477 1.2378655 0.3651527
## [4,] 2.55928989 1.8205257 1.26240523 0.1524106 0.3828322 1.2406799 0.7954326
## [5,] 1.10059899 1.0619758 2.10477829 2.7816902 1.4010878 0.6140937 0.5136842
## [6,] 0.97991029 2.7520425 2.54076240 1.3889136 0.4346808 1.0637950 0.1859157
## [7,] 0.61224361 1.0798316 0.31800823 1.6021757 0.3980879 0.5617774 1.2760484
## [8,] 2.27770312 0.2466488 0.31015267 0.4650741 4.5291669 0.7625331 1.3247123
## [9,] 0.07590754 0.9014769 1.06439725 3.2222158 1.2275843 0.2884690 1.0133288
## [10,] 0.74893772 17.2282821 0.09573998 0.7215121 1.4549113 3.4051538 2.4327087
## [,15] [,16] [,17] [,18] [,19] [,20]
## [1,] 0.1437680 4.18076432 1.7389423 3.0760640 1.5505570 4.4838291
## [2,] 3.8674407 1.93492142 0.6333922 0.4862532 5.2755707 0.1161029
## [3,] 1.4724240 0.59711160 11.5869157 0.7580736 4.7552973 1.0583051
## [4,] 0.1243085 0.83762305 1.3723291 2.0884571 2.5061276 1.2094517
## [5,] 6.2971803 0.84221640 1.5335222 0.3079718 2.7294475 1.7164885
## [6,] 3.8052219 2.16110552 0.3280288 2.7773368 1.7265578 1.3193446
## [7,] 0.2870967 0.08568329 2.6809755 1.7589152 5.8850793 0.4277948
## [8,] 1.3055189 2.08569697 0.3629860 0.2951635 1.2686692 0.6255277
## [9,] 0.4083501 0.24490160 2.9521151 0.8608929 0.5392983 0.9831783
## [10,] 0.4780989 1.04609605 0.7607635 0.4182432 0.7418082 1.9470182
for (i in 1:nrow(ornek)) {
ifelse(ornek[i,] > 0, print(paste(i, ". satırın ortalaması ", sum(ornek[i,]))),
ifelse(ornek[i,] < 0, print(paste(i, ". satırda negatif sayı bulunmaktadır")),
ifelse((ornek[i,] < 0) >3, print(paste("çok sayıda negatif sayı")),no = F)))
}
## [1] "1 . satırın ortalaması 36.204928082073"
## [1] "2 . satırın ortalaması 27.7037220714711"
## [1] "3 . satırın ortalaması 38.2612955437638"
## [1] "4 . satırın ortalaması 28.2247588281501"
## [1] "5 . satırın ortalaması 28.899749970132"
## [1] "6 . satırın ortalaması 29.0191246732504"
## [1] "7 . satırın ortalaması 25.6790485461023"
## [1] "8 . satırın ortalaması 21.8512571105187"
## [1] "9 . satırın ortalaması 28.4736309256213"
## [1] "10 . satırın ortalaması 37.4926285375453"
## [1] "10 . satırda negatif sayı bulunmaktadır"
## [1] "11 . satırın ortalaması 32.7734714126618"
## [1] "12 . satırın ortalaması 26.8730344059542"
## [1] "12 . satırda negatif sayı bulunmaktadır"
## [1] "13 . satırın ortalaması 29.402447868397"
## [1] "14 . satırın ortalaması 33.7521926583522"
## [1] "15 . satırın ortalaması 30.3109330191382"
## [1] "16 . satırın ortalaması 39.9036548937728"
## [1] "17 . satırın ortalaması 29.5884585580212"
## [1] "18 . satırın ortalaması 28.889894521188"
## [1] "19 . satırın ortalaması 30.8757505654293"
## [1] "20 . satırın ortalaması 43.5967725404121"
## [1] "21 . satırın ortalaması 29.7415980561532"
## [1] "22 . satırın ortalaması 42.1836855330056"
## [1] "23 . satırın ortalaması 50.7403758430052"
## [1] "24 . satırın ortalaması 43.7676556532756"
## [1] "24 . satırda negatif sayı bulunmaktadır"
## [1] "25 . satırın ortalaması 28.9422115427074"
## [1] "25 . satırda negatif sayı bulunmaktadır"
## [1] "26 . satırın ortalaması 19.6314773964771"
## [1] "27 . satırın ortalaması 42.0240141453375"
## [1] "28 . satırın ortalaması 31.7416978624659"
## [1] "29 . satırın ortalaması 41.5868210966112"
## [1] "30 . satırın ortalaması 32.5676829985691"
## [1] "31 . satırın ortalaması 21.2426677364531"
## [1] "32 . satırın ortalaması 26.0353828864541"
## [1] "33 . satırın ortalaması 24.5433133127399"
## [1] "34 . satırın ortalaması 33.6179501680532"
## [1] "35 . satırın ortalaması 40.8661942896927"
## [1] "36 . satırın ortalaması 32.4085433268382"
## [1] "37 . satırın ortalaması 29.9023099629112"
## [1] "38 . satırın ortalaması 28.4268601939386"
## [1] "38 . satırda negatif sayı bulunmaktadır"
## [1] "39 . satırın ortalaması 32.9914534123457"
## [1] "40 . satırın ortalaması 32.4911354538957"
## [1] "40 . satırda negatif sayı bulunmaktadır"
## [1] "41 . satırın ortalaması 32.2174828963195"
## [1] "42 . satırın ortalaması 50.2585564161714"
## [1] "43 . satırın ortalaması 25.8507662683903"
## [1] "44 . satırın ortalaması 19.9067663594442"
## [1] "45 . satırın ortalaması 21.2639213939389"
## [1] "46 . satırın ortalaması 41.7446028216402"
## [1] "47 . satırın ortalaması 32.767619696623"
## [1] "48 . satırın ortalaması 31.7496102506575"
## [1] "49 . satırın ortalaması 27.2078408386076"
## [1] "50 . satırın ortalaması 50.0616246697099"
## [1] "51 . satırın ortalaması 34.4813030271071"
## [1] "51 . satırda negatif sayı bulunmaktadır"
## [1] "52 . satırın ortalaması 23.403693976198"
## [1] "53 . satırın ortalaması 27.9865331407034"
## [1] "54 . satırın ortalaması 17.0362784482417"
## [1] "55 . satırın ortalaması 27.7748343825261"
## [1] "56 . satırın ortalaması 25.7638275069286"
## [1] "57 . satırın ortalaması 48.1166243776368"
## [1] "58 . satırın ortalaması 19.09819253024"
## [1] "59 . satırın ortalaması 27.4425245927419"
## [1] "60 . satırın ortalaması 27.6514296306342"
## [1] "61 . satırın ortalaması 22.6720484756144"
## [1] "62 . satırın ortalaması 14.2135824229035"
## [1] "63 . satırın ortalaması 20.3709204887437"
## [1] "64 . satırın ortalaması 20.7429051005162"
## [1] "64 . satırda negatif sayı bulunmaktadır"
## [1] "65 . satırın ortalaması 23.1931625409343"
## [1] "66 . satırın ortalaması 16.8511117747946"
## [1] "67 . satırın ortalaması 27.0169214538213"
## [1] "68 . satırın ortalaması 22.8927944965685"
## [1] "69 . satırın ortalaması 26.3021415928353"
## [1] "70 . satırın ortalaması 32.0493316652268"
## [1] "71 . satırın ortalaması 38.2740006249785"
## [1] "72 . satırın ortalaması 43.5452179383812"
## [1] "73 . satırın ortalaması 23.018335744796"
## [1] "74 . satırın ortalaması 67.5762693198814"
## [1] "75 . satırın ortalaması 28.917424003654"
## [1] "76 . satırın ortalaması 33.1569967900373"
## [1] "77 . satırın ortalaması 22.2308011384224"
## [1] "78 . satırın ortalaması 33.2739535854415"
## [1] "79 . satırın ortalaması 27.4528486952661"
## [1] "80 . satırın ortalaması 29.1080120665562"
## [1] "81 . satırın ortalaması 23.0954836537541"
## [1] "82 . satırın ortalaması 66.9737334572158"
## [1] "83 . satırın ortalaması 52.7037040522381"
## [1] "84 . satırın ortalaması 27.0959985409022"
## [1] "85 . satırın ortalaması 39.1361945669734"
## [1] "86 . satırın ortalaması 41.3748199182485"
## [1] "86 . satırda negatif sayı bulunmaktadır"
## [1] "87 . satırın ortalaması 29.0041643993591"
## [1] "88 . satırın ortalaması 23.0182982249321"
## [1] "89 . satırın ortalaması 25.1049279974129"
## [1] "90 . satırın ortalaması 15.2757404220917"
## [1] "91 . satırın ortalaması 25.9079915495588"
## [1] "92 . satırın ortalaması 17.9308141728368"
## [1] "92 . satırda negatif sayı bulunmaktadır"
## [1] "93 . satırın ortalaması 24.7470097705281"
## [1] "94 . satırın ortalaması 43.0378727308689"
## [1] "95 . satırın ortalaması 29.7041934069119"
## [1] "96 . satırın ortalaması 31.3807301778067"
## [1] "97 . satırın ortalaması 34.9812718284418"
## [1] "98 . satırın ortalaması 58.2765981252745"
## [1] "99 . satırın ortalaması 26.4888777858033"
## [1] "100 . satırın ortalaması 34.4079038273886"