the sporadic Janko group J1 in R #Rstats

F11.R

F11 <- function(x) {
    #numbers come in as floats
    as.integer(x)

    #error checking
    stopifnot( is.integer(x) )

    #struct
    structure(x %% 11, class="F11")
    }