From c607d980f7cfa10e7e2947f40620146facd2c7a4 Mon Sep 17 00:00:00 2001
From: Mitsuo Shiota <48662507+mitsuoxv@users.noreply.github.com>
Date: Sun, 16 Jul 2023 21:27:55 +0900
Subject: [PATCH] rewrite requires max(). (#1495)

---
 base-R.qmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base-R.qmd b/base-R.qmd
index 4824cfd..b3de68c 100644
--- a/base-R.qmd
+++ b/base-R.qmd
@@ -268,7 +268,7 @@ dplyr also provides an equivalent to `[[`/`$` that we didn't mention in @sec-dat
 That means we could rewrite the above code to use the pipe:
 
 ```{r}
-diamonds |> pull(carat) |> mean()
+diamonds |> pull(carat) |> max()
 
 diamonds |> pull(cut) |> levels()
 ```