added missing () from line 35

changed 
data <- x$get  -----------    data <- x$get()