{"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.0.5"}},"nbformat_minor":4,"nbformat":4,"cells":[{"cell_type":"code","source":"# This R environment comes with many helpful analytics packages installed\n# It is defined by the kaggle/rstats Docker image: https://github.com/kaggle/docker-rstats\n# For example, here's a helpful package to load\n\nlibrary(tidyverse) # metapackage of all tidyverse packages\n\n# Input data files are available in the read-only \"../input/\" directory\n# For example, running this (by clicking run or pressing Shift+Enter) will list all files under the input directory\n\nlist.files(path = \"../input\")\n\n# You can write up to 20GB to the current directory (/kaggle/working/) that gets preserved as output when you create a version using \"Save & Run All\" \n# You can also write temporary files to /kaggle/temp/, but they won't be saved outside of the current session","metadata":{"_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","_execution_state":"idle","execution":{"iopub.status.busy":"2022-07-26T14:12:41.248014Z","iopub.execute_input":"2022-07-26T14:12:41.250270Z","iopub.status.idle":"2022-07-26T14:12:42.825771Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"train <- read_csv('../input/digit-recognizer/train.csv')\ndim(train)","metadata":{},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"\ndigit <- t(apply(matrix(as.numeric(train[50,-1]),28,byrow = TRUE), 2L, rev))\nimage(x = 1:28, y = 1:28, z = digit, col = hcl.colors(256))","metadata":{"execution":{"iopub.status.busy":"2022-07-26T14:30:13.014161Z","iopub.execute_input":"2022-07-26T14:30:13.015800Z","iopub.status.idle":"2022-07-26T14:30:13.108959Z"},"trusted":true},"execution_count":null,"outputs":[]}]}