je_cele <- function(cislo) {
    zbytek = cislo - round(cislo)
    if(zbytek == 0) {
        return(TRUE) 
    }
    else {
        return(FALSE)
    }
}

# kratsi syntax

je_cele <- function(cislo) {
    zbytek = cislo - round(cislo)
    if(zbytek == 0) { return(TRUE) }
    else return(FALSE)
}