好吧， 我管理了
x<-seq(-1.2,1.2,0.01)
y<-x
f=outer(x,y,function(x,y)abs(x)+abs(y))
contour(x,y,f,asp=1)
这完全符合我的追求...
现在让我们修改程序
x<-seq(-1.2,1.2,0.01)
y<-x
f=outer(x,y,function(x,y)sum(abs(c(x,y))))
这将导致
Error in dim(robj) <- c(dX, dY) :
dims [product 58081] do not match the length of object [1]
我不明白问题出在哪里...
亲切的问候