From b1ade4518e793303cb1a2a60287b931161c3d975 Mon Sep 17 00:00:00 2001
From: ybktr <taro.yabuki@it-chiba.ac.jp>
Date: Sun, 8 Dec 2024 14:34:27 +0900
Subject: [PATCH] =?UTF-8?q?%<-%=E3=81=AE=E3=82=A8=E3=83=A9=E3=83=BC?=
 =?UTF-8?q?=E3=81=AB=E5=AF=BE=E5=BF=9C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 code/R-notebook/r-03.ipynb |  244 ++++-----
 code/R-notebook/r-11.ipynb |  137 ++---
 code/r.Rmd                 |   11 +-
 code/r.ipynb               | 1011 ++++++++++++++++++------------------
 update.md                  |    6 +-
 5 files changed, 716 insertions(+), 693 deletions(-)

diff --git a/code/R-notebook/r-03.ipynb b/code/R-notebook/r-03.ipynb
index abf5cc2..4804deb 100644
--- a/code/R-notebook/r-03.ipynb
+++ b/code/R-notebook/r-03.ipynb
@@ -1,7 +1,7 @@
 {
   "cells": [
     {
-      "id": "a0e4032f",
+      "id": "0717efbe",
       "cell_type": "markdown",
       "source": "[\u8fbb\u771f\u543e\u30fb\u77e2\u5439\u592a\u6717\u300e\u30bc\u30ed\u304b\u3089\u306f\u3058\u3081\u308b\u30c7\u30fc\u30bf\u30b5\u30a4\u30a8\u30f3\u30b9\u5165\u9580\u300f\uff08\u8b1b\u8ac7\u793e,\u00a02021\uff09](https://github.com/taroyabuki/fromzero)",
       "metadata": {}
@@ -21,10 +21,10 @@
         "  install.packages(c(\"ggplot2\"))\n",
         "}"
       ],
-      "id": "c2f921aa-0703-4bcd-865b-1f261ef7ce41"
+      "id": "4552f3f3-d5d6-4596-b254-bd7d46218e9c"
     },
     {
-      "id": "37d1ae45",
+      "id": "04b33e99",
       "cell_type": "markdown",
       "source": "## 3.1 \u5165\u9580",
       "metadata": {}
@@ -37,7 +37,7 @@
       "source": [
         "0x10"
       ],
-      "id": "dca9f6a7-8ec0-4d3c-9111-1169440ceddc"
+      "id": "b9d0246f-4afc-41f1-b3cc-6928c6286cdf"
     },
     {
       "cell_type": "code",
@@ -47,7 +47,7 @@
       "source": [
         "1.23e5"
       ],
-      "id": "9c535f99-ea34-45ee-84a8-b23f26f24186"
+      "id": "0b3005c6-6c76-43c3-8d99-f7fb6047042f"
     },
     {
       "cell_type": "code",
@@ -57,7 +57,7 @@
       "source": [
         "2 * 3"
       ],
-      "id": "cedd7059-8053-4cda-a140-4e4f4f9cf4ca"
+      "id": "978f2155-9fbc-49d2-bce4-041a0f07816f"
     },
     {
       "cell_type": "code",
@@ -67,7 +67,7 @@
       "source": [
         "10 / 3"
       ],
-      "id": "bf150f84-6fee-46c9-a11b-52170933c3b4"
+      "id": "c3018e52-860e-4b8b-bcb5-a2e3d1a8ccfb"
     },
     {
       "cell_type": "code",
@@ -79,7 +79,7 @@
         "\n",
         "10 %% 3  # \u4f59\u308a"
       ],
-      "id": "e99322e5-45eb-4919-9c08-16628dc7259e"
+      "id": "51511656-608f-4fce-9d49-088336cd50d2"
     },
     {
       "cell_type": "code",
@@ -99,7 +99,7 @@
         "c(x, y) %<-% c(20, 30) # \u307e\u3068\u3081\u3066\u540d\u4ed8\u3051\n",
         "x * y"
       ],
-      "id": "9f2b7a71-3cee-48d2-a7e6-d71abab7670d"
+      "id": "d0ba6c3f-489d-4997-a12a-8e8c69fbabb7"
     },
     {
       "cell_type": "code",
@@ -112,7 +112,7 @@
         "\n",
         "x # \u5909\u6570\u540d\u3092\u8a55\u4fa1\u3059\u308b\uff0e"
       ],
-      "id": "3640fd15-0168-4ee5-9514-94c18a7480a3"
+      "id": "a877dab5-2cf6-4a0b-bb60-a878c1c94e1d"
     },
     {
       "cell_type": "code",
@@ -122,7 +122,7 @@
       "source": [
         "my_s <- \"abcde\""
       ],
-      "id": "fc5a03e8-d49c-465f-abd4-b7339cdbe681"
+      "id": "1d5f080e-e334-4e17-85e8-211521ce3f82"
     },
     {
       "cell_type": "code",
@@ -132,7 +132,7 @@
       "source": [
         "nchar(my_s)"
       ],
-      "id": "1395f764-9a3a-43b7-881c-24f841c85bdd"
+      "id": "f5bcd527-454f-4395-a1b4-a1d2e970c1dd"
     },
     {
       "cell_type": "code",
@@ -143,7 +143,7 @@
         "library(tidyverse)\n",
         "str_c(\"This is \", \"a\", \" pen.\")"
       ],
-      "id": "7b768a30-70c4-4ac1-9fa9-1f0bea19d1d8"
+      "id": "d7c93429-0137-4b4f-add0-b0e826833ba8"
     },
     {
       "cell_type": "code",
@@ -153,7 +153,7 @@
       "source": [
         "substr(x = my_s, start = 2, stop = 4)"
       ],
-      "id": "5285dcb4-4dbe-4407-a28e-4391666c9111"
+      "id": "0bd3acb7-00cc-4e54-b774-aad7c8a02a81"
     },
     {
       "cell_type": "code",
@@ -164,7 +164,7 @@
         "tmp <- \"%s is %s.\"\n",
         "sprintf(tmp, \"This\", \"a pen\")"
       ],
-      "id": "e447d6ae-cf8c-4bca-9378-383b02722961"
+      "id": "ddd2a5e6-0d6d-434d-af41-8417c2ec25fd"
     },
     {
       "cell_type": "code",
@@ -176,7 +176,7 @@
         "\n",
         "1 < 0"
       ],
-      "id": "df75ed86-c341-4fdf-8815-16661d6e833f"
+      "id": "e635d9fb-a272-4a66-af29-0594211f48f7"
     },
     {
       "cell_type": "code",
@@ -188,7 +188,7 @@
         "\n",
         "all.equal(0.1 + 0.1 + 0.1, 0.3)"
       ],
-      "id": "7b7e2501-4fdf-4605-8324-75eec96bd0c5"
+      "id": "cd93d070-1595-4b49-828e-3b7f1489f7ed"
     },
     {
       "cell_type": "code",
@@ -202,7 +202,7 @@
         "\n",
         "!TRUE        # \u5426\u5b9a\uff08\u3067\u306a\u3044\uff09"
       ],
-      "id": "ff5232bb-8664-4c1d-9dde-d1dfbb2bb629"
+      "id": "94ad0064-c8fc-41c4-a6d8-9d0a16c14fcc"
     },
     {
       "cell_type": "code",
@@ -212,7 +212,7 @@
       "source": [
         "ifelse(3 < 5, 0, 10)"
       ],
-      "id": "5563b4e6-e619-4e2a-8778-6b06dfd8da43"
+      "id": "ea3de986-1201-484a-9696-e970e351a340"
     },
     {
       "cell_type": "code",
@@ -222,7 +222,7 @@
       "source": [
         "getwd()"
       ],
-      "id": "656bb482-d5de-4435-8d34-62dfa23aca44"
+      "id": "1986c547-5c42-4bd2-a187-b4ed65e74ee1"
     },
     {
       "cell_type": "code",
@@ -233,10 +233,10 @@
         "setwd(\"..\")\n",
         "getwd()"
       ],
-      "id": "e7c77729-0e01-40f9-9cfa-640cc10782e4"
+      "id": "d9a51f1d-c6b8-4f7b-80fc-310dc8543b03"
     },
     {
-      "id": "d929aa1c",
+      "id": "8fd256b7",
       "cell_type": "markdown",
       "source": "## 3.2 \u95a2\u6570",
       "metadata": {}
@@ -249,7 +249,7 @@
       "source": [
         "sqrt(4)"
       ],
-      "id": "090e0147-3e15-41cc-bffa-d70a28d51237"
+      "id": "6f797481-fad5-4c13-bbea-7b2dfb2518f4"
     },
     {
       "cell_type": "code",
@@ -259,7 +259,7 @@
       "source": [
         "log(100, 10)"
       ],
-      "id": "24f2abdd-8c91-4e5b-903b-3bd6857792a1"
+      "id": "7e16c111-7f24-4c48-a655-b8ff18ed9d63"
     },
     {
       "cell_type": "code",
@@ -271,7 +271,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "log(100, exp(1)) # \u7701\u7565\u3057\u306a\u3044\u5834\u5408\n"
       ],
-      "id": "ec6e719b-0c40-4610-9ac4-aff261a41d74"
+      "id": "f90c053e-1506-4a72-84dc-6b1b7aecb149"
     },
     {
       "cell_type": "code",
@@ -283,7 +283,7 @@
         "\n",
         "log2(1024) # \u5e95\u304c2\u306e\u5bfe\u6570"
       ],
-      "id": "66423bb0-e0e7-47af-8ec5-c30445db3e45"
+      "id": "76180fb9-fbb1-4954-beae-c91a70226c5d"
     },
     {
       "cell_type": "code",
@@ -294,7 +294,7 @@
         "library(tidyverse)\n",
         "4 %>% sqrt"
       ],
-      "id": "b993014c-b2dd-4f1d-a45a-c3198f2c7a52"
+      "id": "1edb8b46-beb2-4452-a513-e99051852b3c"
     },
     {
       "cell_type": "code",
@@ -306,7 +306,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "5 %>% log %>% exp # \u30d1\u30a4\u30d7\u3092\u4f7f\u3046\u66f8\u304d\u65b9\n"
       ],
-      "id": "cf813dd0-69ea-475f-9afb-015c272e73e6"
+      "id": "65c32011-b029-42c5-abac-44d5c1ac162a"
     },
     {
       "cell_type": "code",
@@ -318,7 +318,7 @@
         "  a - b\n",
         "}"
       ],
-      "id": "1eec6050-cd85-4c00-929f-d25a422bbee2"
+      "id": "a28a28a3-5e58-4270-a251-c3fe6f60470b"
     },
     {
       "cell_type": "code",
@@ -328,7 +328,7 @@
       "source": [
         "f(3, 5)"
       ],
-      "id": "5cc4dd6b-8be1-40f2-8585-8d64270c3489"
+      "id": "f357d375-eea1-4a67-bafa-14288791ab22"
     },
     {
       "cell_type": "code",
@@ -342,7 +342,7 @@
         "\n",
         "f(3) # f(3, 5)\u3068\u540c\u3058\u3053\u3068"
       ],
-      "id": "b3f0e829-c9d2-4829-b8e9-d41d62b3ee27"
+      "id": "720c3e5e-226f-46ad-a81f-7b2d3686c8b5"
     },
     {
       "cell_type": "code",
@@ -352,10 +352,10 @@
       "source": [
         "(function(a, b) { a - b })(3, 5)"
       ],
-      "id": "1b1832d7-b97a-4268-a0f3-0ac7405c34aa"
+      "id": "904132fd-c0ce-4ae4-9150-89666142a73a"
     },
     {
-      "id": "8caff130",
+      "id": "f66bda8c",
       "cell_type": "markdown",
       "source": "## 3.3 \u30b3\u30ec\u30af\u30b7\u30e7\u30f3",
       "metadata": {}
@@ -368,7 +368,7 @@
       "source": [
         "x <- c(\"foo\", \"bar\", \"baz\")"
       ],
-      "id": "6a8b3361-9cd9-46be-9d59-90fd2f48adfe"
+      "id": "240d5b28-67d4-4c55-8c26-88a30a497364"
     },
     {
       "cell_type": "code",
@@ -378,7 +378,7 @@
       "source": [
         "length(x)"
       ],
-      "id": "093e2978-992e-430b-8b09-73b6b93b2e73"
+      "id": "de0cc4b7-d7ca-419c-ad5e-9d6b470c2741"
     },
     {
       "cell_type": "code",
@@ -388,7 +388,7 @@
       "source": [
         "x[2]"
       ],
-      "id": "197c6f15-b35a-498c-ac05-6b7af2605812"
+      "id": "a34b8d7d-b063-45b8-8080-b2d98154d30a"
     },
     {
       "cell_type": "code",
@@ -401,7 +401,7 @@
         "\n",
         "x[2] <- \"bar\" # \u5143\u306b\u623b\u3059\uff0e"
       ],
-      "id": "06de9145-656a-4d3a-bc72-9c50ff91a0b2"
+      "id": "ac24477a-5e2f-4ab9-86fd-0157f6ddb101"
     },
     {
       "cell_type": "code",
@@ -411,7 +411,7 @@
       "source": [
         "x[-2]"
       ],
-      "id": "5a0b9487-808b-4c67-af47-768edb85970c"
+      "id": "da97e697-879f-46fb-9449-192ab091c1aa"
     },
     {
       "cell_type": "code",
@@ -421,7 +421,7 @@
       "source": [
         "c(x, \"qux\")"
       ],
-      "id": "89749fe4-44bf-4e7c-8860-20bcbce7156c"
+      "id": "4082b1a5-308c-48e6-aa06-ef4fd5e85538"
     },
     {
       "cell_type": "code",
@@ -432,7 +432,7 @@
         "x <- c(x, \"qux\")\n",
         "x # \u7d50\u679c\u306e\u78ba\u8a8d"
       ],
-      "id": "6de6debc-671b-4089-9c44-cda783d82f91"
+      "id": "2863d93d-8449-47d6-833d-e0879687a42e"
     },
     {
       "cell_type": "code",
@@ -442,7 +442,7 @@
       "source": [
         "1:5"
       ],
-      "id": "fe869d31-d54a-4683-be72-be4d85af3162"
+      "id": "194b2112-f886-4084-8864-45654528d2ff"
     },
     {
       "cell_type": "code",
@@ -452,7 +452,7 @@
       "source": [
         "seq(from = 0, to = 10, by = 2)"
       ],
-      "id": "209ab783-5073-483f-9a5d-ad68c2ce279c"
+      "id": "f51c5b52-6f59-4748-b626-8b28c8baa79f"
     },
     {
       "cell_type": "code",
@@ -462,7 +462,7 @@
       "source": [
         "seq(from = 0, to = 1, by = 0.5)"
       ],
-      "id": "b5f62efd-13e9-413f-80cb-5f5c00a4ed58"
+      "id": "c4e23e1a-77c2-403e-b40b-7449d6cc733b"
     },
     {
       "cell_type": "code",
@@ -472,7 +472,7 @@
       "source": [
         "seq(from = 0, to = 100, length.out = 5)"
       ],
-      "id": "94120086-b29f-4f16-8f6a-02b99296294a"
+      "id": "74209ae5-4a87-4303-9a9f-221fd8a707f3"
     },
     {
       "cell_type": "code",
@@ -482,7 +482,7 @@
       "source": [
         "rep(x = 10, times = 5)"
       ],
-      "id": "b9048962-cdb6-49ab-a90e-6250bcf10b98"
+      "id": "e93aaa93-ed60-4635-8091-cec27d779ae8"
     },
     {
       "cell_type": "code",
@@ -494,7 +494,7 @@
         "x <- factor(tmp, levels = c(\"\u30b0\u30fc\", \"\u30c1\u30e7\u30ad\", \"\u30d1\u30fc\"))\n",
         "x"
       ],
-      "id": "4e9141d4-4732-4159-8361-00d749dd08a2"
+      "id": "06bb96fc-4f68-40c0-8744-7dbf7027de4a"
     },
     {
       "cell_type": "code",
@@ -508,7 +508,7 @@
         "\n",
         "x * 10 # \u4e57\u7b97"
       ],
-      "id": "af7b6fd0-e1cb-40eb-841a-9016730d7c3d"
+      "id": "a9e9d46a-a2bf-48ed-a5fc-d99d0a96408b"
     },
     {
       "cell_type": "code",
@@ -519,7 +519,7 @@
         "x <- c(2, 3)\n",
         "sin(x)"
       ],
-      "id": "a6d185bd-fafd-409a-935f-02113c7001fd"
+      "id": "2b017dbb-036f-42c4-a3dd-5f1f3f1c986c"
     },
     {
       "cell_type": "code",
@@ -533,7 +533,7 @@
         "\n",
         "x * y"
       ],
-      "id": "e5c4986b-b3c0-4197-b799-165ace4e7bf2"
+      "id": "121f1be3-0aa7-4d6e-ac3c-456a4e0555b9"
     },
     {
       "cell_type": "code",
@@ -543,7 +543,7 @@
       "source": [
         "sum(x * y)"
       ],
-      "id": "f1ecb9d6-ad18-48a2-bddc-d097ad8a77f1"
+      "id": "8e6ccf8f-19c9-4ea5-9bb0-49822b5114b3"
     },
     {
       "cell_type": "code",
@@ -555,7 +555,7 @@
         "y <- c(TRUE, TRUE)\n",
         "x & y"
       ],
-      "id": "70010509-ca47-40aa-829b-60afa532dd4b"
+      "id": "741ee0ba-0025-4203-ac85-9015879da835"
     },
     {
       "cell_type": "code",
@@ -575,7 +575,7 @@
         "\n",
         "u == w          # \u8981\u7d20\u3054\u3068\u306e\u6bd4\u8f03"
       ],
-      "id": "a9ce971d-dec6-4d15-88e7-44bb4450ded1"
+      "id": "0c8e5da7-5952-4371-8039-3e4c7edc6126"
     },
     {
       "cell_type": "code",
@@ -587,7 +587,7 @@
         "\n",
         "mean(u == w) # \u540c\u3058\u8981\u7d20\u306e\u5272\u5408"
       ],
-      "id": "cbe10785-dbfb-4779-b293-93bff7f24886"
+      "id": "503bab48-9ed4-4e0c-85c3-cdfc3202bb79"
     },
     {
       "cell_type": "code",
@@ -597,7 +597,7 @@
       "source": [
         "x <- list(1, \"two\")"
       ],
-      "id": "755c7a13-7c07-48cf-82f3-099dcd02b4a1"
+      "id": "dbcdb4a5-f56c-40f2-97b3-c707498334b4"
     },
     {
       "cell_type": "code",
@@ -607,7 +607,7 @@
       "source": [
         "x[[2]]"
       ],
-      "id": "517858d8-4c97-4956-9f0e-c58225bf0174"
+      "id": "771bfdac-3afe-4f4e-963a-e0c058c908c9"
     },
     {
       "cell_type": "code",
@@ -618,7 +618,7 @@
         "x <- list(\"apple\"  = \"\u308a\u3093\u3054\",\n",
         "          \"orange\" = \"\u307f\u304b\u3093\")"
       ],
-      "id": "dc1237a4-033a-4b94-9231-e95ed9a89065"
+      "id": "6a1fdd6b-594b-47d4-82af-a2c4265dc239"
     },
     {
       "cell_type": "code",
@@ -628,7 +628,7 @@
       "source": [
         "x[[\"grape\"]] <- \"\u3076\u3069\u3046\""
       ],
-      "id": "be045616-e7d9-4220-ad74-190814b48f4b"
+      "id": "340aa8c7-8088-4cf9-997b-ac01f40830ae"
     },
     {
       "cell_type": "code",
@@ -645,7 +645,7 @@
         "tmp <- \"apple\"\n",
         "x[[tmp]]\n"
       ],
-      "id": "6df7c1f0-e87e-4d53-972e-b9f264f071ca"
+      "id": "24d5ac46-a361-4857-a9b3-456f1c248c9c"
     },
     {
       "cell_type": "code",
@@ -660,10 +660,10 @@
         "\n",
         "x             # x\u306f\u5909\u308f\u3089\u306a\u3044\uff0e"
       ],
-      "id": "2788a3e4-ca7f-4361-808f-3f49600c8d54"
+      "id": "a04af2e5-9092-46ba-b996-e3310e23523c"
     },
     {
-      "id": "eeb6db2c",
+      "id": "a0d3b174",
       "cell_type": "markdown",
       "source": "## 3.4 \u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0",
       "metadata": {}
@@ -676,7 +676,7 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "579bd3cd-1e8a-49aa-b8e7-be519ec7a40f"
+      "id": "8f8825f2-c4c8-4e74-9fad-38611b0f1b16"
     },
     {
       "cell_type": "code",
@@ -690,7 +690,7 @@
         "  math    = c( 70,  80,  90, 100),\n",
         "  gender  = c(\"f\", \"m\", \"m\", \"f\"))"
       ],
-      "id": "1e1cb95a-4886-4f2a-b5ae-f017862e626b"
+      "id": "72f3256b-fe13-408e-8dc7-8e3c09fb2de4"
     },
     {
       "cell_type": "code",
@@ -705,7 +705,7 @@
         "  \"C\",         70,    90,     \"m\",\n",
         "  \"D\",         90,   100,     \"f\")"
       ],
-      "id": "5525dd9a-33ef-42c4-9dd6-e15b8697086f"
+      "id": "2d7e4535-673f-4074-85c7-1d534ccc6d1f"
     },
     {
       "cell_type": "code",
@@ -716,7 +716,7 @@
         "head(my_df)\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "220ebda4-6ea0-417d-81b3-92b776946534"
+      "id": "c689ab25-9221-4f0b-b70e-2f52dc6ca9a6"
     },
     {
       "cell_type": "code",
@@ -730,7 +730,7 @@
         "\n",
         "ncol(my_df) # \u5217\u6570"
       ],
-      "id": "38990a1f-7adf-4516-8889-5580d1fe03af"
+      "id": "dc288c97-d913-42e4-87dc-98983d37d770"
     },
     {
       "cell_type": "code",
@@ -743,7 +743,7 @@
         "  Y = c(10, 100))\n",
         "my_df2"
       ],
-      "id": "b72f30b0-305c-48d8-841f-e741a53cbf5d"
+      "id": "f1db8913-7ed1-4f0b-b6a3-5af6e5ed522f"
     },
     {
       "cell_type": "code",
@@ -753,7 +753,7 @@
       "source": [
         "colnames(my_df2)"
       ],
-      "id": "1c361edf-cc45-4c6b-95b0-f00956163ed5"
+      "id": "b5d115c1-f16c-4eee-bcd3-188ac6d5e472"
     },
     {
       "cell_type": "code",
@@ -765,7 +765,7 @@
         "my_df2\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "f3b41fcc-999b-48fc-8a5c-98fd9027f6e0"
+      "id": "3c920477-bb84-4518-b56a-b34fcfa75c28"
     },
     {
       "cell_type": "code",
@@ -775,7 +775,7 @@
       "source": [
         "row.names(my_df)"
       ],
-      "id": "35678ec9-0a69-4a90-999b-8480631c7b63"
+      "id": "341957ab-cfc3-493e-bde2-64fc36804334"
     },
     {
       "cell_type": "code",
@@ -788,7 +788,7 @@
         "my_df2\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "13e2c5cf-724a-4bc6-85af-8c9573caa789"
+      "id": "09fd6464-570d-4970-819b-db78a1460184"
     },
     {
       "cell_type": "code",
@@ -803,7 +803,7 @@
         "  row.names = c(\"A\", \"B\", \"C\", \"D\"))\n",
         "my_df3"
       ],
-      "id": "78f2099f-7f6b-4b41-87af-f2cd21f3da35"
+      "id": "961255f5-b5e4-45a7-bcc2-e6ca9b689d26"
     },
     {
       "cell_type": "code",
@@ -818,7 +818,7 @@
         "  gender  = \"m\")\n",
         "my_df2 <- rbind(my_df, tmp)"
       ],
-      "id": "67408018-bde1-4f57-83b1-2ce571adcc66"
+      "id": "bb8eecf0-58c2-4d85-ae0f-184fb0eebe99"
     },
     {
       "cell_type": "code",
@@ -829,7 +829,7 @@
         "my_df2 <- my_df %>%\n",
         "  mutate(id = c(1, 2, 3, 4))"
       ],
-      "id": "e7ecac02-e326-431b-ac39-0051a9d0dacb"
+      "id": "105a6f38-df62-4188-ab53-a5fed1694b01"
     },
     {
       "cell_type": "code",
@@ -841,7 +841,7 @@
         "my_df3[\"id\"] <- c(1, 2, 3, 4) # \u66f4\u65b0\n",
         "my_df3 # \u7d50\u679c\u306e\u78ba\u8a8d\uff08\u5272\u611b\uff09"
       ],
-      "id": "57fbf763-aab0-49a1-b0f1-a72dfa381efc"
+      "id": "9049889f-2195-446d-aca1-c879497822a8"
     },
     {
       "cell_type": "code",
@@ -851,7 +851,7 @@
       "source": [
         "my_df[1, 2]"
       ],
-      "id": "d4c9371f-036e-4723-a01d-2bf85cf6f838"
+      "id": "cd92eee9-65ca-4176-b0e0-a10c063683ad"
     },
     {
       "cell_type": "code",
@@ -872,7 +872,7 @@
         "\n",
         "x # \u7d50\u679c\u306e\u78ba\u8a8d\uff08\u5272\u611b\uff09"
       ],
-      "id": "99634e5d-7eaf-4111-9fa4-02b582b056b1"
+      "id": "463d7f58-c738-4de0-a4ef-4275faaa5782"
     },
     {
       "cell_type": "code",
@@ -882,7 +882,7 @@
       "source": [
         "x <- my_df %>% select(name, math)"
       ],
-      "id": "faf5c99d-6687-4690-8555-e220163fef25"
+      "id": "bf002567-cc7f-4aab-a732-c978fb38d50a"
     },
     {
       "cell_type": "code",
@@ -892,7 +892,7 @@
       "source": [
         "x <- my_df[, c(1, 3)]"
       ],
-      "id": "56bbae99-9036-4de7-9d06-a4706ce716eb"
+      "id": "d4848abd-e406-43aa-9e41-49718b7ea4de"
     },
     {
       "cell_type": "code",
@@ -905,7 +905,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df[, -c(2, 4)]"
       ],
-      "id": "d74b9abd-fbbd-4bd5-aefd-2ce6069422c0"
+      "id": "2f9fbea5-52b6-4ed9-bb8a-73d0ae0a4419"
     },
     {
       "cell_type": "code",
@@ -915,7 +915,7 @@
       "source": [
         "x <- my_df[c(1, 3), ]"
       ],
-      "id": "f097ed26-2c67-403e-ad56-17b7a7ffa086"
+      "id": "ee797f33-a885-4635-a913-1d0e76def905"
     },
     {
       "cell_type": "code",
@@ -925,7 +925,7 @@
       "source": [
         "x <- my_df[-c(2, 4), ]"
       ],
-      "id": "fb563c2e-ab96-48e0-b3d5-6fc73a6acf8d"
+      "id": "e7a0ec57-c24c-4b16-9b0b-a923931a7912"
     },
     {
       "cell_type": "code",
@@ -937,7 +937,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(gender == \"m\")"
       ],
-      "id": "ebe1f3ce-6fec-48bd-b5e9-72fb093443f1"
+      "id": "470443b3-a3b2-44ca-a9ed-48d7ea61335c"
     },
     {
       "cell_type": "code",
@@ -949,7 +949,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(english > 80 & gender == \"m\")"
       ],
-      "id": "ca6d0637-e8ca-482f-ada8-49855b70badf"
+      "id": "7beefa8d-a72b-4ee8-aaba-5761b371a683"
     },
     {
       "cell_type": "code",
@@ -961,7 +961,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(english == max(my_df$english))"
       ],
-      "id": "74be348f-f871-4b70-8fc1-1643bb1ea5f8"
+      "id": "af827024-98ea-425c-90b8-d4dce94bec97"
     },
     {
       "cell_type": "code",
@@ -972,7 +972,7 @@
         "my_df2 <- my_df # \u30b3\u30d4\u30fc\n",
         "my_df2[my_df$gender == \"m\", ]$gender <- \"M\""
       ],
