# Example data
set.seed(123)
n <- c(300, 300, 400) # Sample sizes for each group
p <- 5 # Number of independent variables
d <- list(p = p, Y = rnorm(sum(n)), X0 = matrix(rnorm(sum(n) * p), ncol = p))
# Call FimIMI function
result <- FimIMI(d = d, R = 10, n = n, M = 20, batch = 1)
# View results
print(result$Beta) # Regression coefficients for each run
Run the code above in your browser using DataLab