{"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"4.4.0"},"kaggle":{"accelerator":"none","dataSources":[{"sourceId":81933,"databundleVersionId":9643020,"sourceType":"competition"}],"dockerImageVersionId":30749,"isInternetEnabled":false,"language":"r","sourceType":"notebook","isGpuEnabled":false}},"nbformat_minor":4,"nbformat":4,"cells":[{"cell_type":"code","source":"# First submission: Minimal MCAR\nlibrary(readr)\ntrain <- read_csv(\"../input/child-mind-institute-problematic-internet-use/train.csv\",\n                  show_col_types = FALSE)\ntest <- read_csv(\"../input/child-mind-institute-problematic-internet-use/test.csv\",\n                 show_col_types = FALSE)\nset.seed(123)\ndonors <- train$sii[!is.na(train$sii)]\nresult <- data.frame(id = test$id,\n                     sii = sample(donors, size = nrow(test), replace = TRUE))\nresult\nwrite_csv(result, file = \"submission.csv\")","metadata":{"trusted":true,"execution":{"iopub.status.busy":"2024-10-21T21:05:03.911194Z","iopub.execute_input":"2024-10-21T21:05:03.913556Z","iopub.status.idle":"2024-10-21T21:05:04.490037Z","shell.execute_reply":"2024-10-21T21:05:04.487834Z"}},"outputs":[],"execution_count":null}]}