# Set up the fake data
n <- 100
x <- rnorm (n, 2, 1)
x1 <- rnorm (n)
x1 <- (x1-mean(x1))/(2*sd(x1)) # standardization
x2 <- rbinom (n, 1, .5)
b0 <- 1
b1 <- 1.5
b2 <- 2
y <- rbinom (n, 1, invlogit(b0+b1*x1+b2*x2))
rescale(x, "full")
rescale(y, "center")
# For binary factor
print(rescale(gl(2, 1), binary.inputs = "-0.5,0.5")) # Should return c(-0.5, 0.5)
# For a 5-point Likert scale (e.g., levels: 1, 2, 3, 4, 5)
print(rescale(factor(c(1, 2, 3, 4, 5)), binary.inputs = "center")) # Centered around the mean
Run the code above in your browser using DataLab