hafta-10-11-ODEV

if-else

Tez verisi kullanarak pratik yaptım.

library(tidyverse)

## Warning: package 'readr' was built under R version 4.4.2

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dplyr)
library(ggplot2)
library(readxl)
tezdata <- read_excel("~/hacettepe/Rders/data/tezdata.xlsx")

cinsiyet <- tezdata %>% select(gender) %>% arrange(gender) 
ifelse(cinsiyet==0, "kiz ogrenci", "erkek ogrenci")

##       gender         
##  [1,] "kiz ogrenci"  
##  [2,] "kiz ogrenci"  
##  [3,] "kiz ogrenci"  
##  [4,] "kiz ogrenci"  
##  [5,] "kiz ogrenci"  
##  [6,] "kiz ogrenci"  
##  [7,] "kiz ogrenci"  
##  [8,] "kiz ogrenci"  
##  [9,] "kiz ogrenci"  
## [10,] "kiz ogrenci"  
## [11,] "kiz ogrenci"  
## [12,] "kiz ogrenci"  
## [13,] "kiz ogrenci"  
## [14,] "kiz ogrenci"  
## [15,] "kiz ogrenci"  
## [16,] "kiz ogrenci"  
## [17,] "kiz ogrenci"  
## [18,] "kiz ogrenci"  
## [19,] "kiz ogrenci"  
## [20,] "kiz ogrenci"  
## [21,] "kiz ogrenci"  
## [22,] "kiz ogrenci"  
## [23,] "kiz ogrenci"  
## [24,] "kiz ogrenci"  
## [25,] "kiz ogrenci"  
## [26,] "kiz ogrenci"  
## [27,] "kiz ogrenci"  
## [28,] "kiz ogrenci"  
## [29,] "kiz ogrenci"  
## [30,] "kiz ogrenci"  
## [31,] "kiz ogrenci"  
## [32,] "kiz ogrenci"  
## [33,] "kiz ogrenci"  
## [34,] "kiz ogrenci"  
## [35,] "kiz ogrenci"  
## [36,] "kiz ogrenci"  
## [37,] "kiz ogrenci"  
## [38,] "kiz ogrenci"  
## [39,] "kiz ogrenci"  
## [40,] "kiz ogrenci"  
## [41,] "kiz ogrenci"  
## [42,] "kiz ogrenci"  
## [43,] "kiz ogrenci"  
## [44,] "erkek ogrenci"
## [45,] "erkek ogrenci"
## [46,] "erkek ogrenci"
## [47,] "erkek ogrenci"
## [48,] "erkek ogrenci"
## [49,] "erkek ogrenci"
## [50,] "erkek ogrenci"
## [51,] "erkek ogrenci"
## [52,] "erkek ogrenci"
## [53,] "erkek ogrenci"
## [54,] "erkek ogrenci"
## [55,] "erkek ogrenci"
## [56,] "erkek ogrenci"
## [57,] "erkek ogrenci"
## [58,] "erkek ogrenci"
## [59,] "erkek ogrenci"
## [60,] "erkek ogrenci"
## [61,] "erkek ogrenci"
## [62,] "erkek ogrenci"
## [63,] "erkek ogrenci"
## [64,] "erkek ogrenci"
## [65,] "erkek ogrenci"
## [66,] "erkek ogrenci"
## [67,] "erkek ogrenci"
## [68,] "erkek ogrenci"
## [69,] "erkek ogrenci"
## [70,] "erkek ogrenci"
## [71,] "erkek ogrenci"
## [72,] "erkek ogrenci"
## [73,] "erkek ogrenci"
## [74,] "erkek ogrenci"
## [75,] "erkek ogrenci"
## [76,] "erkek ogrenci"

Prob_basari <- tezdata %>% pull(`problem s. Total true`)
Prob_ORT <- tezdata %>% select(`problem s. Total true`) %>% 
  summarise(round(mean(`problem s. Total true`),2))
Prob_ORT

## # A tibble: 1 × 1
##   `round(mean(\`problem s. Total true\`), 2)`
##                                         <dbl>
## 1                                        9.97

ifelse(Prob_basari>9.97,"ogrenci ortalama ustu puan aldi","Ogrenci ortalama altı puan aldi")

##  [1] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
##  [3] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
##  [5] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
##  [7] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
##  [9] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [11] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [13] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [15] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [17] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [19] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [21] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [23] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [25] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [27] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [29] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [31] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [33] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [35] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [37] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [39] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [41] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [43] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [45] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [47] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [49] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [51] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"
## [53] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [55] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [57] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [59] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [61] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [63] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [65] "ogrenci ortalama ustu puan aldi" "Ogrenci ortalama altı puan aldi"
## [67] "Ogrenci ortalama altı puan aldi" "ogrenci ortalama ustu puan aldi"
## [69] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [71] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [73] "Ogrenci ortalama altı puan aldi" "Ogrenci ortalama altı puan aldi"
## [75] "ogrenci ortalama ustu puan aldi" "ogrenci ortalama ustu puan aldi"

Mors <- tezdata %>% select(`word "mors"`)
if(any(Mors)==1){
  print("Mors kelimesinin gectigi soruyu dogru yapan en az bir ogrenci var")
}else{
  print("Mors kelimesinin gectigi soruyu tum ogrenciler yanlis yaptmis")  
  }

## [1] "Mors kelimesinin gectigi soruyu dogru yapan en az bir ogrenci var"

hafta-10-11-ODEV

reyhan

2024-12-11

if-else