-      "id": "62cc4ccb-1b2d-4070-a867-08749fb514d8"
+      "id": "b7c1fa57-67e6-4ed6-9a66-50cb2e59e049"
     },
     {
       "cell_type": "code",
@@ -982,7 +982,7 @@
       "source": [
         "my_df2"
       ],
-      "id": "ff0c7eb0-7aab-4670-83f5-155663f9f4d3"
+      "id": "d94a104c-bff8-444b-ae8e-99da68ed2d5e"
     },
     {
       "cell_type": "code",
@@ -992,7 +992,7 @@
       "source": [
         "x <- my_df %>% arrange(english)"
       ],
-      "id": "421eeec6-6d15-4077-9786-14f35c83630c"
+      "id": "3fe86059-7e4b-40ee-bbf0-4edf67757e7b"
     },
     {
       "cell_type": "code",
@@ -1002,7 +1002,7 @@
       "source": [
         "x <- my_df %>% arrange(-english)"
       ],
-      "id": "06056e1c-cb40-4f78-8248-e498a8d84383"
+      "id": "ff030a23-8085-43e3-a19e-9567ca45ffa3"
     },
     {
       "cell_type": "code",
@@ -1018,7 +1018,7 @@
         "  byrow = TRUE) # \u884c\u3054\u3068\u306e\u751f\u6210\n",
         "A"
       ],
-      "id": "cf0f64a7-3de7-4079-8fa2-11a08b97764c"
+      "id": "22badfdf-0f7f-42d1-95df-7d205aa75811"
     },
     {
       "cell_type": "code",
@@ -1029,7 +1029,7 @@
         "A <- my_df[, c(2, 3)] %>% as.matrix\n",
         "A"
       ],
-      "id": "f2ea788e-2d27-4d9e-9d50-94100679205c"
+      "id": "3bf89497-695a-4f0d-a057-2f60feccbab9"
     },
     {
       "cell_type": "code",
@@ -1039,7 +1039,7 @@
       "source": [
         "as.data.frame(A)"
       ],
-      "id": "1d096e19-66c2-42be-b6f5-82e02bfdee6a"
+      "id": "5743410f-285f-4138-ac1b-688d2be10fe7"
     },
     {
       "cell_type": "code",
@@ -1049,7 +1049,7 @@
       "source": [
         "t(A)"
       ],
-      "id": "5a048978-81ba-4366-a53f-df3d00d70052"
+      "id": "86df5305-da84-42b9-b218-840d91d8363f"
     },
     {
       "cell_type": "code",
@@ -1059,7 +1059,7 @@
       "source": [
         "t(A) %*% A"
       ],
-      "id": "4a86765c-5aff-46fc-819e-e9e2bc769446"
+      "id": "cb48901b-247b-446c-a8fd-4e2399b4840e"
     },
     {
       "cell_type": "code",
@@ -1072,7 +1072,7 @@
         "  min = c(20, 21, 15),\n",
         "  max = c(24, 27, 21))"
       ],
-      "id": "1b0598ef-7f9c-43f9-8c9a-1154da943590"
+      "id": "6b7bb908-b343-4fda-bd6c-bcec38ec62e3"
     },
     {
       "cell_type": "code",
@@ -1084,7 +1084,7 @@
         "  pivot_longer(-day)\n",
         "my_longer"
       ],
-      "id": "c11d541b-83c7-493f-b5e7-12c9b3db7057"
+      "id": "4138f174-6143-4c05-a20e-135068579a97"
     },
     {
       "cell_type": "code",
@@ -1094,7 +1094,7 @@
       "source": [
         "my_longer %>% pivot_wider()"
       ],
-      "id": "258d5959-1f67-4a9f-a6b3-513972208e05"
+      "id": "10093cc0-158a-4b87-bda3-c9ab16844ed9"
     },
     {
       "cell_type": "code",
@@ -1111,10 +1111,10 @@
         "  scale_x_continuous(\n",
         "    breaks = my_longer$day) # x\u8ef8\u76ee\u76db\u308a"
       ],
-      "id": "88a40650-cd24-4bb4-a3aa-f28588968b6d"
+      "id": "bc883e3f-32ae-4f95-ad60-6f4dd6d41b22"
     },
     {
-      "id": "429c9c85",
+      "id": "810737d7",
       "cell_type": "markdown",
       "source": "## 3.5 1\u6b21\u5143\u30c7\u30fc\u30bf\u306e\uff08\u975e\uff09\u985e\u4f3c\u5ea6",
       "metadata": {}
@@ -1135,7 +1135,7 @@
         "\n",
         "sum(AC^2)^0.5"
       ],
-      "id": "55ca3973-2645-4002-a49a-587fa6186086"
+      "id": "672f3b50-0924-4dca-bf29-a6595d935480"
     },
     {
       "cell_type": "code",
@@ -1147,7 +1147,7 @@
         "\n",
         "sum(abs(AC))"
       ],
-      "id": "b378a0a5-38f2-43a2-b39e-8f0ea8b66c91"
+      "id": "41f5914e-c9c3-4e07-a13b-603732a7a075"
     },
     {
       "cell_type": "code",
@@ -1161,7 +1161,7 @@
         "sum(A * C) /\n",
         "  sum(A * A)^0.5 / sum(C * C)^0.5"
       ],
-      "id": "5826e117-bd5b-441f-978b-924ebd22810c"
+      "id": "d3a7548f-d0e0-491f-93f0-044c00cdd425"
     },
     {
       "cell_type": "code",
@@ -1173,7 +1173,7 @@
         "\n",
         "cor(A, C)"
       ],
-      "id": "9c1af363-a916-4624-a5cd-66cd12dcefb3"
+      "id": "69eaf276-fb1a-4743-95e2-cafbff9216a6"
     },
     {
       "cell_type": "code",
@@ -1206,10 +1206,10 @@
         "# \u76f8\u95a2\u4fc2\u6570\n",
         "my_df %>% proxy::simil(\"correlation\")"
       ],
-      "id": "e196e0c4-c669-4a6d-9224-fd0f158ea9c9"
+      "id": "d5f48a34-1ff4-462b-be12-31732273c897"
     },
     {
-      "id": "06b90d7d",
+      "id": "64d8fb6d",
       "cell_type": "markdown",
       "source": "## 3.6 R\u306e\u30d1\u30c3\u30b1\u30fc\u30b8\uff0cPython\u306e\u30e2\u30b8\u30e5\u30fc\u30eb",
       "metadata": {}
@@ -1222,10 +1222,10 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "efb9ac75-4f75-4a60-b034-2b83912e4712"
+      "id": "e021bbb8-eeab-4e06-a3f2-65ff11bbfeba"
     },
     {
-      "id": "e6f6f800",
+      "id": "e57778f1",
       "cell_type": "markdown",
       "source": "## 3.7 \u53cd\u5fa9\u51e6\u7406",
       "metadata": {}
@@ -1238,7 +1238,7 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "e553178d-cd5b-44ff-bfcd-a83592ef96f4"
+      "id": "088bc32b-48fd-4e11-8ee9-10cc724328e9"
     },
     {
       "cell_type": "code",
@@ -1253,7 +1253,7 @@
         "\n",
         "f1(10)           # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "e6d4f9a5-6171-4062-8d72-5b1e38cc745a"
+      "id": "41876730-6d90-4e72-b2a5-0121797ff7dc"
     },
     {
       "cell_type": "code",
@@ -1263,7 +1263,7 @@
       "source": [
         "replicate(n = 3, expr = f1(10))"
       ],
-      "id": "eb0097fc-00c8-436e-91b0-9489e237e702"
+      "id": "f4292ad3-bb87-4628-ba2e-5dc5e18a32a0"
     },
     {
       "cell_type": "code",
@@ -1273,7 +1273,7 @@
       "source": [
         "rep(x = f1(10), times = 3)"
       ],
-      "id": "b2640de2-3751-4469-abfc-ad557f65bc16"
+      "id": "e1df7f22-7c7d-450a-982f-711ee97a9d85"
     },
     {
       "cell_type": "code",
@@ -1284,7 +1284,7 @@
         "v <- c(5, 10, 100)\n",
         "v %>% map_dbl(f1)"
       ],
-      "id": "9b86b289-b7b2-4578-9cfe-b8d99ffa36a7"
+      "id": "fbe8d4b0-8041-42dc-a6ce-ec384af8ad09"
     },
     {
       "cell_type": "code",
@@ -1295,7 +1295,7 @@
         "rep(x = 10, times = 3) %>% map_dbl(f1)\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "fbd74ab1-7501-4603-9464-0ec4a56e9e86"
+      "id": "ef0637cb-087a-4a25-86b3-5feb4c9ae635"
     },
     {
       "cell_type": "code",
@@ -1312,7 +1312,7 @@
         "\n",
         "f2(10) # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "c470d195-c934-4f5c-884d-eedcceae9317"
+      "id": "ee3cae1b-11a3-4465-8725-c116170df648"
     },
     {
       "cell_type": "code",
@@ -1323,7 +1323,7 @@
         "v <- c(5, 10, 100)\n",
         "v %>% map_dfr(f2)"
       ],
-      "id": "139e46fa-598c-4c52-b5e0-84261d9d9e98"
+      "id": "159ad04d-b46d-4330-b828-89f184a51d00"
     },
     {
       "cell_type": "code",
@@ -1343,7 +1343,7 @@
         "\n",
         "f3(x = 10, y = 6) # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "275b67f7-631b-497d-ae3d-03ddd0bd5b9f"
+      "id": "877344a3-22ea-4a3d-934e-8db59d855d6b"
     },
     {
       "cell_type": "code",
@@ -1357,7 +1357,7 @@
         "\n",
         "my_df %>% pmap_dfr(f3)"
       ],
-      "id": "77045c66-194f-442b-a346-7eb04c765a6a"
+      "id": "377a8460-49e4-4540-abf7-9056c582f613"
     },
     {
       "cell_type": "code",
@@ -1373,10 +1373,10 @@
         "  furrr_options(seed = TRUE))\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "043a3a49-118d-4971-a198-ff9d90baa26c"
+      "id": "e98cadf9-b350-4c98-b7e3-7cd1de7c6ee5"
     },
     {
-      "id": "15a1db8d",
+      "id": "1da1b1c3",
       "cell_type": "markdown",
       "source": "## 3.8 \u305d\u306e\u4ed6",
       "metadata": {}
@@ -1390,7 +1390,7 @@
         "x <- 123\n",
         "typeof(x)"
       ],
-      "id": "8b351367-defd-485d-9a7b-8e3583656331"
+      "id": "460b8d2f-d1d7-4e61-8cd2-9a4dc8abef29"
     },
     {
       "cell_type": "code",
@@ -1402,7 +1402,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "help(log)"
       ],
-      "id": "f4dd7dbf-70ad-46f1-a14d-dd0d8beece34"
+      "id": "1f39ed1b-c0e7-419e-91c1-c8d784b6e10c"
     },
     {
       "cell_type": "code",
@@ -1413,7 +1413,7 @@
         "v <- c(1, NA, 3)\n",
         "v"
       ],
-      "id": "d4484f99-5e8c-4022-9685-abbc986cfcf8"
+      "id": "7dd57432-51a7-44b4-9b1f-a7a9425f05f1"
     },
     {
       "cell_type": "code",
@@ -1425,7 +1425,7 @@
         "\n",
         "v[2] == NA # \u8aa4\u308a"
       ],
-      "id": "88672afa-f9f9-434f-9ae3-73e0e619f178"
+      "id": "64142ec0-0f11-4297-ac5f-30e5ed72f236"
     }
   ],
   "nbformat": 4,
diff --git a/code/R-notebook/r-11.ipynb b/code/R-notebook/r-11.ipynb
index 5d5fb51..5c9bdd8 100644
--- a/code/R-notebook/r-11.ipynb
+++ b/code/R-notebook/r-11.ipynb
@@ -1,7 +1,7 @@
 {
   "cells": [
     {
-      "id": "2d4af9a6",
+      "id": "8b1b362c",
       "cell_type": "markdown",
       "source": "[\u8fbb\u771f\u543e\u30fb\u77e2\u5439\u592a\u6717\u300e\u30bc\u30ed\u304b\u3089\u306f\u3058\u3081\u308b\u30c7\u30fc\u30bf\u30b5\u30a4\u30a8\u30f3\u30b9\u5165\u9580\u300f\uff08\u8b1b\u8ac7\u793e,\u00a02021\uff09](https://github.com/taroyabuki/fromzero)",
       "metadata": {}
@@ -20,10 +20,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "7177e045-99d0-4911-b316-f23d81dc47d2"
+      "id": "a358fc7b-6ec9-4536-b2b3-e118b07fe008"
     },
     {
-      "id": "812cd9d1",
+      "id": "e7fae3bc",
       "cell_type": "markdown",
       "source": "## 11.1 Keras\u306b\u3088\u308b\u56de\u5e30",
       "metadata": {}
@@ -44,7 +44,7 @@
         "                \"/fromzero/master/data/wine.csv\")\n",
         "tmp <- read_csv(my_url)"
       ],
-      "id": "af3b7174-c6e0-4116-849f-ebf6c23e82dd"
+      "id": "8dde8a10-1ec9-4530-ac93-65897e34f291"
     },
     {
       "cell_type": "code",
@@ -54,7 +54,7 @@
       "source": [
         "my_data <- tmp[sample(nrow(tmp)), ]"
       ],
-      "id": "222c1c22-f38a-49b6-8aca-d8020c6528cf"
+      "id": "2a4c223e-29f8-4b57-852d-8ae25b466e98"
     },
     {
       "cell_type": "code",
@@ -66,7 +66,7 @@
         "  select(-LPRICE2) %>% scale\n",
         "y <- my_data$LPRICE2"
       ],
-      "id": "c364750d-a9d6-4126-a07a-df8857d13425"
+      "id": "eddb588f-bedd-4103-9171-f64821f72144"
     },
     {
       "cell_type": "code",
@@ -76,7 +76,7 @@
       "source": [
         "curve(activation_relu(x), -3, 3)"
       ],
-      "id": "fe527389-304e-48b3-a836-bdff87822f3a"
+      "id": "735bdb7b-a494-4650-8edc-bc0746773c5d"
     },
     {
       "cell_type": "code",
@@ -91,7 +91,7 @@
         "summary(my_model) # \u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306e\u6982\u8981\n",
         "# \u5272\u611b\uff08Python\u306e\u7d50\u679c\u3092\u53c2\u7167\uff09"
       ],
-      "id": "afb18057-4b66-4654-9036-9c1a92cad746"
+      "id": "48cf1447-7f43-4fc6-8a85-8d6ede08c75e"
     },
     {
       "cell_type": "code",
@@ -103,7 +103,7 @@
         "  loss = \"mse\",\n",
         "  optimizer = \"rmsprop\")"
       ],
-      "id": "0c784aa4-67c8-45d1-98ca-6c33d1af9f02"
+      "id": "be4027db-a89a-47db-ac15-465cf661cc22"
     },
     {
       "cell_type": "code",
@@ -115,7 +115,7 @@
         "  patience = 20,\n",
         "  restore_best_weights = TRUE)"
       ],
-      "id": "5af737a5-b418-40c9-be97-02370c753c95"
+      "id": "bb8e6ccb-2d7b-4b7f-aa42-0c4ba260f36c"
     },
     {
       "cell_type": "code",
@@ -132,7 +132,7 @@
         "    callbacks = list(my_cb),\n",
         "    verbose = 0)"
       ],
-      "id": "a8657ae9-e007-4d71-9250-4fb143240575"
+      "id": "60e09216-5fed-4818-9f34-c87a35bf6b0c"
     },
     {
       "cell_type": "code",
@@ -142,7 +142,7 @@
       "source": [
         "plot(my_history)"
       ],
-      "id": "7eb59e46-1b56-445e-952a-6c01487aa2e4"
+      "id": "1b91aa5b-1b83-4d41-b96a-319319ac81e4"
     },
     {
       "cell_type": "code",
@@ -152,7 +152,7 @@
       "source": [
         "my_history"
       ],
-      "id": "8ba8f6e2-95b1-4898-84ee-8ac799f4a606"
+      "id": "c887198c-01f1-4664-b883-90bc4b944dd7"
     },
     {
       "cell_type": "code",
@@ -163,10 +163,10 @@
         "y_ <- my_model %>% predict(X)\n",
         "mean((y_ - y)^2)**0.5"
       ],
-      "id": "17afc599-4513-4bcc-807c-61acc941dcd3"
+      "id": "af21aa79-c7d6-4282-a7fc-5dbb3d3cd14c"
     },
     {
-      "id": "886681b0",
+      "id": "7a94c43a",
       "cell_type": "markdown",
       "source": "## 11.2 Keras\u306b\u3088\u308b\u5206\u985e",
       "metadata": {}
@@ -185,7 +185,7 @@
         "library(tidyverse)\n",
         "my_data <- iris[sample(nrow(iris)), ]"
       ],
-      "id": "07985f3e-616e-4382-b264-4f73c8cde2a1"
+      "id": "aedf4527-92fa-44a9-9589-86b1133d71ce"
     },
     {
       "cell_type": "code",
@@ -197,7 +197,7 @@
         "  select(-Species) %>% scale\n",
         "y <- as.integer(my_data$Species) - 1"
       ],
-      "id": "64e1632e-85d4-4671-a1a0-36927d79d1f4"
+      "id": "b64adc1c-edcc-4567-afb6-96758d1851a1"
     },
     {
       "cell_type": "code",
@@ -209,7 +209,7 @@
         "  layer_dense(units = 3, activation = \"relu\", input_shape = c(4)) %>%\n",
         "  layer_dense(units = 3, activation = \"softmax\")"
       ],
-      "id": "a3324ee0-4fce-4e5e-a5bb-c91c7c15d2bb"
+      "id": "a2d4e1a0-51b4-4d2e-a9f1-c86407c17b1c"
     },
     {
       "cell_type": "code",
@@ -221,7 +221,7 @@
         "                     optimizer = \"rmsprop\",\n",
         "                     metrics = c(\"accuracy\"))"
       ],
-      "id": "a8404c06-3e42-40c1-bce2-3076514e9550"
+      "id": "6d6fc0d5-85f9-424b-b477-a06f880d9f16"
     },
     {
       "cell_type": "code",
@@ -244,7 +244,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "430c8d28-3637-464d-aa89-cc6f7ce0e5c1"
+      "id": "2e1a2550-80d4-4d95-a3cb-e9608fe38b9b"
     },
     {
       "cell_type": "code",
@@ -254,7 +254,7 @@
       "source": [
         "my_history"
       ],
-      "id": "0dd861d5-b27b-4e51-b53f-cf91f7fb1585"
+      "id": "f9fc4bc2-07b4-4801-826e-289f023be586"
     },
     {
       "cell_type": "code",
@@ -266,7 +266,7 @@
         "y_ <- apply(tmp, 1, which.max) - 1\n",
         "mean(y_ == y)"
       ],
-      "id": "70489d5c-a524-40f5-b9d9-e8a835e325c9"
+      "id": "798d365c-a075-41c7-b7d5-f24fb289c913"
     },
     {
       "cell_type": "code",
@@ -278,7 +278,7 @@
         "\n",
         "-mean(log(c(0.7, 0.6, 0.2, 0.7)))"
       ],
-      "id": "55ac573f-71e9-4d54-9fce-21c3abe30ddf"
+      "id": "4093488d-46b2-41bf-aa49-c3e05ccc2bff"
     },
     {
       "cell_type": "code",
@@ -296,7 +296,7 @@
         "             c(0.2, 0.5, 0.3),\n",
         "             c(0.2, 0.7, 0.1))"
       ],
-      "id": "62139a11-dee4-4c1b-81ce-6da132762afa"
+      "id": "d6dbf669-ebe5-4133-9f9e-53146eda16fc"
     },
     {
       "cell_type": "code",
@@ -307,10 +307,10 @@
         "c(mean(as.array(loss_sparse_categorical_crossentropy(y_true = y, y_pred = y_1))),\n",
         "  mean(as.array(loss_sparse_categorical_crossentropy(y_true = y, y_pred = y_2))))"
       ],
-      "id": "d9cd1bc1-76ba-46c2-b9da-350e82aa08d8"
+      "id": "f102b13a-3155-4833-b262-4d07b3ab7e51"
     },
     {
-      "id": "20f23787",
+      "id": "92399a0b",
       "cell_type": "markdown",
       "source": "## 11.3 MNIST\uff1a\u624b\u66f8\u304d\u6570\u5b57\u306e\u5206\u985e",
       "metadata": {}
@@ -323,13 +323,15 @@
       "source": [
         "if (Sys.getenv(\"COLAB_JUPYTER_IP\") != \"\") {\n",
         "  library(keras3)\n",
+        "  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
         "} else {\n",
         "  library(keras)\n",
+        "  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
         "}\n",
-        "library(tidyverse)\n",
-        "c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()"
+        "# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
+        "library(tidyverse)"
       ],
-      "id": "85eee8e5-7efe-44ad-8ccd-bc6ad7940912"
+      "id": "bfe57e7b-b9dd-4ffd-8fa0-181a62142a4b"
     },
     {
       "cell_type": "code",
@@ -339,7 +341,7 @@
       "source": [
         "dim(x_train)"
       ],
-      "id": "4dc69a31-549c-4e09-b333-4123c5321d7a"
+      "id": "7ba59a49-fc6f-4c14-9745-a45f4f3b4ba3"
     },
     {
       "cell_type": "code",
@@ -349,7 +351,7 @@
       "source": [
         "x_train[5, , ]"
       ],
-      "id": "5cbd757b-56c9-48f1-a8f8-71af3f811f23"
+      "id": "9c9e9e7f-9dcf-4e82-8a85-50855ea3b438"
     },
     {
       "cell_type": "code",
@@ -360,7 +362,7 @@
         "plot(as.raster(x = x_train[5, , ],\n",
         "               max = max(x_train)))"
       ],
-      "id": "b37290d3-4113-46a4-a826-291a212cc6b7"
+      "id": "1724a54b-1c72-485c-a403-a514e80da847"
     },
     {
       "cell_type": "code",
@@ -370,7 +372,7 @@
       "source": [
         "head(y_train)"
       ],
-      "id": "f53d65d4-42f8-4205-8f6d-5f6e8f4a1eb5"
+      "id": "0f5e0b42-0c73-44e4-b699-c99224addbb1"
     },
     {
       "cell_type": "code",
@@ -380,7 +382,7 @@
       "source": [
         "c(min(x_train), max(x_train))"
       ],
-      "id": "daa88019-ec64-4945-b603-459f9b774244"
+      "id": "fbe3a2cf-7f3c-417f-b471-f14fa1f63c00"
     },
     {
       "cell_type": "code",
@@ -391,7 +393,7 @@
         "x_train <- x_train / 255\n",
         "x_test  <- x_test  / 255"
       ],
-      "id": "2839af0e-0a47-43a7-b7af-274896aed861"
+      "id": "5135d92f-1d69-4558-a915-a44cabfd6f1c"
     },
     {
       "cell_type": "code",
@@ -403,7 +405,7 @@
         "x_train <- x_train[my_index, , ]\n",
         "y_train <- y_train[my_index]"
       ],
-      "id": "7c50048a-70eb-41df-9c3c-57c3dfd89299"
+      "id": "09844941-fe45-4a73-a2ba-135bf1ff3aef"
     },
     {
       "cell_type": "code",
@@ -425,7 +427,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "54e39270-3904-4079-b49f-5f610098d95d"
+      "id": "f85f6e95-132e-47ae-acd6-dff99fbe0909"
     },
     {
       "cell_type": "code",
@@ -444,7 +446,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "9647f981-e48a-4ce8-a8ce-95363e032f05"
+      "id": "6856f4f1-b345-442f-8b8e-7e2891a9826e"
     },
     {
       "cell_type": "code",
@@ -456,7 +458,7 @@
         "y_ <- apply(tmp, 1, which.max) - 1\n",
         "table(y_, y_test)"
       ],
-      "id": "edc06331-6070-4882-b32b-3a5a4e855a38"
+      "id": "2aada84f-8652-411d-802b-f857e4269d2a"
     },
     {
       "cell_type": "code",
@@ -464,7 +466,7 @@
       "metadata": {},
       "outputs": [],
       "source": [],
-      "id": "adcf2909-72cc-4b18-accc-b39ca2ee7729"
+      "id": "a094050f-a6bf-4bc0-8f3e-1d57257bbbb3"
     },
     {
       "cell_type": "code",
@@ -474,7 +476,7 @@
       "source": [
         "mean(y_ == y_test)"
       ],
-      "id": "97c35f82-3020-4426-b0cc-72ee09f2064d"
+      "id": "b9d914c5-1b8c-4534-9cff-f4fca7e91abd"
     },
     {
       "cell_type": "code",
@@ -485,7 +487,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test, y = y_test)"
       ],
-      "id": "374d0327-ffd0-4f46-af59-7d79a80bc9a5"
+      "id": "2c0814b5-41a6-4cab-b7c5-9b8b753b59c0"
     },
     {
       "cell_type": "code",
@@ -496,7 +498,7 @@
         "x_train2d <- x_train %>% array_reshape(c(-1, 28, 28, 1))\n",
         "x_test2d  <- x_test  %>% array_reshape(c(-1, 28, 28, 1))"
       ],
-      "id": "deb6b5c6-19f5-42c1-9d6e-21a2efa42fdb"
+      "id": "2c97547b-aa25-4321-9f4f-2aa8295ae72a"
     },
     {
       "cell_type": "code",
@@ -523,7 +525,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "52f303c5-ab07-46a5-95d2-487a26038537"
+      "id": "efeee514-4085-4be9-81db-f78c292226c8"
     },
     {
       "cell_type": "code",
@@ -542,7 +544,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "84accc2b-6f1d-4999-b873-843e07c4325e"
+      "id": "255b1c9f-3a38-4e51-8d08-40d181f14f6d"
     },
     {
       "cell_type": "code",
@@ -553,7 +555,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test2d, y = y_test)"
       ],
-      "id": "43580803-e0e6-4afc-93a7-5cfdabd14816"
+      "id": "101392e8-1246-4575-99d1-56c17691f602"
     },
     {
       "cell_type": "code",
@@ -581,7 +583,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "2df945a4-ec03-4f92-9999-0a27c5f46a46"
+      "id": "93f2537c-30a0-4ada-b594-0606b22fcb7e"
     },
     {
       "cell_type": "code",
@@ -600,7 +602,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "72a1eb89-9635-45d2-a82e-8395e904c205"
+      "id": "b621fff7-99a6-44cb-8050-ba01f798931c"
     },
     {
       "cell_type": "code",
@@ -611,7 +613,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test2d, y = y_test)"
       ],
-      "id": "c35fe39a-e301-4afd-9b9c-4e2709ecf73a"
+      "id": "7f9cb3dc-7e62-4157-b2e0-2b727c32974d"
     },
     {
       "cell_type": "code",
@@ -629,7 +631,7 @@
         "  filter(y_ != y) %>%                       # \u4e88\u6e2c\u304c\u306f\u305a\u308c\u305f\u3082\u306e\u3092\u6b8b\u3059\n",
         "  arrange(desc(y_prob))                     # \u78ba\u7387\u306e\u5927\u304d\u3044\u9806\u306b\u4e26\u3073\u66ff\u3048\u308b"
       ],
-      "id": "5f6a14cc-eee6-42ba-86fe-cbcbdd4b5462"
+      "id": "ad905bd6-1e65-41dd-b7f5-741615927c75"
     },
     {
       "cell_type": "code",
@@ -639,7 +641,7 @@
       "source": [
         "head(my_result)"
       ],
-      "id": "e9097ab2-8435-49fa-a03a-f0ea9ab96c70"
+      "id": "58100447-9e8c-4948-9301-a1d7089917c0"
     },
     {
       "cell_type": "code",
@@ -665,10 +667,10 @@
         "  theme(legend.position = \"none\") +\n",
         "  facet_grid(. ~ label)"
       ],
-      "id": "5db1810e-ffb6-4b46-90dc-152a68d65db4"
+      "id": "3c633b72-1ab2-4006-b089-487116aad473"
     },
     {
-      "id": "f8ae4f91",
+      "id": "db5ee03e",
       "cell_type": "markdown",
       "source": "## 11.4 AutoML",
       "metadata": {}
@@ -691,7 +693,7 @@
         "h2o.no_progress()\n",
         "# h2o.shutdown(prompt = FALSE) # \u505c\u6b62"
       ],
-      "id": "fce65b55-96f8-4796-9050-618889fbe0a0"
+      "id": "ece3b716-9bd1-434a-8736-75f3cfd8f67a"
     },
     {
       "cell_type": "code",
@@ -706,7 +708,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "my_frame <- h2o.importFile(my_url, header = TRUE) # \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080\uff0e"
       ],
-      "id": "9fa46b0d-6b02-43b0-9c9f-37d004bf4ad3"
+      "id": "5e3271a4-3d23-4f1b-aee5-58fc88cb6fd8"
     },
     {
       "cell_type": "code",
@@ -720,7 +722,7 @@
         "my_frame %>% as.data.frame %>% head\n",
         "# \u7d50\u679c\u306f\u5272\u611b\uff08\u898b\u305f\u76ee\u306f\u540c\u3058\uff09"
       ],
