#Creation du modele multiplicatif produit2 <- function(x) { ##HM: patch pour gerer le fait que sobolEff retourne X comme une matrice if(is.matrix(x) & ncol(x)==2){ x <- as.data.frame(x) names(x) <- c("X1","X2") } ## fin patch if(!is.data.frame(x)) stop("x doit etre un data.frame") if (! (is.numeric(x$X1) & is.numeric(x$X2)) ) stop("X1 et X2 doivent etre numeriques") res <- x$X1 * x$X2 return(res) }