`prePro` issue

[sammo3182]

From Guan Wang by email

I ran the example based on the mtcars dataset
provided in the R file (https://cran.r-project.org/web/packages/interplot/vignettes/interplot-vignette.html). The two variables in the interaction term are "wt (continuous)" and "vs (binary)". Below is the code:

library(interplot)

data(mtcars)

class(mtcars$vs);table(mtcars$vs)

m_cyl <- glm(am ~ wt * vs, data = mtcars,family = binomial(link = "logit"))
summary(m_cyl)

windows()
plot_1 <- interplot(m_cyl, var1 = "wt",var2 = "vs",
                       predPro = TRUE,
                       var2_vals = c(0,1))
plot_1

windows()
plot_2 <- interplot(m_cyl, var1 = "vs",var2 = "wt",
                    predPro = TRUE,
                    var2_vals = c(min(mtcars$wt),max(mtcars$wt)))
plot_2### 

[sammo3182]

Fred @fsolt , do you mind have a check of this bug?

I guess the problem relates to the calculation of the intervals, but I can't figure out how to fix it:

interplot/R/Interplot_default.R

Lines 487 to 508 in 74e77ab

	row_quantiles <- function(x, probs) {
	naValue <- NA
	storage.mode(naValue) <- storage.mode(x)
	nrow <- nrow(x)
	q <- matrix(naValue, nrow = nrow, ncol = length(probs))
	if (nrow > 0L) {
	t <- quantile(x[1L,], probs = probs)
	colnames(q) <- names(t)
	q[1L,] <- t
	if (nrow >= 2L) {
	for (rr in 2:nrow) {
	q[rr,] <- quantile(x[rr,], probs = probs)
	}
	}
	}
	else {
	t <- quantile(0, probs = probs)
	colnames(q) <- names(t)
	}
	q <- drop(q)
	q
	}

[fsolt]

Is this issue closed then?

[sammo3182]

Is this issue closed then?

Nope. The problem is still there. I just fixed the visualization part.