Called from: deparse(expr, width.cutoff, ...)
--
Browse[1]>
and that is where the error appears
mixPV <- function(fml, silent = FALSE, ...){
res <- list() #empty list
xx <- deparse1(fml[[2]])
xx <- gsub(" ", "", xx)
outc <- unlist(strsplit(xx, split = '\\+'))
#nout <- length(outc) #number of outcomes
pred <- fml[[3]]
I kept getting this error message regarding part of the code please
function (expr, width.cutoff = 60L, backtick = mode(expr) %in% c("call", "expression", "(", "function"), control = c("keepNA", "keepInteger", "niceNames", "showAttributes"), nlines = -1L) .Internal(deparse(expr, width.cutoff, backtick, .deparseOpts(control), nlines))
Called from: deparse(expr, width.cutoff, ...) -- Browse[1]> and that is where the error appears mixPV <- function(fml, silent = FALSE, ...){ res <- list() #empty list xx <- deparse1(fml[[2]]) xx <- gsub(" ", "", xx) outc <- unlist(strsplit(xx, split = '\\+')) #nout <- length(outc) #number of outcomes pred <- fml[[3]]