andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

implemented checks with 'performance' package

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-29 14:30:02 +01:00
commit 3ce9902170
No known key found for this signature in database
13 changed files with 574 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/regression_model.R
View file

@ -112,7 +112,6 @@ regression_model <- function(data,
# Recreating the call
# out$call <- match.call(definition=eval(parse(text=fun)), call(fun, data = 'data',formula = as.formula(formula.str),args.list))
class(out) <- c("webresearch_model", class(out))
return(out)
}
@ -193,12 +192,28 @@ regression_model_uv <- function(data,
do.call(
regression_model,
c(
list(data = data[match(c(outcome.str,.var),names(data))]),
list(outcome.str=outcome.str),
list(args.list=args.list)
list(data = data[match(c(outcome.str, .var), names(data))]),
list(outcome.str = outcome.str),
list(args.list = args.list)
)
)
})
return(out)
}
#' Easy saving png
#'
#' @param data plot
#' @param ... passed to 'png()'
#' @param filename filename
#'
#' @return NULL
#' @export
#'
save_png <- function(data, filename,...) {
png(filename = filename,...)
data
dev.off()
}