try this : fdejong <- function (x, y) { return (x^2 + y^2) } x <- seq(-10, 10, length= 30) y <- x z <- outer(x, y, fdejong) z[is.na(z)] <- 1 ...
確定! 回上一頁