if() odev

11.Ders (13.12.2021) örnek soru yanıtı

vize <- c(60,70,80,90,55)
final <- c(45,65,70,50,80)
devam <- c(14,10,13,12,11)

gecme_notu=(60*final+40*vize)/100
gecme_notu2=60*final/100

not <- function(){
   ifelse(final>=50 & devam>=11, gecme_notu,
          ifelse(devam<11, gecme_notu2, "Derse devam 11'den az"))
}

not()

## [1] "Derse devam 11'den az" "39"                    "74"                   
## [4] "66"                    "70"