#estimación del área bajo la gráfica de una función#
#n<100

f<function(x){x^2}

cat("introduce el tamaño de la muestra")
n<-scan()

cat("Introduce el rango de X")
RX<-scan()

cat("Introduce el rango de Y")
RY<-scan()

C=0

for(k in 1:n) {x=runif}