-      "id": "8d0aec98-70b0-48b9-b7be-a1ed8bb0238b"
+      "id": "69690590-4a97-4800-b86a-a00c41d4e449"
     },
     {
       "cell_type": "code",
@@ -733,7 +735,7 @@
         "    training_frame = my_frame,\n",
         "    max_runtime_secs = 60)"
       ],
-      "id": "3a76a85d-2264-4d3d-9220-6318afd723d8"
+      "id": "2d7962e7-007a-4c06-bc42-55c0db7caeb4"
     },
     {
       "cell_type": "code",
@@ -743,7 +745,7 @@
       "source": [
         "min(my_model@leaderboard$rmse)"
       ],
-      "id": "2d72d26b-c036-4503-aa77-087a4d359a5b"
+      "id": "eb4a2367-9eee-40b0-8e6f-4a184038c04d"
     },
     {
       "cell_type": "code",
@@ -759,7 +761,7 @@
         "\n",
         "plot(y, y_)"
       ],
-      "id": "88f6a1f1-a19d-4de6-847b-a69835395b08"
+      "id": "b276406d-95b0-4c02-ad11-513e1b035570"
     },
     {
       "cell_type": "code",
@@ -767,12 +769,17 @@
       "metadata": {},
       "outputs": [],
       "source": [
-        "c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
+        "if (Sys.getenv(\"COLAB_JUPYTER_IP\") != \"\") {\n",
+        "  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
+        "} else {\n",
+        "  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
+        "}\n",
+        "# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
         "my_index <- sample(1:60000, 6000)\n",
         "x_train <- x_train[my_index, , ]\n",
         "y_train <- y_train[my_index]"
       ],
-      "id": "731319d1-569d-4824-b3fe-8237025e619d"
+      "id": "5bd47177-28c6-47f3-a761-f078cec30371"
     },
     {
       "cell_type": "code",
@@ -791,7 +798,7 @@
         "  as.data.frame\n",
         "my_test <- as.h2o(tmp)"
       ],
-      "id": "f409288e-68fb-43df-9f1b-92430ccb1c3f"
+      "id": "ef71eaa6-3140-4810-aed1-0faa925dcb93"
     },
     {
       "cell_type": "code",
@@ -804,7 +811,7 @@
         "    training_frame = my_train,\n",
         "    max_runtime_secs = 120)"
       ],
-      "id": "d54746bb-1f99-49aa-9f36-202c8e2cd9b9"
+      "id": "4416da6f-4a9c-4a7e-8fac-49bb4a9c3b22"
     },
     {
       "cell_type": "code",
@@ -815,7 +822,7 @@
         "min(my_model@leaderboard$\n",
         "    mean_per_class_error)"
       ],
-      "id": "d2fae722-1283-4339-8c0d-5d328ef189da"
+      "id": "9e07ba1d-7dcc-4e95-a139-92aaf24129a8"
     },
     {
       "cell_type": "code",
@@ -829,7 +836,7 @@
         "\n",
         "mean(y_ == y_test)"
       ],
-      "id": "a8f2e855-8f3b-4478-b777-d699d00e783a"
+      "id": "863d14d1-70b5-4c70-a238-21d2638b4db7"
     }
   ],
   "nbformat": 4,
