# Función cuadrática
fun_cuad <- function(x) { 
	x^2
}