P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 05:41:59 +02:00
Code Releases Activity

expert rules 12.0

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-11-14 15:20:39 +01:00
parent 7ca44fb756
commit f6862a139d
35 changed files with 433 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/resistance_predict.R
View File

@ -197,7 +197,7 @@ resistance_predict <- function(x,
if (model %in% c("binomial", "binom", "logit")) {
model <- "binomial"
model_lm <- with(df, glm(df_matrix ~ year, family = binomial))
if (info == TRUE) {
if (isTRUE(info)) {
cat("\nLogistic regression model (logit) with binomial distribution")
cat("\n------------------------------------------------------------\n")
print(summary(model_lm))
@ -209,7 +209,7 @@ resistance_predict <- function(x,
} else if (model %in% c("loglin", "poisson")) {
model <- "poisson"
model_lm <- with(df, glm(R ~ year, family = poisson))
if (info == TRUE) {
if (isTRUE(info)) {
cat("\nLog-linear regression model (loglin) with poisson distribution")
cat("\n--------------------------------------------------------------\n")
print(summary(model_lm))
@ -221,7 +221,7 @@ resistance_predict <- function(x,
} else if (model %in% c("lin", "linear")) {
model <- "linear"
model_lm <- with(df, lm((R / (R + S)) ~ year))
if (info == TRUE) {
if (isTRUE(info)) {
cat("\nLinear regression model")
cat("\n-----------------------\n")
print(summary(model_lm))