Please solve these errors in following code I want to the histogram to work. errors:

could not find function newDist

if we change newDist ot newDist$sample then error:

Error in hist.default$($sample$1,$ breaks $=$ "Scott", probability $=$ TRUE, col $=$ rgb$(1,$ :

$\text{'}$x$\text{'}$ must be numeric

if we change as$.$numeric$($sample$1)$ then error

Error in hist$($as$.$numeric$($sample$1),$ breaks $=$ "Scott", probability $=$ TRUE, :

'language' object cannot be coerced to type 'double'

CODE:

# Define the randomVariate class

randomVariate $<-$ function$($distFormula$,$ defs$)\{$

# Validate input arguments

stopifnot$($is$.$list$($defs$))$

# Define the S$3$ class object

dist $<-$ list$($formula $=$ deparse$($distFormula$),$ definitions $=$ defs$)$

#Define the sample function

dist$sample $<-$ function$($n$)\{$

#Evaluate the formula using the provided definitions

eval$($distFormula$,$ envir $=$ defs, enclos $=$ parent.frame$())$

$\}$

#Define the print method

print.randomVariate $<-$ function$($obj$)\{$

cat$("$Formula:$",$ deparse$($obj$formula$),"$

Definitions:

$")$

for $($key in names$($obj$definitions$))\{$

cat$($key$,"$:$",$ deparse$($obj$definitions$[[$key$]]),"$

$")$

$\}$

$\}$

# Return the object

class$($dist$)<-$ c$("$randomVariate$",$ "function"$)$

return$($dist$)$

$\}$

# Example usage

# Define a new random variable

# Example usage

# Define a new random variable

newDist $<-$ randomVariate$($

distFormula $=$ ~ x$^2+$ y$^2,$

defs $=$ list$($

x $=$ function$($n$)\{$ rnorm$($n$,$ mean $=0,$ sd $=0\mathrm{.}1)\},$

y $=$ function$($n$)\{$ rnorm$($n$,$ mean $=0,$ sd $=0\mathrm{.}1)\}$

$)$

$)$

# Print the new random variable

newDist

# Extract samples from the random variable

sample$1<-$ newDist$sample$(10^5)$

# Create the histogram using the extracted samples

hist$($as$.$numeric$($sample$1),$ breaks $=$ "Scott", probability $=$ TRUE,

col $=$ rgb$(1,0,1,\mathrm{.}2),$ density $=20,$ angle $=-45)$

# Add density plot

lines$($

density$($as$.$numeric$($sample$1),$ adjust $=\mathrm{.}5),$

col $=$ rgb$(1,0,1,1))$