CODE EXAMPLE FOR R

calculated defualt values in R function parameters

fun <- function(x,levels=levels(x)){
    blah blah blah
}