parseCall <- function(obj) {
    if (class(obj) != 'call') {
        stop("Must supply a 'call' object")
    }

    srep <- deparse(obj)
    if (length(srep) >1) srep <- paste(srep,sep='',collapse='')

    fname <- unlist(strsplit(srep,"\\("))[1]

    func <- unlist(strsplit(srep, paste(fname,"\\(",sep='')))[2]
    func <- unlist(strsplit(func,""))
    func <- paste(func[-length(func)],sep='',collapse="")

    func <- unlist(strsplit(func,","))

    vals <- list()
    nms <- c()
    cnt <- 1
    for (args in func) {
        arg <- unlist(strsplit(args,"="))[1]
        val <- unlist(strsplit(args,"="))[2]

        arg <- gsub(" ", "", arg)
        val <- gsub(" ", "", val)

        vals[[cnt]] <- val
        nms[cnt] <- arg
        cnt <- cnt + 1
    }
    names(vals) <- nms
    print(vals)
        
}