![]() ![]() ![]() 001]) U0 <- Ks $u h1_prime_hat <- fitted( lm(h1_prime ~ U0)) h1 <- h1_prime - h1_prime_hat h1 <- h1 / sqrt( sum(h1 ^ 2)) # standardize interaction effect Y <- h0 + int_effect * h1 + rnorm( 1) + rnorm(n, 0, 0.01) data <- as.ame( cbind(Y, Z1, Z2)) colnames(data) <- c( "y", paste0( "z", 1 :d)) data_train <- data data_test <- data
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |