# Set seed

set.seed$(4)$

# Set parameters

n $<-135$

e $<-$ rnorm$($n$,$ mean $=0,$ sd $=0\mathrm{.}18)$

x $<-$ runif$($n$,$ min $=0,$ max $=1)$

# Define the function f$($x$)$

f$\_$x $<-$ function$($x$)\{$

return$($x$^2)$ # Example: f$($x$)=$ x$^2$

$\}$

# Create data frame

data $<-$ data.frame$($

x $=$ x$,$

y $=$ f$\_$x$($x$)+$ e$,$

f$\_$x $=$ f$\_$x$($x$)$

$)$

# Display the first $10$ rows of the data frame

head$($data$,10)$