[R] concatenating text within a function

[L... L...]

Dear all, I have the following variables:
fc	<-	quote(sqrt(2) * pi ^ (-0.1e1 / 0.2e1) * (x / theta) ^ alpha * alpha / x * exp(-(x / theta) ^ (2 * alpha) / 2))
and 
d2 <- D(D(fc, "alpha"), "alpha")
I would like to create a function formed by the product of fc and d2. I tried:
fcd2 <- function(x) {}
body(fcd2) <- c(d2, "*", fc)
but I did not succeed. Any suggestion is welcome.
Best regards
ML 		 	   		  
	[[alternative HTML version deleted]]