diff --git a/code/r.Rmd b/code/r.Rmd
index 39e7336..227ad0d 100644
--- a/code/r.Rmd
+++ b/code/r.Rmd
@@ -2767,11 +2767,13 @@ c(mean(as.array(loss_sparse_categorical_crossentropy(y_true = y, y_pred = y_1)))
 ```{r}
 if (Sys.getenv("COLAB_JUPYTER_IP") != "") {
   library(keras3)
+  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())
 } else {
   library(keras)
+  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())
 }
+# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()
 library(tidyverse)
-c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()
 ```
 
 ```{r}
@@ -3028,7 +3030,12 @@ plot(y, y_)
 ```
 
 ```{r}
-c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()
+if (Sys.getenv("COLAB_JUPYTER_IP") != "") {
+  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())
+} else {
+  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())
+}
+# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()
 my_index <- sample(1:60000, 6000)
 x_train <- x_train[my_index, , ]
 y_train <- y_train[my_index]
diff --git a/code/r.ipynb b/code/r.ipynb
index 2880a74..7cd21a4 100644
--- a/code/r.ipynb
+++ b/code/r.ipynb
@@ -1,7 +1,7 @@
 {
   "cells": [
     {
-      "id": "b5707f9d",
+      "id": "cd24be2d",
       "cell_type": "markdown",
       "source": "[\u8fbb\u771f\u543e\u30fb\u77e2\u5439\u592a\u6717\u300e\u30bc\u30ed\u304b\u3089\u306f\u3058\u3081\u308b\u30c7\u30fc\u30bf\u30b5\u30a4\u30a8\u30f3\u30b9\u5165\u9580\u300f\uff08\u8b1b\u8ac7\u793e,\u00a02021\uff09](https://github.com/taroyabuki/fromzero)",
       "metadata": {}
@@ -15,64 +15,64 @@
         "# \u3053\u308c\u306fR\u306e\u30b3\u30fc\u30c9\u306e\u4f8b\u3067\u3059\uff0e\n",
         "1 + 1"
       ],
-      "id": "b69efdaf-dfc6-4c67-9186-23c470f6aee9"
+      "id": "67ce7604-8ff6-4f1a-8864-ea6e74300d87"
     },
     {
-      "id": "11cfaad1",
+      "id": "0674a254",
       "cell_type": "markdown",
       "source": "# 1 \u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u3068\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\n\n\n",
       "metadata": {}
     },
     {
-      "id": "62ba87ff",
+      "id": "e626befc",
       "cell_type": "markdown",
       "source": "## 1.1 \u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u306e\u57fa\u672c\u64cd\u4f5c\n\n\n",
       "metadata": {}
     },
     {
-      "id": "0e853210",
+      "id": "5edefe2b",
       "cell_type": "markdown",
       "source": "## 1.2 \u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306e\u4ed5\u7d44\u307f\n\n\n",
       "metadata": {}
     },
     {
-      "id": "5f44dddf",
+      "id": "a64df12f",
       "cell_type": "markdown",
       "source": "# 2 \u30c7\u30fc\u30bf\u30b5\u30a4\u30a8\u30f3\u30b9\u306e\u305f\u3081\u306e\u74b0\u5883\n\n\n",
       "metadata": {}
     },
     {
-      "id": "511fe22e",
+      "id": "2d961ee6",
       "cell_type": "markdown",
       "source": "## 2.1 \u5b9f\u884c\u74b0\u5883\u306e\u9078\u629e\n\n\n",
       "metadata": {}
     },
     {
-      "id": "05a58213",
+      "id": "d96f3bf2",
       "cell_type": "markdown",
       "source": "## 2.2 \u30af\u30e9\u30a6\u30c9\n\n\n",
       "metadata": {}
     },
     {
-      "id": "a9494707",
+      "id": "1beb4c26",
       "cell_type": "markdown",
       "source": "## 2.3 Docker\n\n\n",
       "metadata": {}
     },
     {
-      "id": "d74845dc",
+      "id": "2eccfd34",
       "cell_type": "markdown",
       "source": "## 2.4 \u30bf\u30fc\u30df\u30ca\u30eb\u306e\u4f7f\u3044\u65b9\n\n\n",
       "metadata": {}
     },
     {
-      "id": "d8e17e23",
+      "id": "acbb8483",
       "cell_type": "markdown",
       "source": "## 2.5 R\u3068Python\n\n\n",
       "metadata": {}
     },
     {
-      "id": "627cdc56",
+      "id": "b495720e",
       "cell_type": "markdown",
       "source": "## 2.6 \u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306e\u5229\u7528",
       "metadata": {}
@@ -89,10 +89,10 @@
         "\n",
         "1 + 3"
       ],
-      "id": "aedcb970-4f47-423f-b4bf-f922602e7191"
+      "id": "1dd6213a-e9cd-4108-941b-7f951c084015"
     },
     {
-      "id": "4ef724f0",
+      "id": "fc041917",
       "cell_type": "markdown",
       "source": "# 3 R\u3068Python",
       "metadata": {}
@@ -112,10 +112,10 @@
         "  install.packages(c(\"ggplot2\"))\n",
         "}"
       ],
-      "id": "f19a6f44-4256-4040-b5e8-a6bbaae287b3"
+      "id": "8378a215-83c1-4d05-a6e8-6486e7770666"
     },
     {
-      "id": "78e834b8",
+      "id": "d84dccef",
       "cell_type": "markdown",
       "source": "## 3.1 \u5165\u9580",
       "metadata": {}
@@ -128,7 +128,7 @@
       "source": [
         "0x10"
       ],
-      "id": "6c469119-0f1b-4925-b92c-b13cf551dd4c"
+      "id": "69dc3fd9-f9ee-4d56-bb28-aa3ad6c8fabc"
     },
     {
       "cell_type": "code",
@@ -138,7 +138,7 @@
       "source": [
         "1.23e5"
       ],
-      "id": "b922bc23-b276-46e9-ab61-e56207180ea7"
+      "id": "bb3421f2-e2d4-4e93-a533-7ae33e1a042e"
     },
     {
       "cell_type": "code",
@@ -148,7 +148,7 @@
       "source": [
         "2 * 3"
       ],
-      "id": "ea208721-c6c7-4ee3-8139-027f895255cd"
+      "id": "2e98cbba-0cc6-4f2e-bce9-63bd9ecda3cb"
     },
     {
       "cell_type": "code",
@@ -158,7 +158,7 @@
       "source": [
         "10 / 3"
       ],
-      "id": "82857387-d46c-466e-bfdb-0cef352f9299"
+      "id": "bcaca1fe-27d5-424e-94e5-5801fde553dd"
     },
     {
       "cell_type": "code",
@@ -170,7 +170,7 @@
         "\n",
         "10 %% 3  # \u4f59\u308a"
       ],
-      "id": "5f70587c-21ee-489e-a091-a67a2c4aaef4"
+      "id": "7a45fc7e-8ad9-4d75-b82c-0565e90770a5"
     },
     {
       "cell_type": "code",
@@ -190,7 +190,7 @@
         "c(x, y) %<-% c(20, 30) # \u307e\u3068\u3081\u3066\u540d\u4ed8\u3051\n",
         "x * y"
       ],
-      "id": "7b330748-c1da-4de0-bdb0-981bf73543cd"
+      "id": "0523cdb0-cc48-4a6f-a03b-b20cb6011ba6"
     },
     {
       "cell_type": "code",
@@ -203,7 +203,7 @@
         "\n",
         "x # \u5909\u6570\u540d\u3092\u8a55\u4fa1\u3059\u308b\uff0e"
       ],
-      "id": "89ea6ef0-02b9-4aaf-9b2f-71770719d354"
+      "id": "d2d22a4f-f5e1-4992-9933-0a89856c791f"
     },
     {
       "cell_type": "code",
@@ -213,7 +213,7 @@
       "source": [
         "my_s <- \"abcde\""
       ],
-      "id": "3313329c-a8b4-4e27-9a54-66446c09e171"
+      "id": "b428228c-4ff8-4c12-aff7-db11078016e1"
     },
     {
       "cell_type": "code",
@@ -223,7 +223,7 @@
       "source": [
         "nchar(my_s)"
       ],
-      "id": "d459fecc-8a58-4764-b838-d42a7e7a5d6b"
+      "id": "41799512-a9c5-4fcf-83b6-76a19cc8ae91"
     },
     {
       "cell_type": "code",
@@ -234,7 +234,7 @@
         "library(tidyverse)\n",
         "str_c(\"This is \", \"a\", \" pen.\")"
       ],
-      "id": "1d286bdb-cda0-48d0-bca4-16a46e9016a9"
+      "id": "89e314c0-bea4-43f7-ad8e-05fdaba624f3"
     },
     {
       "cell_type": "code",
@@ -244,7 +244,7 @@
       "source": [
         "substr(x = my_s, start = 2, stop = 4)"
       ],
-      "id": "44a95e21-3af3-4ebc-8b1d-2ea87fd36401"
+      "id": "3f83f100-aef1-4690-95d7-0b2cbb8b8c14"
     },
     {
       "cell_type": "code",
@@ -255,7 +255,7 @@
         "tmp <- \"%s is %s.\"\n",
         "sprintf(tmp, \"This\", \"a pen\")"
       ],
-      "id": "64a4dae9-8f7e-4447-8f57-4ddd3e9f687f"
+      "id": "f384ba62-8dd8-4930-9bcf-0e7ea8a3d1d9"
     },
     {
       "cell_type": "code",
@@ -267,7 +267,7 @@
         "\n",
         "1 < 0"
       ],
-      "id": "88ca7842-3225-47ee-b915-7afa5f6b0e12"
+      "id": "2ca76d8d-f177-4a2f-90a3-44beaf167beb"
     },
     {
       "cell_type": "code",
@@ -279,7 +279,7 @@
         "\n",
         "all.equal(0.1 + 0.1 + 0.1, 0.3)"
       ],
-      "id": "a0c2242e-cc01-4c1a-9932-c105b46467d7"
+      "id": "3c0cb871-0381-4fec-a585-8b94407f5dd1"
     },
     {
       "cell_type": "code",
@@ -293,7 +293,7 @@
         "\n",
         "!TRUE        # \u5426\u5b9a\uff08\u3067\u306a\u3044\uff09"
       ],
-      "id": "f0f387cb-da16-480e-859e-f16f6bdda177"
+      "id": "a89594da-2a10-4829-b01d-46aad2d4ffe4"
     },
     {
       "cell_type": "code",
@@ -303,7 +303,7 @@
       "source": [
         "ifelse(3 < 5, 0, 10)"
       ],
-      "id": "938ee5f1-8d43-476a-88ca-d37f3b607f12"
+      "id": "ce71c6f1-ea40-45eb-b54e-a5bf8d3c1a9d"
     },
     {
       "cell_type": "code",
@@ -313,7 +313,7 @@
       "source": [
         "getwd()"
       ],
-      "id": "a150f659-0459-47e7-b0e6-6fb568dbcd82"
+      "id": "1fc2b65e-e971-4984-9d29-69d219ad1691"
     },
     {
       "cell_type": "code",
@@ -324,10 +324,10 @@
         "setwd(\"..\")\n",
         "getwd()"
       ],
-      "id": "eeb9416f-d867-4d42-839e-ede5ef25a913"
+      "id": "31074769-fe02-4792-892a-7024e680fc22"
     },
     {
-      "id": "b2828950",
+      "id": "1a09f710",
       "cell_type": "markdown",
       "source": "## 3.2 \u95a2\u6570",
       "metadata": {}
@@ -340,7 +340,7 @@
       "source": [
         "sqrt(4)"
       ],
-      "id": "604ad5c2-2161-4020-93b9-baf78714093c"
+      "id": "babd284c-7a85-47aa-8b4c-ef91b1d4fcb3"
     },
     {
       "cell_type": "code",
@@ -350,7 +350,7 @@
       "source": [
         "log(100, 10)"
       ],
-      "id": "d76aeaeb-1100-4eb3-880d-40c0fa51c6d5"
+      "id": "4ce568c7-2b61-46a2-8d0d-2b7806acf557"
     },
     {
       "cell_type": "code",
@@ -362,7 +362,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "log(100, exp(1)) # \u7701\u7565\u3057\u306a\u3044\u5834\u5408\n"
       ],
-      "id": "31b5017d-ac74-4db0-9fca-9876fd861d1e"
+      "id": "81ba91e7-971c-4df7-9a2b-d368d0358b14"
     },
     {
       "cell_type": "code",
@@ -374,7 +374,7 @@
         "\n",
         "log2(1024) # \u5e95\u304c2\u306e\u5bfe\u6570"
       ],
-      "id": "da96eb0d-805c-464d-ac97-23599fbc3af4"
+      "id": "776b8c39-45a8-4ee6-9146-037f989f446c"
     },
     {
       "cell_type": "code",
@@ -385,7 +385,7 @@
         "library(tidyverse)\n",
         "4 %>% sqrt"
       ],
-      "id": "d5e5267c-5ff7-4bd4-8649-32731f60531a"
+      "id": "2dad79a2-4bc2-4c69-a4e6-562a97ec9b94"
     },
     {
       "cell_type": "code",
@@ -397,7 +397,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "5 %>% log %>% exp # \u30d1\u30a4\u30d7\u3092\u4f7f\u3046\u66f8\u304d\u65b9\n"
       ],
-      "id": "06949ce1-fc9b-4276-987d-6757f5164229"
+      "id": "a06c8d5f-0089-4662-8e13-2c8f4c6e5f08"
     },
     {
       "cell_type": "code",
@@ -409,7 +409,7 @@
         "  a - b\n",
         "}"
       ],
-      "id": "f2c48397-53a6-4f1f-b94c-a2b3e99bc5f7"
+      "id": "223d80b3-022f-4c39-8d79-1bb4b75de5e3"
     },
     {
       "cell_type": "code",
@@ -419,7 +419,7 @@
       "source": [
         "f(3, 5)"
       ],
-      "id": "c7c8f6fc-e365-4f9f-b962-bdf748991a6c"
+      "id": "b352ad0c-5417-4b3d-b825-ff7c031a3dd9"
     },
     {
       "cell_type": "code",
@@ -433,7 +433,7 @@
         "\n",
         "f(3) # f(3, 5)\u3068\u540c\u3058\u3053\u3068"
       ],
-      "id": "ac0c4071-bf00-4406-ae12-bca94b44588e"
+      "id": "5dc05b4a-91ec-49ad-881a-03358db2e004"
     },
     {
       "cell_type": "code",
@@ -443,10 +443,10 @@
       "source": [
         "(function(a, b) { a - b })(3, 5)"
       ],
-      "id": "2dcf9486-5c00-4e31-88cf-de989d16eca7"
+      "id": "eb4e0b01-b54d-4eb5-85cc-7833c35c8066"
     },
     {
-      "id": "a7c30431",
+      "id": "24b8a086",
       "cell_type": "markdown",
       "source": "## 3.3 \u30b3\u30ec\u30af\u30b7\u30e7\u30f3",
       "metadata": {}
@@ -459,7 +459,7 @@
       "source": [
         "x <- c(\"foo\", \"bar\", \"baz\")"
       ],
-      "id": "d54801f7-b2e9-4050-93ce-a0bd994d9474"
+      "id": "31a455c4-eeca-456f-984c-b0cf7e9f4e1b"
     },
     {
       "cell_type": "code",
@@ -469,7 +469,7 @@
       "source": [
         "length(x)"
       ],
-      "id": "e164e5ec-585e-42ff-9998-504152b903b1"
+      "id": "a5e12e70-5f6c-440c-96ea-b50490824241"
     },
     {
       "cell_type": "code",
@@ -479,7 +479,7 @@
       "source": [
         "x[2]"
       ],
-      "id": "9d73ed73-5f0b-4b08-a286-d5a394dbbd37"
+      "id": "fd50e466-6a8c-4240-9aaa-1b6406443b0e"
     },
     {
       "cell_type": "code",
@@ -492,7 +492,7 @@
         "\n",
         "x[2] <- \"bar\" # \u5143\u306b\u623b\u3059\uff0e"
       ],
-      "id": "0beb09a2-2470-4625-bf66-af6b70d0ca51"
+      "id": "30bd32c0-d9db-4940-a4e7-f47efd968a8b"
     },
     {
       "cell_type": "code",
@@ -502,7 +502,7 @@
       "source": [
         "x[-2]"
       ],
-      "id": "4ff713c2-9527-40a5-acaa-d711d19b8ae6"
+      "id": "35c5794e-dcbe-4710-ab9c-67a56691a5ca"
     },
     {
       "cell_type": "code",
@@ -512,7 +512,7 @@
       "source": [
         "c(x, \"qux\")"
       ],
-      "id": "e2aefb01-5d68-429e-82e3-995366997318"
+      "id": "57b0e9fd-4152-447d-946a-6af03f978642"
     },
     {
       "cell_type": "code",
@@ -523,7 +523,7 @@
         "x <- c(x, \"qux\")\n",
         "x # \u7d50\u679c\u306e\u78ba\u8a8d"
       ],
-      "id": "f534f217-db52-4aea-a01d-48f82b9ca5ef"
+      "id": "318d4dc4-3af9-4222-b91f-36ad25e01e99"
     },
     {
       "cell_type": "code",
@@ -533,7 +533,7 @@
       "source": [
         "1:5"
       ],
-      "id": "078be454-1407-4ef1-a936-05d40e469a18"
+      "id": "48859abc-00fe-42cd-88eb-e3f65cd5dbd9"
     },
     {
       "cell_type": "code",
@@ -543,7 +543,7 @@
       "source": [
         "seq(from = 0, to = 10, by = 2)"
       ],
-      "id": "e77798ee-619d-4168-b317-907697f8af3f"
+      "id": "de813893-cc6f-4f80-8477-80ec38f57d27"
     },
     {
       "cell_type": "code",
@@ -553,7 +553,7 @@
       "source": [
         "seq(from = 0, to = 1, by = 0.5)"
       ],
-      "id": "4f17e4d3-2724-42a3-bca0-74c825c290c5"
+      "id": "0856ad2d-1136-440a-9a84-e3621062c7f1"
     },
     {
       "cell_type": "code",
@@ -563,7 +563,7 @@
       "source": [
         "seq(from = 0, to = 100, length.out = 5)"
       ],
-      "id": "58a481b9-32a6-4d8e-970c-19dd821d6a02"
+      "id": "231ade44-36ee-4d4f-b72b-9a9dd143c075"
     },
     {
       "cell_type": "code",
@@ -573,7 +573,7 @@
       "source": [
         "rep(x = 10, times = 5)"
       ],
-      "id": "e84ded1f-4f1a-4ea0-bf25-95987d176f5a"
+      "id": "b8ee05f7-f0e1-4380-abda-99f9190d494a"
     },
     {
       "cell_type": "code",
@@ -585,7 +585,7 @@
         "x <- factor(tmp, levels = c(\"\u30b0\u30fc\", \"\u30c1\u30e7\u30ad\", \"\u30d1\u30fc\"))\n",
         "x"
       ],
-      "id": "c0974d8e-d499-4366-96ff-07a0374b363c"
+      "id": "a2d4d7b7-f73b-4b01-af13-837f48764c8b"
     },
     {
       "cell_type": "code",
@@ -599,7 +599,7 @@
         "\n",
         "x * 10 # \u4e57\u7b97"
       ],
-      "id": "08e9a86e-a548-45ff-829c-2cb735f52a98"
+      "id": "35382dce-8f3b-478e-b02e-ae7c5ed8708f"
     },
     {
       "cell_type": "code",
@@ -610,7 +610,7 @@
         "x <- c(2, 3)\n",
         "sin(x)"
       ],
-      "id": "fa4c4624-b43a-4ab9-a04e-d6a673ff805b"
+      "id": "04e22c53-a0cb-4c71-a90f-b2f6bc0fe788"
     },
     {
       "cell_type": "code",
@@ -624,7 +624,7 @@
         "\n",
         "x * y"
       ],
-      "id": "d40ef2be-cc35-4bf8-8fca-4b8f7a083e26"
+      "id": "47f7740c-53cf-48b1-815c-31c448a71f5b"
     },
     {
       "cell_type": "code",
@@ -634,7 +634,7 @@
       "source": [
         "sum(x * y)"
       ],
-      "id": "8bca03fc-f774-4219-bc7b-807e84d94fd8"
+      "id": "6771a997-964b-4a83-834f-eddb65cfb37e"
     },
     {
       "cell_type": "code",
@@ -646,7 +646,7 @@
         "y <- c(TRUE, TRUE)\n",
         "x & y"
       ],
-      "id": "0486b069-5831-4a61-8ac6-e9e61e1b6f63"
+      "id": "7f87ca8d-546e-48e7-a600-341ff57b5f05"
     },
     {
       "cell_type": "code",
@@ -666,7 +666,7 @@
         "\n",
         "u == w          # \u8981\u7d20\u3054\u3068\u306e\u6bd4\u8f03"
       ],
-      "id": "08eed945-0738-407e-a0d2-7196d2a2758c"
+      "id": "09cb838a-4b19-4efa-bfd5-f51d3f650832"
     },
     {
       "cell_type": "code",
@@ -678,7 +678,7 @@
         "\n",
         "mean(u == w) # \u540c\u3058\u8981\u7d20\u306e\u5272\u5408"
       ],
-      "id": "8eb062ed-117c-49db-92f0-62f1c8750e18"
+      "id": "8299756a-c2d9-4ee2-a573-18449810e90c"
     },
     {
       "cell_type": "code",
@@ -688,7 +688,7 @@
       "source": [
         "x <- list(1, \"two\")"
       ],
-      "id": "88e83ba9-83b4-434d-bd84-971524c39e12"
+      "id": "5f48fb01-7997-49aa-9753-4977546fa946"
     },
     {
       "cell_type": "code",
@@ -698,7 +698,7 @@
       "source": [
         "x[[2]]"
       ],
-      "id": "278685f0-2922-4a33-8300-583f0a681390"
+      "id": "f5891840-ad72-46b6-a3a0-c1649f259b67"
     },
     {
       "cell_type": "code",
@@ -709,7 +709,7 @@
         "x <- list(\"apple\"  = \"\u308a\u3093\u3054\",\n",
         "          \"orange\" = \"\u307f\u304b\u3093\")"
       ],
-      "id": "ab357eb8-34ea-4a65-bb9f-d491a3cdcd34"
+      "id": "99774e0c-e772-45d5-b05a-d89d45ceb25f"
     },
     {
       "cell_type": "code",
@@ -719,7 +719,7 @@
       "source": [
         "x[[\"grape\"]] <- \"\u3076\u3069\u3046\""
       ],
-      "id": "d6dae4df-0c07-4e52-bf2d-667e42aeb9d6"
+      "id": "0618a858-505c-43ef-8418-95c5c70695c8"
     },
     {
       "cell_type": "code",
@@ -736,7 +736,7 @@
         "tmp <- \"apple\"\n",
         "x[[tmp]]\n"
       ],
-      "id": "da929b08-21d2-40ef-8285-2b045d9f812f"
+      "id": "0f04224f-6941-4fdc-bf18-c1dadec48dc7"
     },
     {
       "cell_type": "code",
@@ -751,10 +751,10 @@
         "\n",
         "x             # x\u306f\u5909\u308f\u3089\u306a\u3044\uff0e"
       ],
-      "id": "338612da-e854-4462-ac15-3eca9ad40fa9"
+      "id": "4c070aa2-a28d-4318-b213-647430287e13"
     },
     {
-      "id": "d3f95917",
+      "id": "593f097f",
       "cell_type": "markdown",
       "source": "## 3.4 \u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0",
       "metadata": {}
@@ -767,7 +767,7 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "89f82b56-4813-4d47-931b-51448561dba8"
+      "id": "185ab6ef-0e1e-4f6f-934a-590b154c1a7b"
     },
     {
       "cell_type": "code",
@@ -781,7 +781,7 @@
         "  math    = c( 70,  80,  90, 100),\n",
         "  gender  = c(\"f\", \"m\", \"m\", \"f\"))"
       ],
-      "id": "c91935fe-2efe-4b02-aacd-cc5a6b1d91de"
+      "id": "31f9bf6a-cb50-4298-a8df-d149330cb2cb"
     },
     {
       "cell_type": "code",
@@ -796,7 +796,7 @@
         "  \"C\",         70,    90,     \"m\",\n",
         "  \"D\",         90,   100,     \"f\")"
       ],
-      "id": "837e0d9d-5f90-4418-a92d-92e64042f296"
+      "id": "c83a4471-19d1-42bb-b6aa-1448aaf7179d"
     },
     {
       "cell_type": "code",
@@ -807,7 +807,7 @@
         "head(my_df)\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "40e99432-b062-45ab-9c49-cbd40d47cdd5"
+      "id": "301f372e-c1f6-40fb-a8aa-83f3efdb083b"
     },
     {
       "cell_type": "code",
@@ -821,7 +821,7 @@
         "\n",
         "ncol(my_df) # \u5217\u6570"
       ],
-      "id": "6cbf4628-c49a-4654-ae67-42ff2b47b8e4"
+      "id": "904ead26-6e98-4bc7-9678-58ee2f444a0c"
     },
     {
       "cell_type": "code",
@@ -834,7 +834,7 @@
         "  Y = c(10, 100))\n",
         "my_df2"
       ],
-      "id": "bdecedfa-c06f-4200-bda9-7775689351c7"
+      "id": "67e48a9c-64e3-45af-a063-2dda1585f13f"
     },
     {
       "cell_type": "code",
@@ -844,7 +844,7 @@
       "source": [
         "colnames(my_df2)"
       ],
-      "id": "0f8dc4e7-a6a8-4725-bd08-19f767255448"
+      "id": "460959bd-4fde-4aed-93d5-efe788c9e255"
     },
     {
       "cell_type": "code",
@@ -856,7 +856,7 @@
         "my_df2\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "4018d38d-294c-4aea-b5ee-1f245258e0a0"
+      "id": "cbfabdf3-154d-4d99-b54e-c6f0b26ae989"
     },
     {
       "cell_type": "code",
@@ -866,7 +866,7 @@
       "source": [
         "row.names(my_df)"
       ],
-      "id": "97e9b83f-9921-40b7-a776-daf65dff4f18"
+      "id": "f7ae8695-8162-48e3-9875-71446f2e32c0"
     },
     {
       "cell_type": "code",
@@ -879,7 +879,7 @@
         "my_df2\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "5f77146a-66a0-427e-add6-87b8e8f3c8df"
+      "id": "a7290ab9-31f7-4367-8450-c4c15772e0a6"
     },
     {
       "cell_type": "code",
@@ -894,7 +894,7 @@
         "  row.names = c(\"A\", \"B\", \"C\", \"D\"))\n",
         "my_df3"
       ],
-      "id": "712bcdaf-d4c9-4f13-963b-cce40473ffac"
+      "id": "c75f8d8e-8251-47c3-9573-7ce54d5cb645"
     },
     {
       "cell_type": "code",
@@ -909,7 +909,7 @@
         "  gender  = \"m\")\n",
         "my_df2 <- rbind(my_df, tmp)"
       ],
-      "id": "10cce7ee-3502-4799-b5e3-fbe8ff8baa2a"
+      "id": "57209baa-70b3-4616-a075-27db2f28171f"
     },
     {
       "cell_type": "code",
@@ -920,7 +920,7 @@
         "my_df2 <- my_df %>%\n",
         "  mutate(id = c(1, 2, 3, 4))"
       ],
-      "id": "1206a482-517c-4e3b-9ff7-b94c399452da"
+      "id": "c3956072-31df-482b-bcc5-7b2f6823d411"
     },
     {
       "cell_type": "code",
@@ -932,7 +932,7 @@
         "my_df3[\"id\"] <- c(1, 2, 3, 4) # \u66f4\u65b0\n",
         "my_df3 # \u7d50\u679c\u306e\u78ba\u8a8d\uff08\u5272\u611b\uff09"
       ],
-      "id": "2ae54aeb-add7-43d6-bca5-dcbd7c94e698"
+      "id": "327b3389-b3c0-42bb-ba62-ac9bf6d54148"
     },
     {
       "cell_type": "code",
@@ -942,7 +942,7 @@
       "source": [
         "my_df[1, 2]"
       ],
-      "id": "3e4d8ff5-b43f-4200-9872-2efce44bcff8"
+      "id": "1fef81de-c91b-4370-807f-b9537f3f5880"
     },
     {
       "cell_type": "code",
@@ -963,7 +963,7 @@
         "\n",
         "x # \u7d50\u679c\u306e\u78ba\u8a8d\uff08\u5272\u611b\uff09"
       ],
-      "id": "c7c7ec23-1b8d-4d3d-85fa-64c5d4f06a3d"
+      "id": "3c3ffca0-cfa2-4f4a-89f2-35e4b8fc4eff"
     },
     {
       "cell_type": "code",
@@ -973,7 +973,7 @@
       "source": [
         "x <- my_df %>% select(name, math)"
       ],
-      "id": "8af99c8d-214e-400d-a9c3-22bec2335cbb"
+      "id": "a9870d38-d0fc-4577-bbcd-f61108c17fad"
     },
     {
       "cell_type": "code",
@@ -983,7 +983,7 @@
       "source": [
         "x <- my_df[, c(1, 3)]"
       ],
-      "id": "2f691db2-1e13-4c29-8568-9a5c2db67132"
+      "id": "a0a852b6-a8be-45ac-b9d8-7a66a4f418b4"
     },
     {
       "cell_type": "code",
@@ -996,7 +996,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df[, -c(2, 4)]"
       ],
-      "id": "08b93452-fbcb-4b4d-a6f0-062948e3b401"
+      "id": "a1dc18be-7f57-4929-a0f3-bb1b8d3fcf3e"
     },
     {
       "cell_type": "code",
@@ -1006,7 +1006,7 @@
       "source": [
         "x <- my_df[c(1, 3), ]"
       ],
-      "id": "5fe67680-c536-4e9d-b49a-07b154aafccf"
+      "id": "122b54b6-2cae-4f95-bfe4-b4dbed24d8cc"
     },
     {
       "cell_type": "code",
@@ -1016,7 +1016,7 @@
       "source": [
         "x <- my_df[-c(2, 4), ]"
       ],
-      "id": "529a2762-7fd3-4fe9-a360-5a30ab0300af"
+      "id": "6be67e36-1e10-4409-bed8-f1caf3f7061e"
     },
     {
       "cell_type": "code",
@@ -1028,7 +1028,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(gender == \"m\")"
       ],
-      "id": "2b149950-f593-43c3-8d5a-6ae2eaecfb10"
+      "id": "8a173bb1-9dd2-4b0a-8ecc-8c0f2581f263"
     },
     {
       "cell_type": "code",
@@ -1040,7 +1040,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(english > 80 & gender == \"m\")"
       ],
-      "id": "b5eed53b-80b2-46bd-b4c6-7ae71d846d6e"
+      "id": "0ad7d361-91c4-47e4-be0c-6f13f6a1df12"
     },
     {
       "cell_type": "code",
@@ -1052,7 +1052,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "x <- my_df %>% filter(english == max(my_df$english))"
       ],
-      "id": "f2d2d8fd-7a9d-467c-a484-92aaaf271296"
+      "id": "03369fb3-bb8b-4dac-8ef6-2315f18d0518"
     },
     {
       "cell_type": "code",
@@ -1063,7 +1063,7 @@
         "my_df2 <- my_df # \u30b3\u30d4\u30fc\n",
         "my_df2[my_df$gender == \"m\", ]$gender <- \"M\""
       ],
-      "id": "5ae96768-7d9d-468a-b7c0-6a949e4200d7"
+      "id": "8fcdd557-215c-4e70-8738-371b8a3d263c"
     },
     {
       "cell_type": "code",
@@ -1073,7 +1073,7 @@
       "source": [
         "my_df2"
       ],
-      "id": "2c8a13dc-afc1-440a-95ab-af7bd46993fa"
+      "id": "3a49eab3-182d-4b82-a49f-9a0f5e8c3b5f"
     },
     {
       "cell_type": "code",
@@ -1083,7 +1083,7 @@
       "source": [
         "x <- my_df %>% arrange(english)"
       ],
-      "id": "187d4b09-db1c-43df-88a0-5aa1a2e5203b"
+      "id": "a80d2225-509d-4e8b-82af-de29baf3f7ae"
     },
     {
       "cell_type": "code",
@@ -1093,7 +1093,7 @@
       "source": [
         "x <- my_df %>% arrange(-english)"
       ],
-      "id": "70dfaf92-ecf0-42a7-af19-b84ea8092b77"
+      "id": "dccc4c70-bb6f-4159-80b7-44c62e79f5e3"
     },
     {
       "cell_type": "code",
@@ -1109,7 +1109,7 @@
         "  byrow = TRUE) # \u884c\u3054\u3068\u306e\u751f\u6210\n",
         "A"
       ],
-      "id": "bbc0d1d4-02ca-4559-8551-8cb8bc46e7b3"
+      "id": "dcaa0a75-a600-4ba6-9d72-7a527c4a37dd"
     },
     {
       "cell_type": "code",
@@ -1120,7 +1120,7 @@
         "A <- my_df[, c(2, 3)] %>% as.matrix\n",
         "A"
       ],
-      "id": "b8f151d5-4ecf-4ee2-acaa-2c544cefd077"
+      "id": "c55ee8e7-7b32-4fa8-8ce2-497613c92d09"
     },
     {
       "cell_type": "code",
@@ -1130,7 +1130,7 @@
       "source": [
         "as.data.frame(A)"
       ],
-      "id": "e0a8a5d8-b183-45ea-9f64-9ee809c8e568"
+      "id": "d9c1e7ee-7b0c-4007-9fc5-557dc67fdb20"
     },
     {
       "cell_type": "code",
@@ -1140,7 +1140,7 @@
       "source": [
         "t(A)"
       ],
-      "id": "5a64de6e-af67-4870-88d5-83b24f88e5b9"
+      "id": "139e7c78-052b-4cd1-92ce-a84876253ff3"
     },
     {
       "cell_type": "code",
@@ -1150,7 +1150,7 @@
       "source": [
         "t(A) %*% A"
       ],
-      "id": "42f469d3-3d70-4a13-a197-648d19196d66"
+      "id": "554dabbb-287b-4a39-b355-43980174831c"
     },
     {
       "cell_type": "code",
@@ -1163,7 +1163,7 @@
         "  min = c(20, 21, 15),\n",
         "  max = c(24, 27, 21))"
       ],
-      "id": "f785a4db-6694-453e-93d2-78b75cd3d126"
+      "id": "21926cd2-f310-4e6b-be44-4952ee42094c"
     },
     {
       "cell_type": "code",
@@ -1175,7 +1175,7 @@
         "  pivot_longer(-day)\n",
         "my_longer"
       ],
-      "id": "40eb2235-b12b-425b-95db-6c27fa4908c5"
+      "id": "3a01fee3-1b4f-429f-a80b-b19619290913"
     },
     {
       "cell_type": "code",
@@ -1185,7 +1185,7 @@
       "source": [
         "my_longer %>% pivot_wider()"
       ],
-      "id": "e30313f7-8847-496b-a1af-3bf991183c67"
+      "id": "1e32e0ba-60d4-4ad6-a299-2ebc8f4be2cb"
     },
     {
       "cell_type": "code",
@@ -1202,10 +1202,10 @@
         "  scale_x_continuous(\n",
         "    breaks = my_longer$day) # x\u8ef8\u76ee\u76db\u308a"
       ],
-      "id": "5a624a4c-d3fc-4fdc-a7ca-33bd0ba18611"
+      "id": "1cd89a0a-a019-444c-b25b-9d8c2ea0e331"
     },
     {
-      "id": "590d7e2a",
+      "id": "02c7ad4f",
       "cell_type": "markdown",
       "source": "## 3.5 1\u6b21\u5143\u30c7\u30fc\u30bf\u306e\uff08\u975e\uff09\u985e\u4f3c\u5ea6",
       "metadata": {}
@@ -1226,7 +1226,7 @@
         "\n",
         "sum(AC^2)^0.5"
       ],
-      "id": "64c80a18-2197-44bb-948d-4365519e1940"
+      "id": "b538bedb-880c-4b60-9865-ad62e8865862"
     },
     {
       "cell_type": "code",
@@ -1238,7 +1238,7 @@
         "\n",
         "sum(abs(AC))"
       ],
-      "id": "68a3ba28-ec01-45d8-9710-71ca75ebfd1f"
+      "id": "d0f33abc-9e02-4b53-add0-92d5064470e5"
     },
     {
       "cell_type": "code",
@@ -1252,7 +1252,7 @@
         "sum(A * C) /\n",
         "  sum(A * A)^0.5 / sum(C * C)^0.5"
       ],
-      "id": "a7f5714d-5174-4bc6-88a4-fcbad8d92343"
+      "id": "dc13bea8-8e29-4e6e-aee1-b17f42870c12"
     },
     {
       "cell_type": "code",
@@ -1264,7 +1264,7 @@
         "\n",
         "cor(A, C)"
       ],
-      "id": "fbdb4ce4-3a37-4525-861e-2084c8921097"
+      "id": "eb644033-09e0-4a45-9776-1fb780059b9e"
     },
     {
       "cell_type": "code",
@@ -1297,10 +1297,10 @@
         "# \u76f8\u95a2\u4fc2\u6570\n",
         "my_df %>% proxy::simil(\"correlation\")"
       ],
-      "id": "daf4d73b-7017-4ec7-bc23-b212dd58bf96"
+      "id": "b8a82118-c867-45e6-a0bd-13035fe97875"
     },
     {
-      "id": "20a062c1",
+      "id": "68490164",
       "cell_type": "markdown",
       "source": "## 3.6 R\u306e\u30d1\u30c3\u30b1\u30fc\u30b8\uff0cPython\u306e\u30e2\u30b8\u30e5\u30fc\u30eb",
       "metadata": {}
@@ -1313,10 +1313,10 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "a41b5ce1-90c3-4cf3-b594-5d5f85d42330"
+      "id": "7f06dd72-5a6c-4a67-aa12-0500bf17a30e"
     },
     {
-      "id": "ca71c57d",
+      "id": "bc5dcb50",
       "cell_type": "markdown",
       "source": "## 3.7 \u53cd\u5fa9\u51e6\u7406",
       "metadata": {}
@@ -1329,7 +1329,7 @@
       "source": [
         "library(tidyverse)"
       ],
-      "id": "c92ebbb3-7865-4b1e-8351-879f336305ea"
+      "id": "c3b78295-272b-4665-9282-337438ef68c0"
     },
     {
       "cell_type": "code",
@@ -1344,7 +1344,7 @@
         "\n",
         "f1(10)           # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "f45cac69-bf0a-40ee-a510-28bc4d9dba02"
+      "id": "1756746d-7606-4ffc-8aab-30baee349fb4"
     },
     {
       "cell_type": "code",
@@ -1354,7 +1354,7 @@
       "source": [
         "replicate(n = 3, expr = f1(10))"
       ],
-      "id": "e5e1c547-ff9d-4b4c-bf7f-eca298a28248"
+      "id": "d8d17479-4fa8-4033-be23-e86f9d10b204"
     },
     {
       "cell_type": "code",
@@ -1364,7 +1364,7 @@
       "source": [
         "rep(x = f1(10), times = 3)"
       ],
-      "id": "33339305-9964-4130-bfb8-7ce54ef4b44c"
+      "id": "e35e54a4-7e61-44ba-94b8-5f0ab55c09aa"
     },
     {
       "cell_type": "code",
@@ -1375,7 +1375,7 @@
         "v <- c(5, 10, 100)\n",
         "v %>% map_dbl(f1)"
       ],
-      "id": "716128a2-e7e9-460a-bd4d-ccbfb4182ee1"
+      "id": "d149633f-4da0-4983-a7a5-488aed1b40a1"
     },
     {
       "cell_type": "code",
@@ -1386,7 +1386,7 @@
         "rep(x = 10, times = 3) %>% map_dbl(f1)\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "d05ec09e-bf79-42cb-a692-c914c08858e5"
+      "id": "a2627627-4009-4444-8638-0de31ed72a8d"
     },
     {
       "cell_type": "code",
@@ -1403,7 +1403,7 @@
         "\n",
         "f2(10) # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "bf28ae51-3f50-421b-9c2b-7e9b1ca321f2"
+      "id": "4f4590f1-a9e6-4850-b87c-d42f9d5da815"
     },
     {
       "cell_type": "code",
@@ -1414,7 +1414,7 @@
         "v <- c(5, 10, 100)\n",
         "v %>% map_dfr(f2)"
       ],
-      "id": "3a19a377-7bc3-4875-aa9d-7c88b81e9fad"
+      "id": "e74c7df2-1f6a-4c5c-89f6-f5cea37cc255"
     },
     {
       "cell_type": "code",
@@ -1434,7 +1434,7 @@
         "\n",
         "f3(x = 10, y = 6) # \u52d5\u4f5c\u78ba\u8a8d"
       ],
-      "id": "b9de5752-897c-4f51-b972-e957a710515a"
+      "id": "07b7cc88-cf08-4dfb-bbcc-bcedae36f1a4"
     },
     {
       "cell_type": "code",
@@ -1448,7 +1448,7 @@
         "\n",
         "my_df %>% pmap_dfr(f3)"
       ],
-      "id": "e8862b9f-7aae-4266-ae6b-8e5afbda4cf0"
+      "id": "2f74421a-23ae-4a95-8aae-3c9078c4203f"
     },
     {
       "cell_type": "code",
@@ -1464,10 +1464,10 @@
         "  furrr_options(seed = TRUE))\n",
         "# \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "25340cf5-0289-49b0-b1f5-cbad97cb9016"
+      "id": "3dd5104b-4aba-4458-99c8-e25df179d5bf"
     },
     {
-      "id": "d612e7e2",
+      "id": "645c06d3",
       "cell_type": "markdown",
       "source": "## 3.8 \u305d\u306e\u4ed6",
       "metadata": {}
@@ -1481,7 +1481,7 @@
         "x <- 123\n",
         "typeof(x)"
       ],
-      "id": "2f4318fb-f379-4228-810c-505fd3fe335b"
+      "id": "c307e178-cfc4-499e-aa67-addfb32e0668"
     },
     {
       "cell_type": "code",
@@ -1493,7 +1493,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "help(log)"
       ],
-      "id": "94cae100-91ec-423f-86ac-e1c8fc085e27"
+      "id": "5e2ea27f-e498-47df-96b5-bcbcad27c4c9"
     },
     {
       "cell_type": "code",
@@ -1504,7 +1504,7 @@
         "v <- c(1, NA, 3)\n",
         "v"
       ],
-      "id": "3b57ec4c-bd05-44c5-a543-c24cbe607731"
+      "id": "f67a4da9-baa0-4688-8e3f-edb21ea895ff"
     },
     {
       "cell_type": "code",
@@ -1516,10 +1516,10 @@
         "\n",
         "v[2] == NA # \u8aa4\u308a"
       ],
-      "id": "f9cc7422-3a20-4bff-8e93-a668d14de824"
+      "id": "f7c64df3-0cb6-4336-b3f8-ccbd5a968cbd"
     },
     {
-      "id": "0d4164cd",
+      "id": "29525107",
       "cell_type": "markdown",
       "source": "# 4 \u7d71\u8a08\u5165\u9580",
       "metadata": {}
@@ -1538,10 +1538,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "83adc92b-22c6-4557-9ba2-a46b266acb1b"
+      "id": "698cb3e8-25a7-488e-b548-eb1281e48fcf"
     },
     {
-      "id": "24b6e2e6",
+      "id": "a08bc244",
       "cell_type": "markdown",
       "source": "## 4.1 \u8a18\u8ff0\u7d71\u8a08",
       "metadata": {}
@@ -1555,7 +1555,7 @@
         "x <- c(165, 170, 175, 180, 185)\n",
         "mean(x) # \u5e73\u5747"
       ],
-      "id": "15406970-5d01-429d-ae40-2818ce29a34d"
+      "id": "8ad8271a-087b-4fd8-a512-b778c5f1024d"
     },
     {
       "cell_type": "code",
@@ -1566,7 +1566,7 @@
         "n <- length(x) # \u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\n",
         "sum(x) / n"
       ],
-      "id": "d01bd2ce-7173-4d73-81f9-5294ed12780f"
+      "id": "6f5161cf-8400-40a9-9e9c-a2494ea13354"
     },
     {
       "cell_type": "code",
@@ -1577,7 +1577,7 @@
         "y <- c(173, 174, 175, 176, 177)\n",
         "mean(y)"
       ],
-      "id": "8ae01eac-030a-4239-b35c-a6cb58b68da3"
+      "id": "731c9856-5933-45f6-81e7-0ef38656aed7"
     },
     {
       "cell_type": "code",
@@ -1589,7 +1589,7 @@
         "\n",
         "var(y) # y\u306e\u5206\u6563"
       ],
-      "id": "a447d712-cb4e-4b84-b1e0-d7ec37f3eb8e"
+      "id": "2868d7e1-c295-4607-81d8-7609a1743768"
     },
     {
       "cell_type": "code",
@@ -1599,7 +1599,7 @@
       "source": [
         "sum((x - mean(x))^2) / (n - 1)"
       ],
-      "id": "8626de13-0e69-4c51-916e-68e01953b155"
+      "id": "0d1f3de1-7230-4530-99a7-67a7200ffe2c"
     },
     {
       "cell_type": "code",
@@ -1611,7 +1611,7 @@
         "\n",
         "sd(y) # y\u306e\u6a19\u6e96\u504f\u5dee"
       ],
-      "id": "94bed6d5-9a5b-4a03-b165-a292f1ff1710"
+      "id": "8d742b9a-7ee1-43f8-bb27-0163fbfd60cd"
     },
     {
       "cell_type": "code",
@@ -1621,7 +1621,7 @@
       "source": [
         "var(x)**0.5 # x\u306e\u6a19\u6e96\u504f\u5dee"
       ],
-      "id": "e42c642c-f061-4405-8882-4150e020ccd7"
+      "id": "2b2526a6-a0f3-46aa-b879-7ec19606a2c4"
     },
     {
       "cell_type": "code",
@@ -1635,7 +1635,7 @@
         "\n",
         "pastecs::stat.desc(x)"
       ],
-      "id": "a6d5052f-a512-4192-b9f0-8840913b07e2"
+      "id": "9fd98a9d-6dc8-4cdc-bcc8-defaa3b1956e"
     },
     {
       "cell_type": "code",
@@ -1645,7 +1645,7 @@
       "source": [
         "quantile(x)"
       ],
-      "id": "3c2a1d1a-746d-40fd-afc1-057c7b9d1d01"
+      "id": "7776cc70-7cb3-4020-b480-9cc30f67e6d3"
     },
     {
       "cell_type": "code",
@@ -1662,7 +1662,7 @@
         "n <- length(x)\n",
         "var(x) * (n - 1) / n  # \u6a19\u672c\u5206\u6563"
       ],
-      "id": "3afa7ff7-6e0a-44dc-93dc-05c35b7224e1"
+      "id": "5f8c6149-f001-406d-8d91-5c975cbf95ce"
     },
     {
       "cell_type": "code",
@@ -1676,7 +1676,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "sd(x) * sqrt((n - 1) / n) # \u221a\u6a19\u672c\u5206\u6563"
       ],
-      "id": "7d763fa4-1ad1-4610-902a-9bc05e1fb7a4"
+      "id": "3762e231-a7ec-4137-944a-768eab13124d"
     },
     {
       "cell_type": "code",
@@ -1686,7 +1686,7 @@
       "source": [
         "sd(x) / length(x)**0.5"
       ],
-      "id": "2ec10f9f-cbe5-4e98-93a7-205006b31dd8"
+      "id": "fdee485f-bca0-4d9f-8a62-005da903c1ec"
     },
     {
       "cell_type": "code",
@@ -1702,7 +1702,7 @@
         "  math    = c( 70,  80,  90, 100),\n",
         "  gender  = c(\"f\", \"m\", \"m\", \"f\"))"
       ],
-      "id": "3ef9a7df-7358-4bcb-af66-5a615d00d265"
+      "id": "439d974c-8346-4239-86fc-401135906250"
     },
     {
       "cell_type": "code",
@@ -1712,7 +1712,7 @@
       "source": [
         "var(my_df$english)"
       ],
-      "id": "d08b095e-67a6-4d0d-b25a-f3ca9867d703"
+      "id": "8afe7d42-bc14-4c26-a380-e25f0971b1fa"
     },
     {
       "cell_type": "code",
@@ -1742,7 +1742,7 @@
         "    where(is.numeric), # \u6570\u5024\u306e\u5217\u306e\n",
         "    function(x) { var(x) })) # \u4e0d\u504f\u5206\u6563\n"
       ],
-      "id": "be29cfc8-cfd2-4e90-ae67-3fa02df72282"
+      "id": "181e90d3-4746-4963-b3a6-4020879189c4"
     },
     {
       "cell_type": "code",
@@ -1757,7 +1757,7 @@
         "pastecs::stat.desc(my_df)\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "58e08a93-ec67-4268-84f9-9f2e5de39986"
+      "id": "0ff37bde-f265-4f85-87c0-2f01a0f770b1"
     },
     {
       "cell_type": "code",
@@ -1767,7 +1767,7 @@
       "source": [
         "table(my_df$gender)\n"
       ],
-      "id": "e7f0f352-e8a0-454d-bc26-4ecfb8607e72"
+      "id": "1054d7e5-4af3-4913-8420-0b885a106665"
     },
     {
       "cell_type": "code",
@@ -1780,7 +1780,7 @@
         "  excel = my_df$math >= 80)\n",
         "table(my_df2)\n"
       ],
-      "id": "7e6c31df-ebe6-4c72-ac18-38c7a595f4e7"
+      "id": "0ab8b280-64c7-4f7f-93d9-349c371bbb13"
     },
     {
       "cell_type": "code",
@@ -1793,10 +1793,10 @@
         "    where(is.numeric), mean),\n",
         "    .groups = \"drop\") # \u30b0\u30eb\u30fc\u30d7\u5316\u89e3\u9664\n"
       ],
-      "id": "77b58ae6-23e7-45f2-8dfd-30f60092581e"
+      "id": "ed430f6b-7093-4474-9a43-b4f5c526a25e"
     },
     {
-      "id": "6c3da019",
+      "id": "1f681fbd",
       "cell_type": "markdown",
       "source": "## 4.2 \u30c7\u30fc\u30bf\u306e\u53ef\u8996\u5316",
       "metadata": {}
@@ -1809,7 +1809,7 @@
       "source": [
         "head(iris)"
       ],
-      "id": "8c5bb467-03b8-4f8e-95cd-515e6ac96224"
+      "id": "d13b2888-477d-49a7-a014-03eb4d9757fd"
     },
     {
       "cell_type": "code",
@@ -1819,7 +1819,7 @@
       "source": [
         "hist(iris$Sepal.Length)"
       ],
-      "id": "10abf5cf-61a4-473f-b2e5-2757bdf27200"
+      "id": "bf3411ec-3af6-4950-9ae6-b8e7fcf675f8"
     },
     {
       "cell_type": "code",
@@ -1830,7 +1830,7 @@
         "x <- c(10, 20, 30)\n",
         "hist(x, breaks = 2) # \u968e\u7d1a\u6570\u306f2"
       ],
-      "id": "6ff17980-de3d-4756-bf04-ac8270259310"
+      "id": "66efc6f9-1403-474e-9244-e876d1dcdf16"
     },
     {
       "cell_type": "code",
@@ -1843,7 +1843,7 @@
         "           length.out = 10)\n",
         "hist(x, breaks = tmp, right = FALSE)"
       ],
-      "id": "43ad4085-9f29-473a-a0fe-abb9383c7fc1"
+      "id": "60d1e22d-4ad1-43cc-9956-40601c0e497f"
     },
     {
       "cell_type": "code",
@@ -1854,7 +1854,7 @@
         "plot(iris$Sepal.Length,\n",
         "     iris$Sepal.Width)"
       ],
-      "id": "00e74267-31f6-44bf-b2d0-aa4259f393c8"
+      "id": "ad534150-26a9-4ec0-b9c2-92a800c920cd"
     },
     {
       "cell_type": "code",
@@ -1864,7 +1864,7 @@
       "source": [
         "boxplot(iris[, -5])"
       ],
-      "id": "ce99b115-a5c9-4a16-819f-ac3308588b7b"
+      "id": "65551c57-cd42-49ed-85ff-5d348e07b505"
     },
     {
       "cell_type": "code",
@@ -1876,7 +1876,7 @@
         "my_df <- psych::describe(iris[, -5])\n",
         "my_df %>% select(mean, sd, se)"
       ],
-      "id": "034c5e98-d006-4222-ac8e-3835e9052744"
+      "id": "91d92328-7a05-4974-b677-ec0b03a9e6e6"
     },
     {
       "cell_type": "code",
@@ -1890,7 +1890,7 @@
         "  geom_errorbar(aes(ymin = mean - se, ymax = mean + se)) +\n",
         "  xlab(NULL)"
       ],
-      "id": "4fdcd8b9-dfcf-4484-9742-d24b926254e9"
+      "id": "4c93bcef-117c-454b-961a-6ecd9e1065cc"
     },
     {
       "cell_type": "code",
@@ -1911,7 +1911,7 @@
         "my_df$se <- tmp$value\n",
         "head(my_df)"
       ],
-      "id": "2b70e507-e3dc-4ca9-aacd-1a9086756f95"
+      "id": "86977a83-bf4a-4ff5-a432-34e513a22e81"
     },
     {
       "cell_type": "code",
@@ -1924,7 +1924,7 @@
         "  geom_col(position = \"dodge\") +\n",
         "  geom_errorbar(aes(ymin = value - se, ymax = value + se), position = \"dodge\")"
       ],
-      "id": "12998732-6dfa-4e62-b764-806480b4c3da"
+      "id": "cc22c7d1-4188-42d3-9f7c-94fe846f2427"
     },
     {
       "cell_type": "code",
@@ -1945,7 +1945,7 @@
         "  geom_bar(stat = \"summary\", fun = mean, position = \"dodge\") +\n",
         "  stat_summary(geom = \"errorbar\", fun.data = mean_se, position = \"dodge\")"
       ],
-      "id": "f1932da7-6f1f-4386-aa0f-7e8bf58b0a44"
+      "id": "593c110f-fd07-4dfe-b594-91cf45d163d8"
     },
     {
       "cell_type": "code",
@@ -1962,7 +1962,7 @@
         "  formula = ~ Species + w_Sepal,\n",
         "  data = my_df)"
       ],
-      "id": "1058bb26-8911-4a3d-8a10-88e3eb2f3762"
+      "id": "4144cb71-7094-49df-b67a-887108c65c42"
     },
     {
       "cell_type": "code",
@@ -1974,7 +1974,7 @@
         "vcd::mosaic(formula = ~w_Sepal + Species, data = my_df,\n",
         "            labeling = labeling_values)"
       ],
-      "id": "80afa463-7b9e-45e1-a1ae-057c1d7d6f02"
+      "id": "16674e98-da90-4e85-86e8-118c8a494887"
     },
     {
       "cell_type": "code",
@@ -1984,7 +1984,7 @@
       "source": [
         "curve(x^3 - x, -2, 2)"
       ],
-      "id": "766c49b5-e272-490e-9c23-4448d81890a8"
+      "id": "17bb12bf-f076-4af5-b406-ebbeef4e8a67"
     },
     {
       "cell_type": "code",
@@ -2000,7 +2000,7 @@
         "  geom_histogram(breaks = tmp,\n",
         "                 closed = \"left\")"
       ],
-      "id": "72c86768-4b35-4319-8b1f-21f1f395b48b"
+      "id": "02ee8aa1-6fac-4f9a-91fd-98376d0d8bae"
     },
     {
       "cell_type": "code",
@@ -2013,7 +2013,7 @@
         "             y = Sepal.Width)) +\n",
         "  geom_point()"
       ],
-      "id": "5ebb7d9d-eba9-495d-9a6e-c0ca0f9f60e8"
+      "id": "094f657d-060f-4314-8c37-8bd2695312a8"
     },
     {
       "cell_type": "code",
@@ -2030,7 +2030,7 @@
         "  geom_boxplot() +\n",
         "  xlab(NULL)"
       ],
-      "id": "a68ebfb2-f478-4a6f-92ed-67b5941b2f77"
+      "id": "28bfb75e-d4c4-4025-b3a1-45296eeefb64"
     },
     {
       "cell_type": "code",
@@ -2047,7 +2047,7 @@
         "  geom_mosaic(\n",
         "    aes(x = product(w_Sepal, Species)))"
       ],
-      "id": "6b8dd642-4f6e-40bd-8eca-fdadd5d148b5"
+      "id": "0a1a6ff7-8f0a-41ee-8ec4-51c102230422"
     },
     {
       "cell_type": "code",
@@ -2060,10 +2060,10 @@
         "  ggplot(aes(x = x)) +\n",
         "  stat_function(fun = f)"
       ],
-      "id": "2fc2af1c-c5dc-4fed-a3cb-f75f742b6ac2"
+      "id": "86352e3c-4044-493d-83d2-71e510178d2d"
     },
     {
-      "id": "a40dce60",
+      "id": "c9cd9e72",
       "cell_type": "markdown",
       "source": "## 4.3 \u4e71\u6570",
       "metadata": {}
@@ -2079,7 +2079,7 @@
         "            replace = TRUE) # \u91cd\u8907\u3042\u308a\n",
         "hist(x, breaks = 0:6) # \u30d2\u30b9\u30c8\u30b0\u30e9\u30e0"
       ],
-      "id": "857e552a-c0d6-448a-9cc9-359ec4428619"
+      "id": "6d0698cc-3a2c-4790-aece-71c974bbb49d"
     },
     {
       "cell_type": "code",
@@ -2092,7 +2092,7 @@
         "           n = 1000) # \u4e71\u6570\u306e\u6570\n",
         "hist(x)"
       ],
-      "id": "3ad971c3-bc29-496a-a3be-b724b4751d15"
+      "id": "6e4ac8b1-cc2c-4f42-ba5f-3181f629de5b"
     },
     {
       "cell_type": "code",
@@ -2106,7 +2106,7 @@
         "        n = 1000))    # \u4e71\u6570\u306e\u6570\n",
         "hist(x, breaks = 0:6) # \u7d50\u679c\u306f\u5272\u611b"
       ],
-      "id": "586790ad-9005-45b4-9bec-54f82653ab1d"
+      "id": "4b6e317b-2450-42e2-8bdc-4488b2fa7a6e"
     },
     {
       "cell_type": "code",
@@ -2122,7 +2122,7 @@
         "            n = r)    # \u4e71\u6570\u306e\u6570\n",
         "hist(x, breaks = max(x) - min(x))"
       ],
-      "id": "890fbd50-a8f9-4fc9-82f5-431a7af103d5"
+      "id": "4f2244b1-79ac-4f50-8c92-7885f2ea6e4e"
     },
     {
       "cell_type": "code",
@@ -2136,7 +2136,7 @@
         "           n = r)     # \u4e71\u6570\u306e\u6570\n",
         "hist(x, breaks = 40)"
       ],
-      "id": "5f3f1fba-041a-4696-a3ad-3135e6e71f61"
+      "id": "d6b5eff4-4411-4ae1-855b-4e0b109d20ab"
     },
     {
       "cell_type": "code",
@@ -2154,7 +2154,7 @@
         "       se = sd(tmp) / sqrt(n)) # \u6a19\u6e96\u8aa4\u5dee\n",
         "}"
       ],
-      "id": "8a37ec2d-dd36-44d5-9e0f-060b249ab01f"
+      "id": "b1a046f7-232b-4c20-909b-54aa3b3062ab"
     },
     {
       "cell_type": "code",
@@ -2165,7 +2165,7 @@
         "g <- var\n",
         "c(10, 20, 30) %>% map_dfr(f)"
       ],
-      "id": "522d2c0d-94cd-4107-9b85-483211ac37a6"
+      "id": "62774e61-8860-4272-8a96-435fb73b2f92"
     },
     {
       "cell_type": "code",
@@ -2176,7 +2176,7 @@
         "g <- sd\n",
         "c(5, 10, 15, 20) %>% map_dfr(f)"
       ],
-      "id": "e362b00a-f57b-4a5e-bc06-aa1d87e04be4"
+      "id": "9f0a7c45-4df0-4ea2-b993-ebb63d5621ab"
     },
     {
       "cell_type": "code",
@@ -2193,10 +2193,10 @@
         "}\n",
         "c(10, 20, 30) %>% map_dfr(f)"
       ],
-      "id": "4fce42fe-291c-4a7d-89e1-88b7be1bd5c7"
+      "id": "0d850574-015b-47ee-aa14-087a59f13f5e"
     },
     {
-      "id": "a896ba55",
+      "id": "e0bf9b85",
       "cell_type": "markdown",
       "source": "## 4.4 \u7d71\u8a08\u7684\u63a8\u6e2c",
       "metadata": {}
@@ -2221,7 +2221,7 @@
         "                                       # \u5de6\u7247\u5074\u691c\u5b9a\u306a\u3089'less'\n",
         "                                       # \u53f3\u7247\u5074\u691c\u5b9a\u306a\u3089'greater'\n"
       ],
-      "id": "321f7b0f-3eb1-4a8a-8717-54f06936d790"
+      "id": "02b64751-9d08-477e-a319-0bf8536514f5"
     },
     {
       "cell_type": "code",
@@ -2245,7 +2245,7 @@
         "  geom_hline(yintercept = my_pr2) +                     # \u6c34\u5e73\u7dda\n",
         "  theme(legend.position = \"none\")                       # \u51e1\u4f8b\u3092\u8868\u793a\u3057\u306a\u3044\uff0e"
       ],
-      "id": "860868e8-2bbd-4ee9-b5d6-0b37457ec491"
+      "id": "9eb653c4-9b4d-4562-92db-024223e217f4"
     },
     {
       "cell_type": "code",
@@ -2255,7 +2255,7 @@
       "source": [
         "# \u524d\u9805\u306e\u7d50\u679c\uff08\u518d\u63b2\uff09"
       ],
-      "id": "97711e30-c018-4b65-a4f3-2b27b952e97d"
+      "id": "69439a99-8ae3-415b-b9d4-ada2dab69175"
     },
     {
       "cell_type": "code",
@@ -2265,7 +2265,7 @@
       "source": [
         "# \u524d\u9805\u5192\u982d\u306e\u30b3\u30fc\u30c9"
       ],
-      "id": "a3d3faab-b88a-4229-99eb-badeaa1e584f"
+      "id": "0945acc7-b738-4fc3-af3b-a52a95a241ec"
     },
     {
       "cell_type": "code",
@@ -2285,7 +2285,7 @@
         "                                  # \u5de6\u7247\u5074\u691c\u5b9a\u306a\u3089'less'\n",
         "                                  # \u53f3\u7247\u5074\u691c\u5b9a\u306a\u3089'greater'\n"
       ],
-      "id": "81fd44bf-6edd-4754-a3eb-060862e5160a"
+      "id": "a349a591-e89b-4dda-81e4-c27b788877a1"
     },
     {
       "cell_type": "code",
@@ -2299,7 +2299,7 @@
         "       alternative = \"two.sided\",\n",
         "       conf.level = 0.95)\n"
       ],
-      "id": "5f43f532-d35c-49fb-a0e4-f79efbfd4f47"
+      "id": "aaec37e8-a54e-4e12-a327-54b9656b064e"
     },
     {
       "cell_type": "code",
@@ -2311,7 +2311,7 @@
         "                \"/fromzero/master/data/smoker.csv\")\n",
         "my_data <- read_csv(my_url)"
       ],
-      "id": "a7b13faa-4eca-4f57-bc38-571bf6eb05e6"
+      "id": "f3060181-05ad-4c08-9c89-40a258b6d2bb"
     },
     {
       "cell_type": "code",
@@ -2321,7 +2321,7 @@
       "source": [
         "head(my_data)"
       ],
-      "id": "b8b27459-789a-4f58-9572-2053b864b60c"
+      "id": "0644849d-be25-47a8-af0e-6229d9952aea"
     },
     {
       "cell_type": "code",
@@ -2332,7 +2332,7 @@
         "my_table <- table(my_data)\n",
         "my_table"
       ],
-      "id": "29a372b6-2560-465c-a814-551646e96eec"
+      "id": "e13e6548-93b9-4c32-b58d-2fdb38beda39"
     },
     {
       "cell_type": "code",
@@ -2342,7 +2342,7 @@
       "source": [
         "chisq.test(my_table, correct = FALSE)\n"
       ],
-      "id": "f952ea49-82b4-4cda-a018-cb0256b6967a"
+      "id": "50d70750-8d3d-4ad5-aa3d-dac2dc9cffd5"
     },
     {
       "cell_type": "code",
@@ -2361,7 +2361,7 @@
         "n <- 10^5\n",
         "result <- replicate(n, sum(sample(X, size = length(X), replace = TRUE))) # \u624b\u98064"
       ],
-      "id": "076cc717-9960-447b-ad16-1772be4ad86a"
+      "id": "6892c7e1-1f7c-49f9-9b6f-a4120ed41aee"
     },
     {
       "cell_type": "code",
@@ -2372,7 +2372,7 @@
         "hist(x = result, breaks = 0:15,\n",
         "     right = FALSE)"
       ],
-      "id": "b18090ab-dc9d-43b6-8d94-2f7a93a33eba"
+      "id": "343b967b-a39f-4264-b68c-ee0326512daf"
     },
     {
       "cell_type": "code",
@@ -2382,10 +2382,10 @@
       "source": [
         "quantile(result, c(0.025, 0.975))"
       ],
-      "id": "603cbe44-308a-4714-938a-8fb650a11fad"
+      "id": "83a2795a-727d-4093-9793-32e26d7d801a"
     },
     {
-      "id": "b3a01064",
+      "id": "fdca4973",
       "cell_type": "markdown",
       "source": "# 5 \u524d\u51e6\u7406",
       "metadata": {}
@@ -2404,10 +2404,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "dc8c1631-1e31-4b8e-b430-0aa0700c5bdb"
+      "id": "33bae720-d51c-4e86-a671-3e5ff8223aba"
     },
     {
-      "id": "3f290582",
+      "id": "20a75d62",
       "cell_type": "markdown",
       "source": "## 5.1 \u30c7\u30fc\u30bf\u306e\u8aad\u307f\u8fbc\u307f",
       "metadata": {}
@@ -2422,7 +2422,7 @@
         "system(str_c(\"wget https://raw.githubusercontent.com/taroyabuki\",\n",
         "             \"/fromzero/master/data/exam.csv\"))"
       ],
-      "id": "73e59ad2-7494-4491-bff1-2562a4886e36"
+      "id": "23e76f12-f03e-4191-8a4e-734c183e62bd"
     },
     {
       "cell_type": "code",
@@ -2437,7 +2437,7 @@
         "\n",
         "my_df"
       ],
-      "id": "7bee9780-3e00-42da-93e1-e5d1402b49ce"
+      "id": "b72ef8df-5550-461c-aea9-d09a6ed1fe9d"
     },
     {
       "cell_type": "code",
@@ -2451,7 +2451,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "my_df <- read.csv(my_url, stringsAsFactors = FALSE)"
       ],
-      "id": "e9a6eca3-f12b-4efc-864d-ce53b6949ab3"
+      "id": "379c81e0-fbec-42be-9797-9f49b3db0063"
     },
     {
       "cell_type": "code",
@@ -2465,7 +2465,7 @@
         "  row.names = 1)\n",
         "my_df2"
       ],
-      "id": "eb56a9de-2d08-41c0-9f3e-a329d76df20b"
+      "id": "bd97da1e-0871-4257-b7ae-e825f4571299"
     },
     {
       "cell_type": "code",
@@ -2479,7 +2479,7 @@
         "  file = \"exam2.csv\",\n",
         "  row.names = FALSE)"
       ],
-      "id": "76bc01b0-1ac0-4166-b3e2-1873896ecbf0"
+      "id": "036a14b7-7cb0-4c46-bdef-d08c87f22f2b"
     },
     {
       "cell_type": "code",
@@ -2489,7 +2489,7 @@
       "source": [
         "my_df2 %>% write.csv(\"exam3.csv\")"
       ],
-      "id": "eace8cbe-3d1f-45b8-8dc8-a4c8ce2c91a3"
+      "id": "2d59ca59-43fb-431b-aee3-875ad6304fa3"
     },
     {
       "cell_type": "code",
@@ -2504,7 +2504,7 @@
         "  stringsAsFactors = FALSE,\n",
         "  fileEncoding = \"UTF-8\")"
       ],
-      "id": "2f9d326d-2af1-44a2-a654-8b5c4c78c6c5"
+      "id": "a0e60fed-d058-40f9-b42c-5f5c7dfd946d"
     },
     {
       "cell_type": "code",
@@ -2517,7 +2517,7 @@
         "my_df %>% write.csv(file = \"exam2.csv\", row.names = FALSE,\n",
         "                    fileEncoding = \"UTF-8\")"
       ],
-      "id": "4dd38840-c36a-4622-8752-12bfc0c3aafb"
+      "id": "5faf7507-f5cc-43a3-83a3-cbed8ea8d21c"
     },
     {
       "cell_type": "code",
@@ -2528,7 +2528,7 @@
         "my_url <- \"https://taroyabuki.github.io/fromzero/exam.html\"\n",
         "my_tables <- xml2::read_html(my_url) %>% rvest::html_table()"
       ],
-      "id": "e9a49d34-bf19-485f-be02-1ee4b4cb425d"
+      "id": "a7b8c8f9-5fa7-4679-a79a-6606d9b64855"
     },
     {
       "cell_type": "code",
@@ -2538,7 +2538,7 @@
       "source": [
         "my_tables"
       ],
-      "id": "1d98d26e-5bd8-445e-ba31-990bee817f6b"
+      "id": "fd5a0064-8e10-4002-8f47-4280c1b6d62e"
     },
     {
       "cell_type": "code",
@@ -2549,7 +2549,7 @@
         "tmp <- my_tables[[1]]\n",
         "tmp"
       ],
-      "id": "60500e7e-ebe7-4c3c-8798-bdbaab5e25a9"
+      "id": "4748c6f8-b20f-4b89-8c4e-bdb87966922c"
     },
     {
       "cell_type": "code",
@@ -2564,7 +2564,7 @@
         "my_data <- tmp[-1, -1]\n",
         "my_data"
       ],
-      "id": "dd8b0a84-0b7d-4b04-bcd8-797c9999acff"
+      "id": "0c6bbcc8-ab69-4b7a-8233-a0710e92e2ca"
     },
     {
       "cell_type": "code",
@@ -2579,7 +2579,7 @@
         "#my_data <- fromJSON(\"exam.json\") # \uff08\u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u3046\u5834\u5408\uff09\n",
         "my_data"
       ],
-      "id": "4634093f-ac8b-4fb3-ba88-69dffb24fd5e"
+      "id": "ebd57223-a620-4088-81eb-a9c26c6c30ff"
     },
     {
       "cell_type": "code",
@@ -2594,7 +2594,7 @@
         "#my_xml <- read_xml(\"exam.xml\") # \uff08\u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u3046\u5834\u5408\uff09\n",
         "xml_ns(my_xml)                  # \u540d\u524d\u7a7a\u9593\u306e\u78ba\u8a8d\uff08d1\uff09"
       ],
-      "id": "3a83a3f4-4249-4610-8419-fc2430cca806"
+      "id": "d6b30af8-7aca-442d-abc0-2c0d96e4d1dd"
     },
     {
       "cell_type": "code",
@@ -2604,7 +2604,7 @@
       "source": [
         "my_records <- xml_find_all(my_xml, \".//d1:record\")"
       ],
-      "id": "7cbf62e6-b1c6-4f22-b9fc-d96de60aab1b"
+      "id": "c82df63d-52a2-4e7a-aecd-47373f0ba3d5"
     },
     {
       "cell_type": "code",
@@ -2620,7 +2620,7 @@
         "  tmp\n",
         "}"
       ],
-      "id": "1087888b-97c7-4d3b-896b-24dfa168b280"
+      "id": "e2c632b2-2ca8-41b7-9bd6-ccd56f35548a"
     },
     {
       "cell_type": "code",
@@ -2633,10 +2633,10 @@
         "my_data$math    <- as.numeric(my_data$math)\n",
         "my_data"
       ],
-      "id": "892116d5-c85c-4273-84d8-1a1d7e2d8548"
+      "id": "c2e0d53d-8d18-489d-8e3b-3a120dd24e56"
     },
     {
-      "id": "6a974fb6",
+      "id": "67f05a39",
       "cell_type": "markdown",
       "source": "## 5.2 \u30c7\u30fc\u30bf\u306e\u5909\u63db",
       "metadata": {}
@@ -2655,7 +2655,7 @@
         "\n",
         "z1"
       ],
-      "id": "8696fc2b-214d-45e6-90eb-1e80dac93efc"
+      "id": "41fd6a2e-7985-4589-83de-25c8697685ff"
     },
     {
       "cell_type": "code",
@@ -2665,7 +2665,7 @@
       "source": [
         "c(mean(z1), sd(z1))"
       ],
-      "id": "12c2cc6e-7aa5-43a9-ab7d-6c1402885fb6"
+      "id": "f7ed6386-2e00-425e-896c-09a117d01644"
     },
     {
       "cell_type": "code",
@@ -2675,7 +2675,7 @@
       "source": [
         "z1 * sd(x1) + mean(x1)"
       ],
-      "id": "2ba0c020-ea01-416d-a052-4028837b76da"
+      "id": "7397cf01-7e3c-43d1-8ae2-0f79b3c4f7fb"
     },
     {
       "cell_type": "code",
@@ -2687,7 +2687,7 @@
         "z2 <- (x2 - mean(x1)) / sd(x1)\n",
         "c(mean(z2), sd(z2))"
       ],
-      "id": "e9873a32-8e1a-4f35-98c3-34bbf2ff51d9"
+      "id": "ea019b96-673c-43af-a1d2-770b9890173a"
     },
     {
       "cell_type": "code",
@@ -2708,7 +2708,7 @@
         "\n",
         "my_enc %>% predict(my_df)"
       ],
-      "id": "eecc122e-478e-484c-8614-afd2948b631f"
+      "id": "6c2e0c4d-87f0-46fb-ba6a-d973b8ba1f98"
     },
     {
       "cell_type": "code",
@@ -2721,7 +2721,7 @@
         "  class = c(\"B\", \"C\", \"B\"))\n",
         "my_enc %>% predict(my_df2)"
       ],
-      "id": "af45aae4-8c81-472a-8038-f230a94e15f6"
+      "id": "cb3bd370-0c8d-4ba8-8a54-7f01a94a25b9"
     },
     {
       "cell_type": "code",
@@ -2736,22 +2736,22 @@
         "\n",
         "my_enc %>% predict(my_df2)"
       ],
-      "id": "eb19523a-dba1-4bb6-b316-952bd6b2f6b4"
+      "id": "5b63c63e-a4ac-4a92-a337-99cefc9d84ea"
     },
     {
-      "id": "811b4ba7",
+      "id": "663fec43",
       "cell_type": "markdown",
       "source": "# 6 \u6a5f\u68b0\u5b66\u7fd2\u306e\u76ee\u7684\u30fb\u30c7\u30fc\u30bf\u30fb\u624b\u6cd5\n\n\n",
       "metadata": {}
     },
     {
-      "id": "37178c55",
+      "id": "fb60d2df",
       "cell_type": "markdown",
       "source": "## 6.1 \u6a5f\u68b0\u5b66\u7fd2\u306e\u76ee\u7684\uff08\u672c\u66f8\u306e\u5834\u5408\uff09\n\n\n",
       "metadata": {}
     },
     {
-      "id": "02f1a486",
+      "id": "2da94413",
       "cell_type": "markdown",
       "source": "## 6.2 \u6a5f\u68b0\u5b66\u7fd2\u306e\u305f\u3081\u306e\u30c7\u30fc\u30bf",
       "metadata": {}
@@ -2765,16 +2765,16 @@
         "iris\n",
         "# \u4ee5\u4e0b\u7701\u7565"
       ],
-      "id": "32ae5c87-7b17-45ca-83ca-e0599a5768bd"
+      "id": "a96ffa59-2946-4ca2-8cd3-1f4685159df5"
     },
     {
-      "id": "2cda9435",
+      "id": "3a074017",
       "cell_type": "markdown",
       "source": "## 6.3 \u6a5f\u68b0\u5b66\u7fd2\u306e\u305f\u3081\u306e\u624b\u6cd5\n\n\n",
       "metadata": {}
     },
     {
-      "id": "4bde141c",
+      "id": "5cd74813",
       "cell_type": "markdown",
       "source": "# 7 \u56de\u5e301\uff08\u5358\u56de\u5e30\uff09",
       "metadata": {}
@@ -2793,16 +2793,16 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "e9ee6324-5df9-4fe9-965d-79875cab3ee9"
+      "id": "585d1c54-e54d-45fa-87f6-9c344758fa5d"
     },
     {
-      "id": "449fa449",
+      "id": "41b03dd5",
       "cell_type": "markdown",
       "source": "## 7.1 \u81ea\u52d5\u8eca\u306e\u505c\u6b62\u8ddd\u96e2\n\n\n",
       "metadata": {}
     },
     {
-      "id": "d778afa0",
+      "id": "159b2ddb",
       "cell_type": "markdown",
       "source": "## 7.2 \u30c7\u30fc\u30bf\u306e\u78ba\u8a8d",
       "metadata": {}
@@ -2817,7 +2817,7 @@
         "library(tidyverse)\n",
         "my_data <- cars"
       ],
-      "id": "e43629ca-7d31-4ebb-be05-fae327ee16b1"
+      "id": "ca78b318-1c17-417d-8ddc-a32dd577ee3a"
     },
     {
       "cell_type": "code",
@@ -2827,7 +2827,7 @@
       "source": [
         "dim(my_data)"
       ],
-      "id": "f5d43da2-5a5a-475f-b7fc-303181c68712"
+      "id": "8e8057c0-3890-4c73-858b-f45ef93168c0"
     },
     {
       "cell_type": "code",
@@ -2837,7 +2837,7 @@
       "source": [
         "head(my_data)"
       ],
-      "id": "b9e6b7b3-010c-4ce3-a385-5a8b4aee3b70"
+      "id": "55edf9be-2e1d-4ef5-9cc2-9e8bd2b2aad4"
     },
     {
       "cell_type": "code",
@@ -2848,7 +2848,7 @@
         "options(digits = 3)\n",
         "pastecs::stat.desc(my_data)"
       ],
-      "id": "ab0b961b-c073-453e-8037-5ff47bb4d2e0"
+      "id": "2b55c703-43d6-4349-a70f-ee43622bffb2"
     },
     {
       "cell_type": "code",
@@ -2860,10 +2860,10 @@
         "  ggplot(aes(x = speed, y = dist)) +\n",
         "  geom_point()"
       ],
-      "id": "877923d1-3c86-4482-9ab4-74c24eccd0a0"
+      "id": "536a5491-7878-491e-aa3d-0fbf1972fd16"
     },
     {
-      "id": "b356b2c5",
+      "id": "110cf5c6",
       "cell_type": "markdown",
       "source": "## 7.3 \u56de\u5e30\u5206\u6790",
       "metadata": {}
@@ -2885,7 +2885,7 @@
         "  geom_pointrange(data = tmp, aes(ymin = -9, ymax = dist),  linetype = \"dotted\") +\n",
         "  geom_pointrange(data = tmp, aes(xmin =  0, xmax = speed), linetype = \"dotted\")"
       ],
-      "id": "08084772-8b9b-4ca5-9184-2b5510767eab"
+      "id": "171241fb-0002-42cc-9838-825c80bdf19d"
     },
     {
       "cell_type": "code",
@@ -2897,7 +2897,7 @@
         "library(tidyverse)\n",
         "my_data <- cars"
       ],
-      "id": "eede43ce-1d78-442e-a13a-19a5ca79f708"
+      "id": "cfd9d8b0-426e-4503-b49b-7a2eb90e10ae"
     },
     {
       "cell_type": "code",
@@ -2909,7 +2909,7 @@
         "                  data = my_data,      # \u30c7\u30fc\u30bf\n",
         "                  method = \"lm\")       # \u624b\u6cd5"
       ],
-      "id": "a256802a-9e65-44d0-8141-f5347296ad80"
+      "id": "cee599f5-f69f-4dd2-919d-85d4be7028ba"
     },
     {
       "cell_type": "code",
@@ -2919,7 +2919,7 @@
       "source": [
         "coef(my_model$finalModel)"
       ],
-      "id": "7aafc9b4-d624-4a43-8df6-58afe2569086"
+      "id": "003aa65e-887b-4adb-b1ca-fbafd5e50621"
     },
     {
       "cell_type": "code",
@@ -2930,7 +2930,7 @@
         "tmp <- data.frame(speed = 21.5)\n",
         "my_model %>% predict(tmp)"
       ],
-      "id": "105965cd-a199-4822-ba39-8a5b048730f5"
+      "id": "3d7b7477-715f-4294-9efa-3276aaaa0cd2"
     },
     {
       "cell_type": "code",
@@ -2940,7 +2940,7 @@
       "source": [
         "f <- function(x) { my_model %>% predict(data.frame(speed = x)) }"
       ],
-      "id": "9d585645-6eee-4244-ae44-285dde9bece9"
+      "id": "f0f64692-1fa1-4a74-a037-740e1023e6d6"
     },
     {
       "cell_type": "code",
@@ -2956,10 +2956,10 @@
         "    fun = f,\n",
         "    mapping = aes(color = \"model\"))"
       ],
-      "id": "7e56a01d-8a5d-4748-8f49-88c7f008563e"
+      "id": "f37c065d-50ce-4d44-9e7b-a2ec17642e27"
     },
     {
-      "id": "8d6111fe",
+      "id": "d633b0b9",
       "cell_type": "markdown",
       "source": "## 7.4 \u5f53\u3066\u306f\u307e\u308a\u306e\u826f\u3055\u306e\u6307\u6a19",
       "metadata": {}
@@ -2979,7 +2979,7 @@
         "y_ <- my_model %>% predict(my_data)\n",
         "my_data$y_ <- y_"
       ],
-      "id": "31d06448-6404-40f4-8496-139614538e7d"
+      "id": "15721173-a23e-43db-91b8-224d53c6a17a"
     },
     {
       "cell_type": "code",
@@ -2990,7 +2990,7 @@
         "my_data$residual <- y - y_\n",
         "head(my_data)"
       ],
-      "id": "4ce63529-cfcc-4e4b-bbb2-2c6d9747559d"
+      "id": "16345927-fb00-492c-9acb-747a3b6796d1"
     },
     {
       "cell_type": "code",
@@ -3004,7 +3004,7 @@
         "  geom_line(aes(x = speed, y = y_)) +\n",
         "  geom_linerange(mapping = aes(ymin = y_, ymax = dist), linetype = \"dotted\")"
       ],
-      "id": "44b7c21a-0cfa-4449-9a37-2e0f689f6225"
+      "id": "93b83edc-404a-43e6-a576-b11956c98fbc"
     },
     {
       "cell_type": "code",
@@ -3016,7 +3016,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "mean((my_data$residual^2))**0.5\n"
       ],
-      "id": "20d0c7c2-d490-4c60-b479-d3e3b88dcfc4"
+      "id": "7f3fc411-1ef7-4917-a9a3-8622f40dc1bc"
     },
     {
       "cell_type": "code",
@@ -3027,7 +3027,7 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"traditional\")"
       ],
-      "id": "fb38d691-91b8-462b-9a36-659226fbb3fe"
+      "id": "bbdb38be-77fd-4796-8413-58637b5cab46"
     },
     {
       "cell_type": "code",
@@ -3040,7 +3040,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "summary(my_model$finalModel)$r.squared"
       ],
-      "id": "93ce3857-5dcc-47e0-bc3c-3c9dc43e80e9"
+      "id": "ff5e279a-11d0-4fca-9907-dec50eb7890d"
     },
     {
       "cell_type": "code",
@@ -3058,7 +3058,7 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"corr\")"
       ],
-      "id": "1bf95510-d185-4ce5-811a-d22991f7a729"
+      "id": "3214936e-4fd3-48ae-a239-5427d5c2cbe9"
     },
     {
       "cell_type": "code",
@@ -3072,7 +3072,7 @@
         "my_idx <- c(2, 11, 27, 34, 39, 44)\n",
         "my_sample <- my_data[my_idx, ]"
       ],
-      "id": "4acc3367-7f67-4649-8b5f-019d5cc328e8"
+      "id": "60b24eb0-3ce4-4ec7-8bf9-b45922eb5163"
     },
     {
       "cell_type": "code",
@@ -3089,7 +3089,7 @@
         "y  <- my_sample$dist\n",
         "y_ <- my_model %>% predict(my_sample)"
       ],
-      "id": "bd6e4c70-666c-4035-badb-19cc14b84694"
+      "id": "2705cc92-057f-474a-9d02-c13a13e5bdd9"
     },
     {
       "cell_type": "code",
@@ -3105,7 +3105,7 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"corr\")"
       ],
-      "id": "b1314d2d-8375-4f8a-bd99-93f03c0875e7"
+      "id": "296ffea9-761d-4617-916a-8d8ca942c5a5"
     },
     {
       "cell_type": "code",
@@ -3122,10 +3122,10 @@
         "  stat_function(fun = f, mapping = aes(color = \"model\")) +\n",
         "  coord_cartesian(ylim = c(0, 120))"
       ],
-      "id": "8e07e30b-6d65-4b91-aa4f-1802e9919e32"
+      "id": "37817d56-6d71-46c3-8574-01ca10a99cbd"
     },
     {
-      "id": "721502e2",
+      "id": "1903656b",
       "cell_type": "markdown",
       "source": "## 7.5 K\u6700\u8fd1\u508d\u6cd5",
       "metadata": {}
@@ -3147,7 +3147,7 @@
         "# \u53ef\u8996\u5316\u306e\u6e96\u5099\n",
         "f <- function(x) { my_model %>% predict(data.frame(speed = x))}"
       ],
-      "id": "30882b06-57ff-471c-a3c8-60987ab64196"
+      "id": "e19b4961-1bad-4484-ab89-15117a965a6f"
     },
     {
       "cell_type": "code",
@@ -3164,7 +3164,7 @@
         "    fun = f,\n",
         "    mapping = aes(color = \"model\"))"
       ],
-      "id": "41dd59e3-0049-444c-857a-56160d57b9be"
+      "id": "33d11de0-9116-4718-a7c7-41051ca7d22a"
     },
     {
       "cell_type": "code",
@@ -3183,10 +3183,10 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"corr\")"
       ],
-      "id": "c20446a5-3810-4472-8928-df6a44cedcba"
+      "id": "45abf296-a494-4524-9e50-235720c5e52d"
     },
     {
-      "id": "3eabb6ef",
+      "id": "85d4cb41",
       "cell_type": "markdown",
       "source": "## 7.6 \u691c\u8a3c",
       "metadata": {}
@@ -3204,7 +3204,7 @@
         "\n",
         "my_model$results"
       ],
-      "id": "6b41fad5-e67d-4f5e-a039-bd0c2d22e2ab"
+      "id": "a0f72f61-8e6d-4e33-883c-e6c28a1f7cfe"
     },
     {
       "cell_type": "code",
@@ -3216,7 +3216,7 @@
         "                  trControl = trainControl(method = \"cv\", number = 5))\n",
         "my_model$results"
       ],
-      "id": "c68f6c0d-e32d-4c56-8d15-1c27d4ff617f"
+      "id": "fb675946-ab17-44c2-bead-c09a420a5688"
     },
     {
       "cell_type": "code",
@@ -3228,7 +3228,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "my_model$results"
       ],
-      "id": "9337c163-a212-4e43-ac54-040d9f2b54ae"
+      "id": "dcba1093-8bf3-43b3-aaa3-ee60862ac738"
     },
     {
       "cell_type": "code",
@@ -3240,7 +3240,7 @@
         "cl <- makeCluster(detectCores())\n",
         "registerDoParallel(cl)"
       ],
-      "id": "9970bc34-d9ac-48ca-988e-0da325d8f878"
+      "id": "bd13db80-179f-4c4c-ba1a-810e46ec1dbb"
     },
     {
       "cell_type": "code",
@@ -3255,7 +3255,7 @@
         "y  <- my_data$dist\n",
         "y_ <- my_model %>% predict(my_data)"
       ],
-      "id": "ae927786-3f19-45d4-bbab-2529f3dbc3f1"
+      "id": "a93c85dd-e22a-4054-8579-a878209d8b17"
     },
     {
       "cell_type": "code",
@@ -3274,7 +3274,7 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"corr\")"
       ],
-      "id": "bf52cb14-bb9d-479e-9c88-c123f3e8f6e4"
+      "id": "9d01b6ce-9709-4eb6-978c-14704b8a7ad2"
     },
     {
       "cell_type": "code",
@@ -3284,7 +3284,7 @@
       "source": [
         "postResample(pred = y_, obs = y)"
       ],
-      "id": "ce477139-6b6f-402a-8ed8-916bf6c52955"
+      "id": "c6cc64b3-ff49-4beb-98c2-d229cb3241e0"
     },
     {
       "cell_type": "code",
@@ -3296,7 +3296,7 @@
         "my_model$results\n",
         "# \u5de6\u304b\u3089\uff0cRMSE\uff08\u691c\u8a3c\uff09\uff0c\u6c7a\u5b9a\u4fc2\u65706\uff08\u691c\u8a3c\uff09\uff0cMAE\uff08\u691c\u8a3c\uff09"
       ],
-      "id": "0cd34c98-b77c-4725-af60-1e1c4abdf7ea"
+      "id": "e8da6b68-7427-4cd1-b009-0c8ee07db52e"
     },
     {
       "cell_type": "code",
@@ -3315,7 +3315,7 @@
         "y_ <- my_model$pred$pred\n",
         "mean((y - y_)^2)**0.5"
       ],
-      "id": "a3dfbc2a-5da8-41bf-ad9a-0a696d45033d"
+      "id": "feca486a-a909-408c-b9b7-542ae1667db7"
     },
     {
       "cell_type": "code",
@@ -3325,7 +3325,7 @@
       "source": [
         "mean(((y - y_)^2)**0.5)"
       ],
-      "id": "0a9ea35b-ea1c-4c16-a9d4-24930bf02d47"
+      "id": "9c126027-9e43-4f87-95b2-259210e858ba"
     },
     {
       "cell_type": "code",
@@ -3344,7 +3344,7 @@
         "                      tuneGrid = data.frame(k = 5),\n",
         "                      trControl = trainControl(method = \"LOOCV\"))"
       ],
-      "id": "07a36db1-0913-4c6c-b1f1-561db8080448"
+      "id": "a0bae251-abe6-42a0-a418-e042191b5e22"
     },
     {
       "cell_type": "code",
@@ -3356,7 +3356,7 @@
         "\n",
         "my_knn_model$results$RMSE"
       ],
-      "id": "c696df10-4def-4354-990c-ce9ed3eb9c69"
+      "id": "b1942c9d-c300-4114-9414-928ecf55fba4"
     },
     {
       "cell_type": "code",
@@ -3374,7 +3374,7 @@
         "\n",
         "head(my_df)"
       ],
-      "id": "a48c27bf-6411-48c7-a68b-3836a22fe38b"
+      "id": "4c2b2e0e-6349-4b39-8d7f-8acaa66d36e9"
     },
     {
       "cell_type": "code",
@@ -3384,7 +3384,7 @@
       "source": [
         "boxplot(my_df, ylab = \"r^2\")"
       ],
-      "id": "05f2e4d1-40e0-4cb5-8966-3a860f80476b"
+      "id": "55d3fde2-c23a-4a7b-acb5-a05234729337"
     },
     {
       "cell_type": "code",
@@ -3397,10 +3397,10 @@
         "       paired = TRUE,\n",
         "       alternative = \"two.sided\")\n"
       ],
-      "id": "770d4812-f364-462d-a199-e0961f6522f4"
+      "id": "48ec3d14-6218-4102-8877-522e848729ec"
     },
     {
-      "id": "828baff1",
+      "id": "dfa14f30",
       "cell_type": "markdown",
       "source": "## 7.7 \u30d1\u30e9\u30e1\u30fc\u30bf\u30c1\u30e5\u30fc\u30cb\u30f3\u30b0",
       "metadata": {}
@@ -3417,7 +3417,7 @@
         "my_model <- train(form = dist ~ speed, data = my_data, method = \"knn\")\n",
         "my_model$results"
       ],
-      "id": "832ef6bf-0309-4897-8e95-75bef7fec0c2"
+      "id": "efa18b62-83c4-4b5a-b324-77f28f786b4c"
     },
     {
       "cell_type": "code",
@@ -3431,7 +3431,7 @@
         "                  tuneGrid = my_params,\n",
         "                  trControl = trainControl(method = \"LOOCV\"))"
       ],
-      "id": "ae454fae-f9cb-428b-86f2-c9c96da254c2"
+      "id": "61ae2d19-1912-4d86-b38a-22b3ae62ced7"
     },
     {
       "cell_type": "code",
@@ -3441,7 +3441,7 @@
       "source": [
         "head(my_model$results)"
       ],
-      "id": "0d338298-2db2-4471-8a72-11f7a39d886e"
+      "id": "60f305e5-bec7-4268-945c-13df5a80a734"
     },
     {
       "cell_type": "code",
@@ -3451,7 +3451,7 @@
       "source": [
         "ggplot(my_model)"
       ],
-      "id": "fad3e863-4da9-45ab-9092-42c5d53c0529"
+      "id": "7738fa7f-aa65-42fe-b7a3-c0630ed52dae"
     },
     {
       "cell_type": "code",
@@ -3461,7 +3461,7 @@
       "source": [
         "my_model$bestTune"
       ],
-      "id": "8ca85e58-a004-4aab-ac33-fbf693dd511a"
+      "id": "1fd4f474-8543-4b3a-ac96-ecd065eaa685"
     },
     {
       "cell_type": "code",
@@ -3472,7 +3472,7 @@
         "my_model$results %>%\n",
         "  filter(RMSE == min(RMSE))"
       ],
-      "id": "611fd657-5d4e-4f05-803a-6711a50525ae"
+      "id": "2e734a70-b539-425e-be34-f24eb11f7cc0"
     },
     {
       "cell_type": "code",
@@ -3484,7 +3484,7 @@
         "y_ <- my_model %>% predict(my_data)\n",
         "RMSE(y_, y)"
       ],
-      "id": "a6874311-0bc3-4df4-8a33-f00a384b71e0"
+      "id": "190a9b1a-0473-45f5-9ac7-0e453e4b251b"
     },
     {
       "cell_type": "code",
@@ -3509,7 +3509,7 @@
         "\n",
         "my_results <- 1:15 %>% map_dfr(my_loocv)"
       ],
-      "id": "0c7e3296-6710-4ba8-801c-f7fa9a2fab80"
+      "id": "5a585f2a-adcb-49fc-b336-9273e306625c"
     },
     {
       "cell_type": "code",
@@ -3526,7 +3526,7 @@
         "  theme(legend.position = c(1, 0),\n",
         "        legend.justification = c(1, 0))"
       ],
-      "id": "96986088-0e07-4354-af4d-f83e200261b7"
+      "id": "7daab0dc-8dd0-4a6a-83b3-2af7b3e34d03"
     },
     {
       "cell_type": "code",
@@ -3538,10 +3538,10 @@
         "stopCluster(cl)\n",
         "registerDoSEQ()"
       ],
-      "id": "4f4f7762-3e16-40bf-9a7c-d193fb96dd7c"
+      "id": "718ca744-b7d3-4fd9-8c06-01937532c887"
     },
     {
-      "id": "f2e1ae61",
+      "id": "fe57ac2c",
       "cell_type": "markdown",
       "source": "# 8 \u56de\u5e302\uff08\u91cd\u56de\u5e30\uff09",
       "metadata": {}
@@ -3560,10 +3560,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "7e679af6-d781-472f-87af-c6e929fbc00c"
+      "id": "1c18b157-ef44-4a57-8817-0694296d5630"
     },
     {
-      "id": "6ac883ec",
+      "id": "20a1b1d8",
       "cell_type": "markdown",
       "source": "## 8.1 \u30d6\u30c9\u30a6\u306e\u751f\u80b2\u6761\u4ef6\u3068\u30ef\u30a4\u30f3\u306e\u4fa1\u683c",
       "metadata": {}
@@ -3583,7 +3583,7 @@
         "                  nrows = 38)      # \u8aad\u307f\u8fbc\u3080\u884c\u6570\n",
         "psych::describe(tmp)"
       ],
-      "id": "fa4bd303-00f0-4ed9-a633-286eb6da601b"
+      "id": "9d1a19ea-58f1-4618-8f68-ef3c95b514c1"
     },
     {
       "cell_type": "code",
@@ -3594,7 +3594,7 @@
         "my_data <- na.omit(tmp[, -c(1, 2)])\n",
         "head(my_data)"
       ],
-      "id": "28673a3c-f689-4d58-819f-ac6aec9a22ee"
+      "id": "091203b3-62ec-43bf-a24f-159e756689d5"
     },
     {
       "cell_type": "code",
@@ -3604,7 +3604,7 @@
       "source": [
         "dim(my_data)"
       ],
-      "id": "f90ccd2e-ea2b-4255-ad99-fe6820d68a6c"
+      "id": "f5d64ba5-d67b-4db8-bb37-e4d094ac5e57"
     },
     {
       "cell_type": "code",
@@ -3614,7 +3614,7 @@
       "source": [
         "my_data %>% write_csv(\"wine.csv\")"
       ],
-      "id": "2bff8489-b733-459c-bcb2-c4ef8e03277f"
+      "id": "0bee77af-d3ca-4548-8b8c-eac470361879"
     },
     {
       "cell_type": "code",
@@ -3627,10 +3627,10 @@
         "                \"/fromzero/master/data/wine.csv\")\n",
         "my_data <- read_csv(my_url)"
       ],
-      "id": "e0e6c34c-bb13-4672-a963-c56edc04663a"
+      "id": "8c5142b8-c144-48ee-871e-bffea78a2731"
     },
     {
-      "id": "b3507790",
+      "id": "5926c627",
       "cell_type": "markdown",
       "source": "## 8.2 \u91cd\u56de\u5e30\u5206\u6790",
       "metadata": {}
@@ -3652,7 +3652,7 @@
         "                  method = \"lm\",\n",
         "                  trControl = trainControl(method = \"LOOCV\"))"
       ],
-      "id": "d282a84d-179a-45b3-a634-00c98f3e28ff"
+      "id": "d80d2ec5-98f4-4ed1-ba4a-eba10c872ae9"
     },
     {
       "cell_type": "code",
@@ -3663,7 +3663,7 @@
         "coef(my_model$finalModel) %>%\n",
         "  as.data.frame"
       ],
-      "id": "ac4cc812-2f43-4077-9a5a-e4d33f418855"
+      "id": "92086068-7f41-4a5d-92e0-46ab82fde451"
     },
     {
       "cell_type": "code",
@@ -3676,7 +3676,7 @@
         "  HRAIN = 120, TIME_SV = 2)\n",
         "my_model %>% predict(my_test)"
       ],
-      "id": "b5248d93-ce21-4315-a067-879e7091cc75"
+      "id": "2ff7d6d8-84dd-4f7d-a83f-8df4beeecdda"
     },
     {
       "cell_type": "code",
@@ -3695,7 +3695,7 @@
         "R2(pred = y_, obs = y,\n",
         "   form = \"corr\")"
       ],
-      "id": "c650c6ce-be2d-476b-a99f-0cc96c81fb17"
+      "id": "d6f89105-2ff6-4a75-a52c-ba950ea3264a"
     },
     {
       "cell_type": "code",
@@ -3705,7 +3705,7 @@
       "source": [
         "my_model$results"
       ],
-      "id": "35d48e29-63a6-4d03-ae56-e1cf76e7369f"
+      "id": "c721383f-0755-4820-99b0-65a2c81b136e"
     },
     {
       "cell_type": "code",
@@ -3719,10 +3719,10 @@
         "matrix(b,\n",
         "       dimnames = list(colnames(M)))"
       ],
-      "id": "628a303c-508d-4554-a561-0206b230f7ba"
+      "id": "4b92f965-26ab-4265-8af2-378dfa1d8c47"
     },
     {
-      "id": "0f68bf45",
+      "id": "fdecaf61",
       "cell_type": "markdown",
       "source": "## 8.3 \u6a19\u6e96\u5316",
       "metadata": {}
@@ -3747,7 +3747,7 @@
         "  stat_summary(fun = mean, geom = \"point\", size = 3) +\n",
         "  xlab(NULL)"
       ],
-      "id": "013a6c0c-4fca-43db-8d92-031e96c639e6"
+      "id": "8deb8402-0964-4a75-9480-535d35144963"
     },
     {
       "cell_type": "code",
@@ -3761,7 +3761,7 @@
         "  method = \"lm\",\n",
         "  preProcess = c(\"center\", \"scale\"))"
       ],
-      "id": "d39aec81-7810-4b35-80dc-02447892d9e7"
+      "id": "9631a07b-4f10-488d-b964-635c62827e6d"
     },
     {
       "cell_type": "code",
@@ -3772,7 +3772,7 @@
         "coef(my_model$finalModel) %>%\n",
         "  as.data.frame"
       ],
-      "id": "bb8345fb-0342-4aee-b4b9-e42831d41b5a"
+      "id": "e4b0caac-44fb-413c-8184-23d8eb856f86"
     },
     {
       "cell_type": "code",
@@ -3785,10 +3785,10 @@
         "  HRAIN = 120, TIME_SV = 2)\n",
         "my_model %>% predict(my_test)"
       ],
-      "id": "eb6c3473-803a-4248-840c-b697fbc31066"
+      "id": "8cebfe94-a4f2-42a9-82b2-c6bcb38f1f85"
     },
     {
-      "id": "01e1e296",
+      "id": "a554987a",
       "cell_type": "markdown",
       "source": "## 8.4 \u5165\u529b\u5909\u6570\u306e\u6570\u3068\u30e2\u30c7\u30eb\u306e\u826f\u3055",
       "metadata": {}
@@ -3810,7 +3810,7 @@
         "                               v2 = 0:(n - 1) %% 3)\n",
         "head(my_data2)"
       ],
-      "id": "b881cf61-50df-4d8f-82c7-9491cd3882e9"
+      "id": "e29a21c9-12bc-485e-b4b6-c77ca1e4d33d"
     },
     {
       "cell_type": "code",
@@ -3827,10 +3827,10 @@
         "\n",
         "my_model2$results$RMSE"
       ],
-      "id": "cc3d40e8-f1a0-4138-be59-ba1f86505041"
+      "id": "252f147b-5f72-4bc5-b56a-916e6ce7b2e6"
     },
     {
-      "id": "8bc85b26",
+      "id": "f88c66bc",
       "cell_type": "markdown",
       "source": "## 8.5 \u5909\u6570\u9078\u629e",
       "metadata": {}
@@ -3850,7 +3850,7 @@
         "my_data2 <- my_data %>% mutate(v1 = 0:(n - 1) %% 2,\n",
         "                               v2 = 0:(n - 1) %% 3)"
       ],
-      "id": "39b96691-681a-4e6e-bef4-9f086e48a806"
+      "id": "ec7ed7da-8790-46ba-9c70-aa05b42c1caa"
     },
     {
       "cell_type": "code",
@@ -3865,10 +3865,10 @@
         "                  tuneGrid = data.frame(nvmax = 1:6)) # \u9078\u629e\u3059\u308b\u5909\u6570\u306e\u4e0a\u9650\n",
         "summary(my_model$finalModel)$outmat"
       ],
-      "id": "ceb3f12a-0b4e-45d9-83a0-1c5018377e29"
+      "id": "3aa04054-2891-4a04-9749-2ed991843f8d"
     },
     {
-      "id": "26b3dd88",
+      "id": "6b2d21fe",
       "cell_type": "markdown",
       "source": "## 8.6 \u88dc\u8db3\uff1a\u6b63\u5247\u5316",
       "metadata": {}
@@ -3885,7 +3885,7 @@
         "                \"/fromzero/master/data/wine.csv\")\n",
         "my_data <- read_csv(my_url)"
       ],
-      "id": "0b810841-f4ab-4304-9e1c-fb12c696ec19"
+      "id": "25a8d212-45c5-4fe9-80f5-da408ac6bc80"
     },
     {
       "cell_type": "code",
@@ -3905,7 +3905,7 @@
         "    lambda = A,\n",
         "    alpha = B))"
       ],
-      "id": "fe384d69-6a87-4892-9785-377e04570506"
+      "id": "0b93513c-9d3e-4284-83b0-ac8d1ac0efb6"
     },
     {
       "cell_type": "code",
@@ -3915,7 +3915,7 @@
       "source": [
         "coef(my_model$finalModel, A)"
       ],
-      "id": "f382b793-3434-47d7-b310-1a14be8148f9"
+      "id": "65959db7-7e03-4f01-847b-37d822c0aa5b"
     },
     {
       "cell_type": "code",
@@ -3928,7 +3928,7 @@
         "  HRAIN = 120, TIME_SV = 2)\n",
         "my_model %>% predict(my_test)"
       ],
-      "id": "94ce5a34-bb58-4c28-af54-c4c82cca94d4"
+      "id": "b1610372-6fb1-464e-a371-41df30710065"
     },
     {
       "cell_type": "code",
@@ -3952,7 +3952,7 @@
         "  xlab(\"log A ( = log lambda)\") +\n",
         "  theme(legend.position = c(0.15, 0.25))"
       ],
-      "id": "8757f611-fe47-4fa8-885f-7257d948bb92"
+      "id": "d511ec7e-fe2f-4883-8c24-f7f715367f67"
     },
     {
       "cell_type": "code",
@@ -3970,7 +3970,7 @@
         "\n",
         "my_model$bestTune"
       ],
-      "id": "ca5c3821-07b6-4340-ab31-a3a272337059"
+      "id": "c36f31fc-1683-408b-bc5d-add2b72bfadc"
     },
     {
       "cell_type": "code",
@@ -3984,7 +3984,7 @@
         "  xlab(\"A ( = lambda)\") +\n",
         "  guides(shape = guide_legend(tmp), color = guide_legend(tmp))"
       ],
-      "id": "8c169106-2f91-44ac-8517-4628016b37ee"
+      "id": "45dcb0d5-8f51-43ea-b299-d5dc7cc286b0"
     },
     {
       "cell_type": "code",
@@ -3995,10 +3995,10 @@
         "my_model$results %>%\n",
         "  filter(RMSE == min(RMSE))"
       ],
-      "id": "3d198c4c-4475-4718-a1fe-958bfee4f9bc"
+      "id": "edf77cf8-1100-4acc-93cc-09cdd4c23056"
     },
     {
-      "id": "df296192",
+      "id": "352609d4",
       "cell_type": "markdown",
       "source": "## 8.7 \u30cb\u30e5\u30fc\u30e9\u30eb\u30cd\u30c3\u30c8\u30ef\u30fc\u30af",
       "metadata": {}
@@ -4011,7 +4011,7 @@
       "source": [
         "curve(1 / (1 + exp(-x)), -6, 6)"
       ],
-      "id": "e57a8508-d872-4f24-a10b-4b6961b0dce7"
+      "id": "13d428fa-107b-4310-b9da-8e0d37d3cbe1"
     },
     {
       "cell_type": "code",
@@ -4025,7 +4025,7 @@
         "                \"/fromzero/master/data/wine.csv\")\n",
         "my_data <- read_csv(my_url)"
       ],
-      "id": "7e550047-aca3-4023-bed6-e4ea99fdea78"
+      "id": "df29fbde-bd26-41f3-9796-8d7e2dab5a25"
     },
     {
       "cell_type": "code",
@@ -4040,7 +4040,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "plot(my_model$finalModel) # \u8a13\u7df4\u6e08\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306e\u63cf\u753b"
       ],
-      "id": "8ca7d554-a106-49ca-a503-81db29147468"
+      "id": "4007156f-1ee3-4d38-af01-83d087265cdc"
     },
     {
       "cell_type": "code",
@@ -4050,7 +4050,7 @@
       "source": [
         "my_model$results"
       ],
-      "id": "b622064e-c1f7-46d7-8b13-b6dbb8b0c244"
+      "id": "da77399a-d60b-4e16-803a-397039349285"
     },
     {
       "cell_type": "code",
@@ -4068,7 +4068,7 @@
         "                         layer2 = 0:2,\n",
         "                         layer3 = 0))"
       ],
-      "id": "29705056-fdcd-4cd0-a7a6-ff5a67adbea8"
+      "id": "2c8f46be-2099-4695-8b64-84ad9d5e2b40"
     },
     {
       "cell_type": "code",
@@ -4079,10 +4079,10 @@
         "my_model$results %>%\n",
         "  filter(RMSE == min(RMSE))"
       ],
-      "id": "27e73403-8ee1-4786-99c9-416d3ce0be13"
+      "id": "b03877bf-80dc-4bf0-ba4f-d58e65109133"
     },
     {
-      "id": "749b3362",
+      "id": "e4fcdbaf",
       "cell_type": "markdown",
       "source": "# 9 \u5206\u985e1\uff08\u591a\u5024\u5206\u985e\uff09",
       "metadata": {}
@@ -4101,10 +4101,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "48e27967-6bec-4d52-9979-3f5b2f4e25ec"
+      "id": "8a895e9e-0a6c-433d-863f-d5e3d8e8194a"
     },
     {
-      "id": "b915558d",
+      "id": "170e3584",
       "cell_type": "markdown",
       "source": "## 9.1 \u30a2\u30e4\u30e1\u306e\u30c7\u30fc\u30bf",
       "metadata": {}
@@ -4118,7 +4118,7 @@
         "my_data <- iris\n",
         "head(my_data)"
       ],
-      "id": "fb1bc02b-f881-403b-aa96-c576d84318a0"
+      "id": "5a5a001c-0ab1-4a65-83da-95a5abcf15e8"
     },
     {
       "cell_type": "code",
@@ -4128,10 +4128,10 @@
       "source": [
         "psych::describe(my_data)"
       ],
-      "id": "ca83c7f9-1137-4c83-95db-cb9fd4422024"
+      "id": "bfeda978-87c6-4bd0-ab59-926bc195a360"
     },
     {
-      "id": "b8b8ac07",
+      "id": "40484933",
       "cell_type": "markdown",
       "source": "## 9.2 \u6728\u306b\u3088\u308b\u5206\u985e",
       "metadata": {}
@@ -4147,7 +4147,7 @@
         "my_data <- iris\n",
         "my_model <- train(form = Species ~ ., data = my_data, method = \"rpart\")"
       ],
-      "id": "ce502935-f174-4484-a242-995914ad6042"
+      "id": "a1620c24-f632-4143-9987-d69f7ffc2e0a"
     },
     {
       "cell_type": "code",
@@ -4157,7 +4157,7 @@
       "source": [
         "rpart.plot::rpart.plot(my_model$finalModel, extra = 1)"
       ],
-      "id": "8ef7c952-5cf6-4551-88c4-e0d5cbe4b92c"
+      "id": "2d9269a2-878b-4017-a32b-887c1a2c7738"
     },
     {
       "cell_type": "code",
@@ -4172,7 +4172,7 @@
         "\n",
         "my_model %>% predict(my_test)"
       ],
-      "id": "596918a6-17e7-4a9e-8c2a-2251adc5c8c6"
+      "id": "2cc67a8a-8ce0-49a4-b7d9-209e37f12d3a"
     },
     {
       "cell_type": "code",
@@ -4183,10 +4183,10 @@
         "my_model %>% predict(my_test,\n",
         "                     type = \"prob\")"
       ],
-      "id": "0fe2fbe9-ff4a-4118-8c1d-8373fb98d1c2"
+      "id": "fe8b23b2-7399-45b5-b0be-f8a0450f7410"
     },
     {
-      "id": "77c8e103",
+      "id": "1fb8d908",
       "cell_type": "markdown",
       "source": "## 9.3 \u6b63\u89e3\u7387",
       "metadata": {}
@@ -4207,7 +4207,7 @@
         "confusionMatrix(data = y_, reference = y)\n",
         "# \u4ee5\u4e0b\u306f\u5272\u611b"
       ],
-      "id": "63497b04-410e-4ea5-a7aa-2a5b8c47ae08"
+      "id": "eee7955c-5eb7-4d30-8d93-b274b818b868"
     },
     {
       "cell_type": "code",
@@ -4219,7 +4219,7 @@
         "y_ <- my_model %>% predict(my_data)\n",
         "mean(y_ == y)"
       ],
-      "id": "51492213-1aa3-4707-864d-c621c3adc526"
+      "id": "af361aa3-aa43-4ca4-96ac-4c96e1ef58bd"
     },
     {
       "cell_type": "code",
@@ -4231,7 +4231,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "my_model$results"
       ],
-      "id": "9c331bb9-6781-4a7e-bf96-ae0c33967671"
+      "id": "f796a046-c764-4195-aa12-e5a8ebc5f063"
     },
     {
       "cell_type": "code",
@@ -4244,7 +4244,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "my_model$results %>% filter(Accuracy == max(Accuracy))"
       ],
-      "id": "84031fb5-d16d-4c0c-8b17-90f677baead5"
+      "id": "ec7c6db8-f311-4ac4-b4d4-653a252c2520"
     },
     {
       "cell_type": "code",
@@ -4266,7 +4266,7 @@
         "       Accuracy = my_model$results$Accuracy)\n",
         "}"
       ],
-      "id": "0acb36d9-800d-4a3b-b03d-160e2322cc61"
+      "id": "b10e6c14-9100-4293-b7f6-08414b8e2105"
     },
     {
       "cell_type": "code",
@@ -4286,7 +4286,7 @@
         "\n",
         "my_results %>% filter(Accuracy == max(Accuracy)) # \u6b63\u89e3\u7387\uff08\u691c\u8a3c\uff09\u306e\u6700\u5927\u5024"
       ],
-      "id": "3bdcb728-92e5-4184-a224-0de39d0b2285"
+      "id": "7140f3d5-6ada-4b0c-a04f-d302e0c3be17"
     },
     {
       "cell_type": "code",
@@ -4301,7 +4301,7 @@
         "                                                 minbucket = 5,\n",
         "                                                 minsplit = 2))"
       ],
-      "id": "e787bf8e-71f3-4a6f-9dc3-0b1ad802fdfd"
+      "id": "8b535983-5fe1-4b90-90ae-0c33366a14d6"
     },
     {
       "cell_type": "code",
@@ -4312,10 +4312,10 @@
         "rpart.plot::rpart.plot(\n",
         "  my_model$finalModel, extra = 1)"
       ],
-      "id": "3c1a91b9-565b-444b-8978-36542e19844c"
+      "id": "dd760ded-639e-415c-8d28-ea5bf066ca44"
     },
     {
-      "id": "22a7c13d",
+      "id": "ea96e629",
       "cell_type": "markdown",
       "source": "## 9.4 \u8907\u6570\u306e\u6728\u3092\u4f7f\u3046\u65b9\u6cd5",
       "metadata": {}
@@ -4335,7 +4335,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "my_model$results"
       ],
-      "id": "fe1ea604-1527-4cd3-af07-5aa824d4d4a1"
+      "id": "f1829f74-6802-4adb-8535-0387d99bafdc"
     },
     {
       "cell_type": "code",
@@ -4356,7 +4356,7 @@
         "  trControl = trainControl(method = \"cv\", number = 5)) # 5\u5206\u5272\u4ea4\u5dee\u691c\u8a3c\n",
         "my_model$results %>% filter(Accuracy == max(Accuracy)) %>% head(5) %>% t"
       ],
-      "id": "7927ebd4-35ce-4bea-8606-57d0e08a6659"
+      "id": "4c689c76-b84e-4219-be03-244c58fda649"
     },
     {
       "cell_type": "code",
@@ -4367,10 +4367,10 @@
         "my_model <- train(form = Species ~ ., data = my_data, method = \"rf\")\n",
         "ggplot(varImp(my_model))"
       ],
-      "id": "98aac62c-7686-43b0-b7f7-036f26ce9a22"
+      "id": "884afe0a-8d58-4d4d-b9ff-0e0ca635398d"
     },
     {
-      "id": "fe520390",
+      "id": "88aa8e0d",
       "cell_type": "markdown",
       "source": "## 9.5 \u6b20\u640d\u306e\u3042\u308b\u30c7\u30fc\u30bf\u3067\u306e\u5b66\u7fd2",
       "metadata": {}
@@ -4391,7 +4391,7 @@
         "\n",
         "psych::describe(my_data) # n\u306e\u5024\u304c135\u306e\u5909\u6570\u306b\uff0c150 - 135 = 15\u500b\u306e\u6b20\u640d\u304c\u3042\u308b\uff0e"
       ],
-      "id": "18b14551-fb0e-43c1-9f35-b80efe7cfb10"
+      "id": "831e3f46-3e5d-4061-8da1-3db486f81c0a"
     },
     {
       "cell_type": "code",
@@ -4409,7 +4409,7 @@
         "                                 minbucket = 1)) # \u7d42\u7aef\u30ce\u30fc\u30c9\u306e\u6761\u4ef6\n",
         "max(my_model$results$Accuracy)"
       ],
-      "id": "789f480c-ec98-4b69-aff8-5b3e985a69f9"
+      "id": "af45e1f5-ff4a-4438-ac5e-da6d56bbe919"
     },
     {
       "cell_type": "code",
@@ -4422,10 +4422,10 @@
         "                  trControl = trainControl(method = \"cv\", number = 5))\n",
         "max(my_model$results$Accuracy)"
       ],
-      "id": "e226a0f7-6c4c-4405-b97a-394195e49432"
+      "id": "994c8c75-9898-451a-a84f-056546af9095"
     },
     {
-      "id": "cd43c315",
+      "id": "75319d18",
       "cell_type": "markdown",
       "source": "## 9.6 \u4ed6\u306e\u5206\u985e\u624b\u6cd5",
       "metadata": {}
@@ -4444,7 +4444,7 @@
         "                  trControl = trainControl(method = \"LOOCV\"))\n",
         "my_model$results %>% filter(Accuracy == max(Accuracy))"
       ],
-      "id": "cd665093-c396-41fa-bc5a-fa5fb86915da"
+      "id": "2f130466-b390-48a2-9ca4-d429ad3a49f7"
     },
     {
       "cell_type": "code",
@@ -4462,10 +4462,10 @@
         "                  trace = FALSE) # \u9014\u4e2d\u7d4c\u904e\u3092\u8868\u793a\u3057\u306a\u3044\n",
         "my_model$results %>% filter(Accuracy == max(Accuracy))"
       ],
-      "id": "f95f93d0-f76a-429c-8fa3-b58a8ec4eace"
+      "id": "cfe2ebe0-b16c-485b-b6df-82c85a8fdab1"
     },
     {
-      "id": "ce66d3d6",
+      "id": "f72a62f7",
       "cell_type": "markdown",
       "source": "# 10 \u5206\u985e2\uff082\u5024\u5206\u985e\uff09",
       "metadata": {}
@@ -4484,10 +4484,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "2e7a032a-81c9-484d-a43f-8dfa1b98459a"
+      "id": "9b0fa8cc-2cc9-452e-ac94-7739322199c1"
     },
     {
-      "id": "028161a1",
+      "id": "f4b0e2fe",
       "cell_type": "markdown",
       "source": "## 10.1 2\u5024\u5206\u985e\u306e\u6027\u80fd\u6307\u6a19",
       "metadata": {}
@@ -4501,7 +4501,7 @@
         "y       <- c(  0,   1,   1,   0,   1,   0,    1,   0,   0,   1)\n",
         "y_score <- c(0.7, 0.8, 0.3, 0.4, 0.9, 0.6, 0.99, 0.1, 0.2, 0.5)"
       ],
-      "id": "54874597-32fa-46c4-be29-9d86249b4e29"
+      "id": "f25134cc-05a6-4c61-9ee2-b97b9eefb557"
     },
     {
       "cell_type": "code",
@@ -4512,7 +4512,7 @@
         "y_ <- ifelse(0.5 <= y_score, 1, 0)\n",
         "y_"
       ],
-      "id": "2d3641e7-0f65-4c9a-98ad-016bcc927309"
+      "id": "b7c2f6c9-d48f-4b42-973a-f64e1dcb1408"
     },
     {
       "cell_type": "code",
@@ -4526,10 +4526,10 @@
         "                positive = \"1\",            # \u300c1\u300d\u3092\u967d\u6027\u3068\u3059\u308b\uff0e\n",
         "                mode = \"everything\")       # \u5168\u3066\u306e\u6307\u6a19\u3092\u6c42\u3081\u308b\uff0e"
       ],
-      "id": "f2877df8-5092-41b9-931a-35b035549139"
+      "id": "db7a3cf7-0e63-463e-8e90-1da67b60b029"
     },
     {
-      "id": "770a83b8",
+      "id": "8a8e610f",
       "cell_type": "markdown",
       "source": "## 10.2 \u30c8\u30ec\u30fc\u30c9\u30aa\u30d5",
       "metadata": {}
@@ -4550,7 +4550,7 @@
         "c(sum((y == 0) & (y_ == 1)) / sum(y == 0), # FPR\n",
         "  sum((y == 1) & (y_ == 1)) / sum(y == 1)) # TPR"
       ],
-      "id": "6f6d8648-29ae-4983-9f28-13419877d698"
+      "id": "0e1cb64d-36df-49ca-b307-e0b20744051b"
     },
     {
       "cell_type": "code",
@@ -4565,7 +4565,7 @@
         "                ylab = \"True Positive Rate\",\n",
         "                legend = FALSE)"
       ],
-      "id": "6157d58d-ded4-48e1-96e9-6231efba475b"
+      "id": "db631367-9dc1-46b3-a79f-09ee270a073b"
     },
     {
       "cell_type": "code",
@@ -4575,7 +4575,7 @@
       "source": [
         "my_roc$auc"
       ],
-      "id": "22de4054-2715-47c5-b002-5936dbc1292d"
+      "id": "35d72298-5833-457a-bdd1-7e8bb8ba7f6c"
     },
     {
       "cell_type": "code",
@@ -4586,7 +4586,7 @@
         "c(sum((y == 1) & (y_ == 1)) / sum(y  == 1), # Recall == TPR\n",
         "  sum((y == 1) & (y_ == 1)) / sum(y_ == 1)) # Precision"
       ],
-      "id": "10b47b7d-abdc-49a0-ad05-9ab6b076e1c6"
+      "id": "1965a2c2-2417-4e61-a6dd-439557afc8a0"
     },
     {
       "cell_type": "code",
@@ -4601,7 +4601,7 @@
         "               ylab = \"Precision\",\n",
         "               legend = FALSE)"
       ],
-      "id": "3bd1f29d-eebc-4fed-bd79-022b8bda3b38"
+      "id": "8ff4f2e1-b54b-4ace-a672-523d32dd48f7"
     },
     {
       "cell_type": "code",
@@ -4611,10 +4611,10 @@
       "source": [
         "my_pr$auc.integral"
       ],
-      "id": "0cd5be13-1036-4f81-aff5-e11adf8f5b5d"
+      "id": "e55358f6-7b57-465c-ab0c-8241ce69df38"
     },
     {
-      "id": "22b547e1",
+      "id": "0b6b3fca",
       "cell_type": "markdown",
       "source": "## 10.3 \u30bf\u30a4\u30bf\u30cb\u30c3\u30af",
       "metadata": {}
@@ -4633,7 +4633,7 @@
         "                \"/fromzero/master/data/titanic.csv\")\n",
         "my_data <- read_csv(my_url)"
       ],
-      "id": "e4fdbebc-6404-4842-b413-983c450e1d88"
+      "id": "b153de30-5e8d-43bf-b049-7257bacae8b4"
     },
     {
       "cell_type": "code",
@@ -4643,7 +4643,7 @@
       "source": [
         "head(my_data)"
       ],
-      "id": "af7016f1-6bfe-4d2a-a36e-68aa5f62e87d"
+      "id": "4d8fcb72-aee4-48b1-8dc3-1b3dffe16cfd"
     },
     {
       "cell_type": "code",
@@ -4655,7 +4655,7 @@
         "                  tuneGrid = data.frame(maxdepth = 2),\n",
         "                  trControl = trainControl(method = \"LOOCV\"))"
       ],
-      "id": "f0d77dc9-5e6c-4095-8f6b-2c9d4019faff"
+      "id": "f1eb2b30-b928-4f4b-b3e9-a0f44cb15636"
     },
     {
       "cell_type": "code",
@@ -4665,7 +4665,7 @@
       "source": [
         "rpart.plot::rpart.plot(my_model$finalModel, extra = 1)"
       ],
-      "id": "ca7c5c4d-f11c-4a38-908d-e193453c1c2d"
+      "id": "49736f9f-d3f5-4e7c-b5c6-3480ad5daca0"
     },
     {
       "cell_type": "code",
@@ -4675,7 +4675,7 @@
       "source": [
         "my_model$results"
       ],
-      "id": "d56839ed-552c-41fb-abdf-a6f2b61e486f"
+      "id": "6289c409-1387-444c-8a87-35a457e78d07"
     },
     {
       "cell_type": "code",
@@ -4696,7 +4696,7 @@
         "                ylab = \"True Positive Rate\",\n",
         "                legend = FALSE)"
       ],
-      "id": "f962ee8d-d7a8-4546-b37f-ec424e4e8a7d"
+      "id": "422f1497-4423-43fb-8a7e-45e4114fe66f"
     },
     {
       "cell_type": "code",
@@ -4716,7 +4716,7 @@
         "rpart.plot::rpart.plot(my_model1$finalModel, extra = 1)\n",
         "my_model1$results"
       ],
-      "id": "8c3534c6-55e1-43cf-bc21-37793050d8d9"
+      "id": "c074a8b7-1703-4cb2-a002-4e524c66b541"
     },
     {
       "cell_type": "code",
@@ -4736,7 +4736,7 @@
         "rpart.plot::rpart.plot(my_model2$finalModel, extra = 1)\n",
         "my_model2$results"
       ],
-      "id": "5c1b1e58-d7aa-423c-a0d7-14aba1dd6d8f"
+      "id": "66e9b368-0134-4acb-bf21-73af5a13b707"
     },
     {
       "cell_type": "code",
@@ -4750,10 +4750,10 @@
         "rpart.plot::rpart.plot(my_model3$finalModel, extra = 1)\n",
         "my_model3$results"
       ],
-      "id": "ea52c953-11c4-464d-907d-4c723651b1c3"
+      "id": "93fad7d6-0022-446f-b970-cd847ecb57b1"
     },
     {
-      "id": "f5cffa2a",
+      "id": "1ebfff2f",
       "cell_type": "markdown",
       "source": "## 10.4 \u30ed\u30b8\u30b9\u30c6\u30a3\u30c3\u30af\u56de\u5e30",
       "metadata": {}
@@ -4766,7 +4766,7 @@
       "source": [
         "curve(1 / (1 + exp(-x)), -6, 6)"
       ],
-      "id": "859324bd-1498-4ba3-8fbd-34b24dd5cf4f"
+      "id": "3a7efec6-5551-432c-8ca4-18f9674c6fa2"
     },
     {
       "cell_type": "code",
@@ -4785,7 +4785,7 @@
         "my_model <- train(form = Survived ~ ., data = my_data, method = \"glm\",\n",
         "                  trControl = trainControl(method = \"LOOCV\"))"
       ],
-      "id": "e43cd680-d3ce-4251-b574-7443ca8d1015"
+      "id": "2e9fe69c-5b81-45ff-9049-762e99b76daf"
     },
     {
       "cell_type": "code",
@@ -4796,7 +4796,7 @@
         "coef(my_model$finalModel) %>%\n",
         "  as.data.frame"
       ],
-      "id": "d75884f1-b2a6-4d2e-a85e-305a6aeed862"
+      "id": "f4672cdd-bdf6-46c8-9389-1eca0b24ad9d"
     },
     {
       "cell_type": "code",
@@ -4806,10 +4806,10 @@
       "source": [
         "my_model$results"
       ],
-      "id": "ad88383f-4ea9-4de9-a053-6aac47a46596"
+      "id": "837501e4-fc86-4160-aa53-d16a631a99c2"
     },
     {
-      "id": "6b2153c8",
+      "id": "e33ca120",
       "cell_type": "markdown",
       "source": "# 11 \u6df1\u5c64\u5b66\u7fd2\u3068AutoML",
       "metadata": {}
@@ -4828,10 +4828,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "8485cb60-92ea-4821-8fd9-cf4d860a677d"
+      "id": "fe4601cb-2858-47c2-85de-2a42245f958c"
     },
     {
-      "id": "49e2fbd2",
+      "id": "bb8e4cd1",
       "cell_type": "markdown",
       "source": "## 11.1 Keras\u306b\u3088\u308b\u56de\u5e30",
       "metadata": {}
@@ -4852,7 +4852,7 @@
         "                \"/fromzero/master/data/wine.csv\")\n",
         "tmp <- read_csv(my_url)"
       ],
-      "id": "85eaef95-cbc3-4b06-803b-39ae2406b9e0"
+      "id": "e3ddf3c4-4f3c-4fc1-8ba1-abea16d830bc"
     },
     {
       "cell_type": "code",
@@ -4862,7 +4862,7 @@
       "source": [
         "my_data <- tmp[sample(nrow(tmp)), ]"
       ],
-      "id": "72199214-0848-486d-bb19-90764e0a438e"
+      "id": "5507bbf1-790d-4258-9b0c-2958fdca305a"
     },
     {
       "cell_type": "code",
@@ -4874,7 +4874,7 @@
         "  select(-LPRICE2) %>% scale\n",
         "y <- my_data$LPRICE2"
       ],
-      "id": "ce9a517b-b8e8-4dd4-bff6-1bd4c312ee7a"
+      "id": "864ca0b8-c65c-4d2d-ae27-5ab61f61f56c"
     },
     {
       "cell_type": "code",
@@ -4884,7 +4884,7 @@
       "source": [
         "curve(activation_relu(x), -3, 3)"
       ],
-      "id": "dd2a5947-56f9-467e-8d93-1db5790733bc"
+      "id": "182ad664-6f8b-408a-abf8-3b5de5e844bb"
     },
     {
       "cell_type": "code",
@@ -4899,7 +4899,7 @@
         "summary(my_model) # \u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306e\u6982\u8981\n",
         "# \u5272\u611b\uff08Python\u306e\u7d50\u679c\u3092\u53c2\u7167\uff09"
       ],
-      "id": "caf0ecb2-4df7-4731-9950-3a6483e4e890"
+      "id": "a5533009-e822-4574-8caa-14be9418fdae"
     },
     {
       "cell_type": "code",
@@ -4911,7 +4911,7 @@
         "  loss = \"mse\",\n",
         "  optimizer = \"rmsprop\")"
       ],
-      "id": "64df975b-0ba7-4324-9584-5be51b8722cc"
+      "id": "b73d79ab-d3e8-454e-a45b-922e257f8dfd"
     },
     {
       "cell_type": "code",
@@ -4923,7 +4923,7 @@
         "  patience = 20,\n",
         "  restore_best_weights = TRUE)"
       ],
-      "id": "348a93b0-5679-46ca-991d-42920879f234"
+      "id": "24b41126-c71b-42e5-bfce-6393bb70d943"
     },
     {
       "cell_type": "code",
@@ -4940,7 +4940,7 @@
         "    callbacks = list(my_cb),\n",
         "    verbose = 0)"
       ],
-      "id": "420281f8-4ce9-467c-bba7-87095e7a3c8c"
+      "id": "cc700273-6615-422e-9477-d12d492ce178"
     },
     {
       "cell_type": "code",
@@ -4950,7 +4950,7 @@
       "source": [
         "plot(my_history)"
       ],
-      "id": "4eda2888-f58d-4978-ae54-a5462e6320d4"
+      "id": "25197eda-41bb-48d1-9e94-95c0ae49daa6"
     },
     {
       "cell_type": "code",
@@ -4960,7 +4960,7 @@
       "source": [
         "my_history"
       ],
-      "id": "40c8ce28-3879-499b-beda-39a2edc1a4a9"
+      "id": "4e35773a-d5ea-46a2-ae7f-edf08c2022ce"
     },
     {
       "cell_type": "code",
@@ -4971,10 +4971,10 @@
         "y_ <- my_model %>% predict(X)\n",
         "mean((y_ - y)^2)**0.5"
       ],
-      "id": "ba4336bf-136b-40c0-9357-9b757c608ac9"
+      "id": "0c51ea62-e6fc-4405-a56e-b96115ef0097"
     },
     {
-      "id": "60fcbb78",
+      "id": "bda572fc",
       "cell_type": "markdown",
       "source": "## 11.2 Keras\u306b\u3088\u308b\u5206\u985e",
       "metadata": {}
@@ -4993,7 +4993,7 @@
         "library(tidyverse)\n",
         "my_data <- iris[sample(nrow(iris)), ]"
       ],
-      "id": "611224a7-b098-4eb2-ad4c-af2415b57be0"
+      "id": "5a7eb302-74ef-48c6-9f04-867d1b66d530"
     },
     {
       "cell_type": "code",
@@ -5005,7 +5005,7 @@
         "  select(-Species) %>% scale\n",
         "y <- as.integer(my_data$Species) - 1"
       ],
-      "id": "813db9ea-c8c5-4db1-8447-e285f64e7254"
+      "id": "1bd97ec7-0d3c-454d-bca6-7fb480177d73"
     },
     {
       "cell_type": "code",
@@ -5017,7 +5017,7 @@
         "  layer_dense(units = 3, activation = \"relu\", input_shape = c(4)) %>%\n",
         "  layer_dense(units = 3, activation = \"softmax\")"
       ],
-      "id": "c971a5b0-8793-41de-91c4-eb32bc9ed2a4"
+      "id": "6f5445f4-44e4-477c-93b1-2bb0a01d9e3a"
     },
     {
       "cell_type": "code",
@@ -5029,7 +5029,7 @@
         "                     optimizer = \"rmsprop\",\n",
         "                     metrics = c(\"accuracy\"))"
       ],
-      "id": "0d0addee-d054-48dd-98ef-225ab4035ab9"
+      "id": "5199a319-050e-4be4-b12e-da2ff4b2322c"
     },
     {
       "cell_type": "code",
@@ -5052,7 +5052,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "fd51b47e-d612-4e4c-ad8c-a64bf088b7dc"
+      "id": "73fa5bbf-b6e8-42b1-b65f-760da5a62a0f"
     },
     {
       "cell_type": "code",
@@ -5062,7 +5062,7 @@
       "source": [
         "my_history"
       ],
-      "id": "7571991e-0e13-4aa3-9311-aa8f7ebbb1f5"
+      "id": "40ffd5ad-24e9-49e7-8818-82374b0c132c"
     },
     {
       "cell_type": "code",
@@ -5074,7 +5074,7 @@
         "y_ <- apply(tmp, 1, which.max) - 1\n",
         "mean(y_ == y)"
       ],
-      "id": "ceadf286-458c-478f-b605-b77949393697"
+      "id": "76816b7d-ed4d-46f5-996f-27bcb0965f0b"
     },
     {
       "cell_type": "code",
@@ -5086,7 +5086,7 @@
         "\n",
         "-mean(log(c(0.7, 0.6, 0.2, 0.7)))"
       ],
-      "id": "e1b7f2b9-59b3-4f91-9637-d03d9214481b"
+      "id": "8a4ee9f6-e4f1-4b95-aea0-f155f6be1e39"
     },
     {
       "cell_type": "code",
@@ -5104,7 +5104,7 @@
         "             c(0.2, 0.5, 0.3),\n",
         "             c(0.2, 0.7, 0.1))"
       ],
-      "id": "093f5a8a-cb82-407b-b2e9-b39473727fa4"
+      "id": "333d1488-5868-4372-8f1a-ec97eb6be7f3"
     },
     {
       "cell_type": "code",
@@ -5115,10 +5115,10 @@
         "c(mean(as.array(loss_sparse_categorical_crossentropy(y_true = y, y_pred = y_1))),\n",
         "  mean(as.array(loss_sparse_categorical_crossentropy(y_true = y, y_pred = y_2))))"
       ],
-      "id": "8435214b-e310-47c0-a289-4c92523dd621"
+      "id": "92d22c48-a0da-4aa6-a6d2-6f687f2a65a9"
     },
     {
-      "id": "7bf6fa1e",
+      "id": "0accf792",
       "cell_type": "markdown",
       "source": "## 11.3 MNIST\uff1a\u624b\u66f8\u304d\u6570\u5b57\u306e\u5206\u985e",
       "metadata": {}
@@ -5131,13 +5131,15 @@
       "source": [
         "if (Sys.getenv(\"COLAB_JUPYTER_IP\") != \"\") {\n",
         "  library(keras3)\n",
+        "  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
         "} else {\n",
         "  library(keras)\n",
+        "  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
         "}\n",
-        "library(tidyverse)\n",
-        "c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()"
+        "# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
+        "library(tidyverse)"
       ],
-      "id": "132fe8c4-d42f-45fc-a4c7-e64bd475adad"
+      "id": "c0293063-0ec2-4258-b675-2f798ec56e34"
     },
     {
       "cell_type": "code",
@@ -5147,7 +5149,7 @@
       "source": [
         "dim(x_train)"
       ],
-      "id": "5f116f1e-ff06-4da0-b3c5-29d69575a4f5"
+      "id": "661b69aa-25c8-46a8-b858-f7bbfe7831aa"
     },
     {
       "cell_type": "code",
@@ -5157,7 +5159,7 @@
       "source": [
         "x_train[5, , ]"
       ],
-      "id": "0914a8c4-6f82-44c5-8b98-5baefc37f2ae"
+      "id": "c3e9f875-bbc7-4b7e-96bf-dc2cba1b4a4c"
     },
     {
       "cell_type": "code",
@@ -5168,7 +5170,7 @@
         "plot(as.raster(x = x_train[5, , ],\n",
         "               max = max(x_train)))"
       ],
-      "id": "751bc0d0-1548-4b7a-bb89-12ceef60af4b"
+      "id": "c9b343ff-8dde-47e9-a937-fd71ded7e0ca"
     },
     {
       "cell_type": "code",
@@ -5178,7 +5180,7 @@
       "source": [
         "head(y_train)"
       ],
-      "id": "c11687d9-50ca-4b38-ad21-2deb691788cb"
+      "id": "1af6009a-b093-40de-a376-54739b264ba6"
     },
     {
       "cell_type": "code",
@@ -5188,7 +5190,7 @@
       "source": [
         "c(min(x_train), max(x_train))"
       ],
-      "id": "ad5d847a-46cc-499a-8fe7-c4b2489c71cb"
+      "id": "23b5c9c3-33dc-47aa-9234-11429f413841"
     },
     {
       "cell_type": "code",
@@ -5199,7 +5201,7 @@
         "x_train <- x_train / 255\n",
         "x_test  <- x_test  / 255"
       ],
-      "id": "14b9cd41-2477-41b0-bd5b-70cdabe0b263"
+      "id": "fdc4cb69-dfa8-44e8-b8d2-e163ec6fb08d"
     },
     {
       "cell_type": "code",
@@ -5211,7 +5213,7 @@
         "x_train <- x_train[my_index, , ]\n",
         "y_train <- y_train[my_index]"
       ],
-      "id": "90e8332c-0c31-4721-9170-f2fae5c62a54"
+      "id": "1919c3a0-e1b7-4545-b358-b79fe8b69438"
     },
     {
       "cell_type": "code",
@@ -5233,7 +5235,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "2176a084-07a7-40e2-85fc-6729be228262"
+      "id": "5698c01e-4dea-4613-9505-bee0ce35fa55"
     },
     {
       "cell_type": "code",
@@ -5252,7 +5254,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "6f57a2c1-1e59-4005-bb3c-49071b9ba35e"
+      "id": "275d98eb-39aa-4995-810c-6cb808b52d72"
     },
     {
       "cell_type": "code",
@@ -5264,7 +5266,7 @@
         "y_ <- apply(tmp, 1, which.max) - 1\n",
         "table(y_, y_test)"
       ],
-      "id": "4626478b-7eb1-4b39-ab11-2bc4707adb53"
+      "id": "2bb3b719-5259-4899-b206-3f92a57051d5"
     },
     {
       "cell_type": "code",
@@ -5272,7 +5274,7 @@
       "metadata": {},
       "outputs": [],
       "source": [],
-      "id": "85d68760-129f-4d09-a911-267ef7295ee2"
+      "id": "66b6cca7-47de-4885-8604-a1deae1d3260"
     },
     {
       "cell_type": "code",
@@ -5282,7 +5284,7 @@
       "source": [
         "mean(y_ == y_test)"
       ],
-      "id": "d9566f6b-e7bc-4dbb-950c-9b6e248b40b8"
+      "id": "9e4636a7-95e5-4edb-ab49-ed8fda9d2019"
     },
     {
       "cell_type": "code",
@@ -5293,7 +5295,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test, y = y_test)"
       ],
-      "id": "d4cd87e8-ce83-4a72-bfdd-b58662ae732d"
+      "id": "6d48302f-191a-4863-ab52-11f0b3c9ae2e"
     },
     {
       "cell_type": "code",
@@ -5304,7 +5306,7 @@
         "x_train2d <- x_train %>% array_reshape(c(-1, 28, 28, 1))\n",
         "x_test2d  <- x_test  %>% array_reshape(c(-1, 28, 28, 1))"
       ],
-      "id": "3dfe54ad-15d4-4e1e-9c23-5a5add0e7a2e"
+      "id": "da519e8e-141a-41dd-aad8-17d4c3615341"
     },
     {
       "cell_type": "code",
@@ -5331,7 +5333,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "63fcd198-d1cc-430a-ad36-b42e59465138"
+      "id": "5c40d86c-dae3-4fa1-9a14-a0af6daaad59"
     },
     {
       "cell_type": "code",
@@ -5350,7 +5352,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "66a478a1-b8c5-428c-8d81-e292078622cf"
+      "id": "897ec1a3-2ee1-47ff-b1af-32322c786aa7"
     },
     {
       "cell_type": "code",
@@ -5361,7 +5363,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test2d, y = y_test)"
       ],
-      "id": "be9428fa-ebb6-4dd7-aa0f-3a26913899c9"
+      "id": "d89f8ff1-e95f-4f74-86fc-41aa29eb1e5b"
     },
     {
       "cell_type": "code",
@@ -5389,7 +5391,7 @@
         "my_cb <- callback_early_stopping(patience = 5,\n",
         "                                 restore_best_weights = TRUE)"
       ],
-      "id": "609eed83-e11e-4877-8dfd-a67a9ee15f66"
+      "id": "0ba15612-7125-4ce5-8d1d-b403965446f6"
     },
     {
       "cell_type": "code",
@@ -5408,7 +5410,7 @@
         "\n",
         "plot(my_history)"
       ],
-      "id": "df4c0053-9109-4231-a5f3-5ca78676cd53"
+      "id": "2c6e09f4-115a-4cae-926d-bca6e4a21175"
     },
     {
       "cell_type": "code",
@@ -5419,7 +5421,7 @@
         "my_model %>%\n",
         "  evaluate(x = x_test2d, y = y_test)"
       ],
-      "id": "e0d71163-55c0-4a1d-b8ba-921f7145ca45"
+      "id": "dfc798e5-d4f6-4a26-9173-e1e32e7f5f2a"
     },
     {
       "cell_type": "code",
@@ -5437,7 +5439,7 @@
         "  filter(y_ != y) %>%                       # \u4e88\u6e2c\u304c\u306f\u305a\u308c\u305f\u3082\u306e\u3092\u6b8b\u3059\n",
         "  arrange(desc(y_prob))                     # \u78ba\u7387\u306e\u5927\u304d\u3044\u9806\u306b\u4e26\u3073\u66ff\u3048\u308b"
       ],
-      "id": "4af031a9-bcf9-4288-8241-e0304c93e489"
+      "id": "f1ab0d30-52f5-4c9a-a27b-f66909544c6b"
     },
     {
       "cell_type": "code",
@@ -5447,7 +5449,7 @@
       "source": [
         "head(my_result)"
       ],
-      "id": "39c8a81f-96e1-4020-a028-f3c3611d193b"
+      "id": "c5139f90-058f-401f-b641-cf0647542692"
     },
     {
       "cell_type": "code",
@@ -5473,10 +5475,10 @@
         "  theme(legend.position = \"none\") +\n",
         "  facet_grid(. ~ label)"
       ],
-      "id": "ed44c77a-d9c6-4575-b25e-b4292c5ef4a5"
+      "id": "668a89c8-bafb-462c-aba8-737003a51d22"
     },
     {
-      "id": "742ed0a8",
+      "id": "52691619",
       "cell_type": "markdown",
       "source": "## 11.4 AutoML",
       "metadata": {}
@@ -5499,7 +5501,7 @@
         "h2o.no_progress()\n",
         "# h2o.shutdown(prompt = FALSE) # \u505c\u6b62"
       ],
-      "id": "791c30a4-4d40-47e6-8e92-2504f24606f2"
+      "id": "1eab771c-c61d-4326-8e84-233f6df0c5c7"
     },
     {
       "cell_type": "code",
@@ -5514,7 +5516,7 @@
         "# \u3042\u308b\u3044\u306f\n",
         "my_frame <- h2o.importFile(my_url, header = TRUE) # \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080\uff0e"
       ],
-      "id": "d5baa477-f6d1-4cc8-aff7-a5bdf4e2a85f"
+      "id": "3fd23cd1-8483-45d2-ad49-63a810c49a88"
     },
     {
       "cell_type": "code",
@@ -5528,7 +5530,7 @@
         "my_frame %>% as.data.frame %>% head\n",
         "# \u7d50\u679c\u306f\u5272\u611b\uff08\u898b\u305f\u76ee\u306f\u540c\u3058\uff09"
       ],
-      "id": "e4ed2280-b246-4055-9471-ff346d813f07"
+      "id": "c06b2f13-6e90-41aa-b6f1-268c2291d958"
     },
     {
       "cell_type": "code",
@@ -5541,7 +5543,7 @@
         "    training_frame = my_frame,\n",
         "    max_runtime_secs = 60)"
       ],
-      "id": "9f269734-4a29-4f65-8e41-4b2ce9e5e692"
+      "id": "ea6c2470-d2dd-4c9b-bcfe-c40f2fcf9858"
     },
     {
       "cell_type": "code",
@@ -5551,7 +5553,7 @@
       "source": [
         "min(my_model@leaderboard$rmse)"
       ],
-      "id": "dacc5bfd-dadf-462c-884f-e10165343826"
+      "id": "498699b0-64d2-4e58-81d7-8a75be73f3f2"
     },
     {
       "cell_type": "code",
@@ -5567,7 +5569,7 @@
         "\n",
         "plot(y, y_)"
       ],
-      "id": "9f16a92a-8517-4d7f-99f1-a9d5647f1623"
+      "id": "87c80695-e25c-49e8-93b3-4278613d0e42"
     },
     {
       "cell_type": "code",
@@ -5575,12 +5577,17 @@
       "metadata": {},
       "outputs": [],
       "source": [
-        "c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
+        "if (Sys.getenv(\"COLAB_JUPYTER_IP\") != \"\") {\n",
+        "  keras3::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
+        "} else {\n",
+        "  keras::`%<-%`(c(c(x_train, y_train), c(x_test, y_test)), dataset_mnist())\n",
+        "}\n",
+        "# c(c(x_train, y_train), c(x_test, y_test)) %<-% dataset_mnist()\n",
         "my_index <- sample(1:60000, 6000)\n",
         "x_train <- x_train[my_index, , ]\n",
         "y_train <- y_train[my_index]"
       ],
-      "id": "2319f63d-0584-4864-b6ba-2f3087f30c64"
+      "id": "81c9b004-d67e-4505-ba75-92e2f5e9d145"
     },
     {
       "cell_type": "code",
@@ -5599,7 +5606,7 @@
         "  as.data.frame\n",
         "my_test <- as.h2o(tmp)"
       ],
-      "id": "632bd268-90b4-4f7d-a1aa-8f2573f9c3a8"
+      "id": "62d89e47-53e3-4ee3-a3db-ce8e3082fd92"
     },
     {
       "cell_type": "code",
@@ -5612,7 +5619,7 @@
         "    training_frame = my_train,\n",
         "    max_runtime_secs = 120)"
       ],
-      "id": "8335a9da-2e40-447a-b31f-a41e2178b19d"
+      "id": "5be67416-9867-4dd7-a806-f38cffd536b9"
     },
     {
       "cell_type": "code",
@@ -5623,7 +5630,7 @@
         "min(my_model@leaderboard$\n",
         "    mean_per_class_error)"
       ],
-      "id": "ab1e0a82-0e9d-42a6-b05f-b336bd7ac04f"
+      "id": "554ec03b-33d0-4f95-948f-c3f88352981a"
     },
     {
       "cell_type": "code",
@@ -5637,10 +5644,10 @@
         "\n",
         "mean(y_ == y_test)"
       ],
-      "id": "c4a2c15a-baef-4948-89c6-5c9a43d13f08"
+      "id": "169e3aa9-7a95-4781-a4ea-0fa27974bd61"
     },
     {
-      "id": "763a841b",
+      "id": "5df29dc6",
       "cell_type": "markdown",
       "source": "# 12 \u6642\u7cfb\u5217\u4e88\u6e2c",
       "metadata": {}
@@ -5660,10 +5667,10 @@
         "  install.packages(c(\"ggplot2\"))\n",
         "}"
       ],
-      "id": "7ef88903-2814-4966-9fab-4ea4d71b4c8d"
+      "id": "bf5fbc02-bb10-47f9-ac15-0955a0a83f80"
     },
     {
-      "id": "6b20bbed",
+      "id": "c686c0ad",
       "cell_type": "markdown",
       "source": "## 12.1 \u65e5\u6642\u3068\u65e5\u6642\u306e\u5217",
       "metadata": {}
@@ -5676,7 +5683,7 @@
       "source": [
         "as.POSIXct(\"2021-01-01\")"
       ],
-      "id": "da6e2e4d-9753-46e2-9135-cfc71ee18550"
+      "id": "6836b7e6-42ff-49e0-8e9f-65e674e8efaf"
     },
     {
       "cell_type": "code",
@@ -5695,10 +5702,10 @@
         "seq(from = as.POSIXct(\"2021-01-01 00:00:00\"),\n",
         "    to   = as.POSIXct(\"2021-01-01 03:00:00\"), by = \"2 hour\")"
       ],
-      "id": "ad27c954-1c75-40c4-a19a-deddb6fb03a1"
+      "id": "57c5c1b1-247b-4868-82ae-4a5818500450"
     },
     {
-      "id": "68de9c2f",
+      "id": "ec7ece16",
       "cell_type": "markdown",
       "source": "## 12.2 \u6642\u7cfb\u5217\u30c7\u30fc\u30bf\u306e\u4e88\u6e2c",
       "metadata": {}
@@ -5711,7 +5718,7 @@
       "source": [
         "my_data <- as.vector(AirPassengers)"
       ],
-      "id": "1b2836ca-90ab-4259-921b-9a998b3db7ee"
+      "id": "0f26af5e-7867-48f5-970c-90f8dba60189"
     },
     {
       "cell_type": "code",
@@ -5722,7 +5729,7 @@
         "n <- length(my_data) # \u30c7\u30fc\u30bf\u6570\uff08144\uff09\n",
         "k <- 108             # \u8a13\u7df4\u30c7\u30fc\u30bf\u6570"
       ],
-      "id": "5ac7d4b4-04ef-4968-9661-5e9764445a1e"
+      "id": "b9521e4e-efdc-418e-a5cc-f20d705cd693"
     },
     {
       "cell_type": "code",
@@ -5749,7 +5756,7 @@
         "\n",
         "head(my_df)"
       ],
-      "id": "005ced2f-0a91-44e7-8fb5-8e5cfc27d5dd"
+      "id": "bffbda05-2f5e-4f34-b9a0-87440adf612d"
     },
     {
       "cell_type": "code",
@@ -5761,7 +5768,7 @@
         "my_test  <- my_df[-(1:k), ]\n",
         "y <- my_test$y"
       ],
-      "id": "f9bf5ef1-0f8b-4f7b-9e45-b096ce73216c"
+      "id": "43c87b08-2b83-463d-ad97-ab233b576a90"
     },
     {
       "cell_type": "code",
@@ -5776,7 +5783,7 @@
         "  geom_line()\n",
         "my_plot"
       ],
-      "id": "b24b7cfb-f5fc-4dae-a38d-86a9a1846fc3"
+      "id": "40811269-14e3-4f33-8703-9ad496218aa1"
     },
     {
       "cell_type": "code",
@@ -5789,7 +5796,7 @@
         "y_ <- my_lm_model %>% predict(my_test)\n",
         "caret::RMSE(y, y_) # RMSE\uff08\u30c6\u30b9\u30c8\uff09"
       ],
-      "id": "2911b8d8-e614-4bd6-b4bf-c87509e085b7"
+      "id": "27d268c7-eb0c-4b35-862e-9bf7e66940f3"
     },
     {
       "cell_type": "code",
@@ -5802,7 +5809,7 @@
         "  mutate(y = y_, label = \"model\")\n",
         "my_plot + geom_line(data = tmp)"
       ],
-      "id": "5471626d-c3c3-4da4-89a8-b60ecee1c5a2"
+      "id": "3c902e14-8627-4e15-a054-522f929bfc2b"
     },
     {
       "cell_type": "code",
@@ -5814,7 +5821,7 @@
         "my_arima_model <- my_train %>% model(ARIMA(y))\n",
         "my_arima_model"
       ],
-      "id": "8aac3fb2-11ef-41ea-afca-04e9c13c4cdd"
+      "id": "82d66d99-4483-4448-9526-17a5f74b36ec"
     },
     {
       "cell_type": "code",
@@ -5825,7 +5832,7 @@
         "tmp <- my_arima_model %>% forecast(h = \"3 years\")\n",
         "head(tmp)"
       ],
-      "id": "f580ed50-daf7-49f0-83e4-c0f9c42b475a"
+      "id": "45769b7c-e614-41e1-96d8-c7c19fbe9e87"
     },
     {
       "cell_type": "code",
@@ -5836,7 +5843,7 @@
         "y_ <- tmp$.mean\n",
         "caret::RMSE(y_, y)"
       ],
-      "id": "b7b15198-4080-4380-9b6b-835e0f3113e1"
+      "id": "bf16b7a0-c51c-46f1-a400-3bb98c50450b"
     },
     {
       "cell_type": "code",
@@ -5853,7 +5860,7 @@
         "                y = y,\n",
         "                color = label))"
       ],
-      "id": "1e4d53c3-99ea-40bb-8412-379c5a908ca0"
+      "id": "e7307600-e438-4c53-88f6-3771469f306a"
     },
     {
       "cell_type": "code",
@@ -5865,7 +5872,7 @@
         "my_prophet_model <- my_train %>%\n",
         "  prophet(seasonality.mode = \"multiplicative\")"
       ],
-      "id": "753e83fb-0e3a-4d7b-9091-3bc8ccd6ab6e"
+      "id": "353c14d6-7a00-4dfd-8ee6-adc7f1a82989"
     },
     {
       "cell_type": "code",
@@ -5876,7 +5883,7 @@
         "tmp <- my_prophet_model %>% predict(my_test)\n",
         "head(tmp[, c(\"ds\", \"yhat\", \"yhat_lower\", \"yhat_upper\")])"
       ],
-      "id": "4e5f8438-9ff1-48f3-830e-2c99dc9c6279"
+      "id": "778e8194-e481-4649-b7dd-bfff17656586"
     },
     {
       "cell_type": "code",
@@ -5887,7 +5894,7 @@
         "y_ <- tmp$yhat\n",
         "caret::RMSE(y_, y)"
       ],
-      "id": "caaa0018-311c-458c-961f-b5335cc38cdb"
+      "id": "0f13e189-6ec9-4ef0-b277-42fab205d69c"
     },
     {
       "cell_type": "code",
@@ -5901,10 +5908,10 @@
         "  geom_line(data = my_train, aes(x = as.POSIXct(ds))) +\n",
         "  geom_line(data = my_test,  aes(x = as.POSIXct(ds)), color = \"red\")"
       ],
-      "id": "d0051784-feed-4fbb-990b-73851026994f"
+      "id": "25889ba4-5c87-4006-8701-ecfdae0a3c4f"
     },
     {
-      "id": "eef173eb",
+      "id": "be17d875",
       "cell_type": "markdown",
       "source": "# 13 \u6559\u5e2b\u306a\u3057\u5b66\u7fd2",
       "metadata": {}
@@ -5923,10 +5930,10 @@
         "  install.packages(setdiff(packages_to_install, installed_packages))\n",
         "}"
       ],
-      "id": "65ccd4cb-9469-452b-9f65-672ad0b6e356"
+      "id": "9141ff7f-b059-494a-a89a-d4f5eea7a651"
     },
     {
-      "id": "d824556d",
+      "id": "bf9f244d",
       "cell_type": "markdown",
       "source": "## 13.1 \u4e3b\u6210\u5206\u5206\u6790",
       "metadata": {}
@@ -5948,7 +5955,7 @@
         "  row.names = c(\"A\", \"B\", \"C\", \"D\", \"E\", \"F\"))\n",
         "my_result <- my_data %>% prcomp # \u4e3b\u6210\u5206\u5206\u6790\u306e\u5b9f\u884c"
       ],
-      "id": "0a1138d6-130c-4e5c-afa9-08cdcef7dc05"
+      "id": "f7995a22-e915-4133-b830-ad3db16ef12b"
     },
     {
       "cell_type": "code",
@@ -5958,7 +5965,7 @@
       "source": [
         "my_result$x # \u4e3b\u6210\u5206\u30b9\u30b3\u30a2"
       ],
-      "id": "7992e0d6-d29e-4b85-a630-c1f6ce286fc4"
+      "id": "7a083dfd-5a96-43d2-9295-1aa6c5fa1910"
     },
     {
       "cell_type": "code",
@@ -5970,7 +5977,7 @@
         "  labels = row.names(my_data),\n",
         "  scale = 0)"
       ],
-      "id": "f3269c66-13e5-47e7-9f17-0f2fe096fb7e"
+      "id": "f06ae7f5-09d5-4930-85d8-de820e3d03c1"
     },
     {
       "cell_type": "code",
@@ -5980,7 +5987,7 @@
       "source": [
         "my_result$rotation %>% t"
       ],
-      "id": "879c07bc-0daa-411c-befd-1310648fb1da"
+      "id": "d22312eb-7123-4071-86f1-9f58b6ab9ce1"
     },
     {
       "cell_type": "code",
@@ -5990,7 +5997,7 @@
       "source": [
         "summary(my_result)"
       ],
-      "id": "90c4833e-e3f0-4ff7-b4a3-ffaee8db7cc3"
+      "id": "c9618235-dbc3-41a2-a683-3aa528ab8684"
     },
     {
       "cell_type": "code",
@@ -6007,7 +6014,7 @@
         "\n",
         "my_result$x # \u4e3b\u6210\u5206\u30b9\u30b3\u30a2"
       ],
-      "id": "a4dcac81-c59f-42c4-8fef-b60e3d864246"
+      "id": "68dbffab-ed72-4fb4-99a7-87befebb8f69"
     },
     {
       "cell_type": "code",
@@ -6025,7 +6032,7 @@
         "Z %*% tmp$vectors                    # \u4e3b\u6210\u5206\u30b9\u30b3\u30a2\uff08\u7d50\u679c\u306f\u5272\u611b\uff09\n",
         "cumsum(tmp$values) / sum(tmp$values) # \u7d2f\u7a4d\u5bc4\u4e0e\u7387"
       ],
-      "id": "0fa8d1b0-3595-4edf-87c0-b387d2d8a859"
+      "id": "f4ad13d2-57ba-4cdc-b5b0-1eb442a687aa"
     },
     {
       "cell_type": "code",
@@ -6048,10 +6055,10 @@
         "e <- d^2 / (n - 1) # \u5206\u6563\u5171\u5206\u6563\u884c\u5217\u306e\u56fa\u6709\u5024\n",
         "cumsum(e) / sum(e) # \u7d2f\u7a4d\u5bc4\u4e0e\u7387"
       ],
-      "id": "b7a030d5-bc82-4cd0-b866-9a88b5846458"
+      "id": "11284124-5e4a-4279-8f53-8fac606d7d13"
     },
     {
-      "id": "859a1c21",
+      "id": "e8d250b7",
       "cell_type": "markdown",
       "source": "## 13.2 \u30af\u30e9\u30b9\u30bf\u5206\u6790",
       "metadata": {}
@@ -6073,7 +6080,7 @@
         "  dist(\"euclidian\") %>% # dist\u3060\u3051\u3067\u3082\u53ef\n",
         "  hclust(\"complete\")    # hclust\u3060\u3051\u3067\u3082\u53ef"
       ],
-      "id": "1ab28726-5842-4a30-948c-f4f1ec63a6a8"
+      "id": "baf630cb-8aab-4ee5-a1a5-df2ff6394705"
     },
     {
       "cell_type": "code",
@@ -6085,7 +6092,7 @@
         "  k = 3, # \u30af\u30e9\u30b9\u30bf\u6570\n",
         "  rect = TRUE, rect_fill = TRUE)"
       ],
-      "id": "fc83de7c-bf53-43ee-bc9e-c4b6f69933e7"
+      "id": "99da6ff8-5831-43d8-8f62-822011262441"
     },
     {
       "cell_type": "code",
@@ -6098,7 +6105,7 @@
         "  rect = TRUE, rect_fill = TRUE,\n",
         "  type = \"phylogenic\")"
       ],
-      "id": "589dcf86-4be0-4f50-8418-7fd4f0ccd43f"
+      "id": "70b20f9b-0934-4775-8d94-f090c229e755"
     },
     {
       "cell_type": "code",
@@ -6108,7 +6115,7 @@
       "source": [
         "my_result %>% cutree(3)"
       ],
-      "id": "f197f786-8047-4393-8eed-98cf914261a1"
+      "id": "4972d1e6-b74b-4b70-84cf-ce55c18a6ebc"
     },
     {
       "cell_type": "code",
@@ -6131,7 +6138,7 @@
         "    gplots::heatmap.2(cexRow = 1, cexCol = 1), # \u30e9\u30d9\u30eb\u306e\u30b5\u30a4\u30ba\u3092\u6307\u5b9a\u3057\u3066\u63cf\u753b\u3059\u308b\uff0e\n",
         "  silent = TRUE)"
       ],
-      "id": "867fd2ae-a4b1-4520-ba61-40b8a48c9f41"
+      "id": "3089e35f-8495-44f2-a616-2dda721a9f99"
     },
     {
       "cell_type": "code",
@@ -6148,7 +6155,7 @@
         "\n",
         "my_result <- my_data %>% kmeans(3)"
       ],
-      "id": "5947ccfc-b41e-4fb4-8e69-f5f7cbd99891"
+      "id": "d8a1b8c3-36c8-4a1f-957a-a0221af09a4e"
     },
     {
       "cell_type": "code",
@@ -6158,7 +6165,7 @@
       "source": [
         "my_result$cluster"
       ],
-      "id": "1b169fc0-8a84-4082-857e-4bbaf7a26b62"
+      "id": "443e5ca9-be30-4d63-ac16-9d7273963cdd"
     },
     {
       "cell_type": "code",
@@ -6178,7 +6185,7 @@
         "})\n",
         "gridExtra::grid.arrange(f[[1]], f[[2]], f[[3]], f[[4]], ncol = 2)"
       ],
-      "id": "daba13b9-7305-4712-b9bc-be9491dd5402"
+      "id": "b9bace0e-cdf3-4381-8e77-effb83efc9e2"
     },
     {
       "cell_type": "code",
@@ -6188,7 +6195,7 @@
       "source": [
         "fviz_nbclust(my_data, kmeans, method = \"wss\")"
       ],
-      "id": "60d2130b-1ab8-4421-80e6-ab0250f055e3"
+      "id": "9c3ab3d1-f71f-450c-a01a-93705c74a76c"
     },
     {
       "cell_type": "code",
@@ -6212,7 +6219,7 @@
         "  geom_point(shape = iris$Species) +               # \u5f62\u3067\u54c1\u7a2e\u3092\u8868\u73fe\u3059\u308b\uff0e\n",
         "  theme(legend.position = \"none\")"
       ],
-      "id": "1bac150d-8d9a-4b4c-bb9b-da37375e4c8a"
+      "id": "3ee44edb-ea63-4f36-80a9-5820fddbe249"
     }
   ],
   "nbformat": 4,
diff --git a/update.md b/update.md
index 5c931ba..4f71af7 100644
--- a/update.md
+++ b/update.md
@@ -9,7 +9,7 @@
 p. 6|Windows 11には，脚註4で紹介しているWindows Terminalが搭載されています．
 p. 20|[Amazon SageMaker Studio Lab](addendum/sagemaker)での動作も確認済みです．表2.1のクラウド・ノートブックに相当します．
 p. 22 脚註3|Google Colabでノートブックを新規作成した後で，ランタイム→ランタイムのタイプを変更で，Rを選択できるようになりました．
-p. 56|Rのコード`左辺 %<-% 右辺`が正しく動作しない場合は，``keras::`%<-%`(左辺, 右辺)``に変更してください．
+p. 56|Google Colabでは，Kerasの代わりにKeras3をインストールして，`library(keras3)`で読み込んでください（公開コードは対応済み）．
 p. 77|**（バージョン依存）** 3.4.2.1のPythonのコードの`my_df2 = my_df.append(tmp)`を`my_df2 = pd.concat([my_df, tmp])`としなければならないことがあります．
 p. 112 脚註6|**（バージョン依存）** 対象を数値の列に限定するオプション`numeric_only=True`が必要な場合があります．
 p. 113|**（バージョン依存）** Pythonのコードを，`my_df.var(numeric_only=True)`や`my_df.apply('var', numeric_only=True)`としなければならないことがあります．
@@ -23,8 +23,10 @@ p. 271, 275|9.4.2, 9.5.3項のPythonのコードで警告がたくさん出る
 p. 277|9.6.2項のPythonのコードで警告がたくさん出る場合は，`MLPClassifier()`を`MLPClassifier(max_iter=1000)`に変更してみてください．
 p. 292, 298|**（バージョン依存）** Pythonのコードの`get_feature_names()`を`get_feature_names_out()`としなければならないことがあります．
 p. 297|**（バージョン依存）** Pythonのコードの`LogisticRegression(penalty='none')`を`LogisticRegression(penalty=None)`としなければならないことがあります．
+第11章|Google Colabでは，Kerasの代わりにKeras3をインストールして，`library(keras3)`で読み込んでください（公開コードは対応済み）．
+p. 309|**（バージョン依存）** Rでエラーが出る場合は，`list`を`rbind`に変更してください．
 p. 309|**（バージョン依存）** Pythonでは`y, y_1, y_2 = np.array(y), np.array(y_1), np.array(y_2)`として，リストをアレイに変換しなければならないことがあります．
-p. 310, 329|Rのコード`左辺 %<-% 右辺`が正しく動作しない場合は，``keras::`%<-%`(左辺, 右辺)``に変更してください．
+p. 310, 329|Rのコード`左辺 %<-% 右辺`が正しく動作しない場合は，``keras::`%<-%`(左辺, 右辺)``に変更してください（Google Colabでは``keras3::`%<-%```）．
 p. 342|**（バージョン依存）** Pythonのコードの`from fbprophet import Prophet`を`from prophet import Prophet`としなければならないことがあります．
 
 ## 正誤表