floating point exception

[hfzhang31]

poc

plot ( 1 : 10 , 1 : 10 , x = mean ( try ( plot ( lm ( try ( try ( body : body ( f ) <- body ( mean ) ) + id.n ( f ) ) ~ 1.000000 , 1.000000 , 1.000000 , log ( TRUE ) ) ) ) ) )

result

Error in try(body:body(f) <- body(mean)) : could not find function ":<-"
Error in try(try(body:body(f) <- body(mean)) + id.n(f)) :
  could not find function "id.n"
[1]    7799 floating point exception  ./bin/R

setup

platform         x86_64-unknown-linux-gnu
arch             x86_64
os               linux-gnu
system           x86_64, linux-gnu
status
major            2
minor            15.1
year             2020
month            07
day              23
svn rev          58871
language         R
version.string   R version 2.15.1 (2020-07-23)
nickname
pqR.base.version 2.15.0
pqR.base.date    2012-03-30
pqR.base.year    2012