PIB

GNU R の以下のコードを PowerPoint に貼って PDF に export したんだが、なんか動作が異なる。

# 最頻値
prec <- function(x) (function(s,p1,p2) ifelse(grepl(p1,s),nchar(sub(p1,"\\1",s)),
  ifelse(grepl(p2,s),-nchar(sub(p2,"\\1",s)),0)))(
  sprintf("%.15f",x),"^[0-9]*[0-9](0*)([.]0*)?$","^[0-9]*[.]([0-9]*[1-9])0*$")
(function(x){
  g <- 10^min(sapply(x, prec))
  h <- hist(x, breaks = seq(min(x), max(x) + g, g), right = FALSE)
  h$breaks[h$counts == max(h$counts)]
})(quakes$mag)

PDF からコピペした内容は以下

 # 最頻値
prec<-function(x) (function(s,p1,p2) ifelse(grepl(p1,s),nchar(sub(p1,"\\1",s)),
 ifelse(grepl(p2,s),-nchar(sub(p2,"\\1",s)),0)))(
  sprintf("%.15f",x),"^[0-9]*[0-9](0*)([.]0*)?$","^[0-9]*[.]([0-9]*[1-9])0*$")
 (function(x){
 g <-10^min(sapply(x, prec))
 h <-hist(x, breaks = seq(min(x), max(x) + g, g), right = FALSE)
 h$breaks[h$counts == max(h$counts)]
 })(quakes$mag)

スペースや改行は若干異なっているくらいしか違いはないように見えるんだが、
求めた最大精度が 10 の -1 乗ではなく -3 乗になる
なぜ？

なんかわけわからんので、Copilot にコピペして聞いてみたらなんと、
前者は '\' U+005c REVERSE SOLIDUS
後者は '\' U+00a5 YEN SIGN
ってふざけるな案件ですよ。

これどうしろと？