自己写了一个函数无法用outer和其他函数来输出，求解

风之伤

如题。。。每次运行都这样

fy.s<-function(x,y){sum(dnorm((x-xs)/hx)*dnorm((y-ys)/hy))}   outer(x0,y0,fy.s)

Error in dnorm((x - xs)/hx) :
  dims [product 196] do not match the length of object [1000]     
请问是因为x和xi都是一系列的数，所以SUM的时候会识别不出吗？
那有什么办法改正呢？
再比如说  我如果要求积分 integral2(fy.s,-10,10，-10，10) 一样也是不行的  求解

风之伤

噢   其中 xs 是已知样本  hx是已知窗宽

风之伤

fy.s<-function(x,y){sum(dnorm((x-xs)/hx)*dnorm((y-ys)/hy))}  
outer(x0,y0,fy.s)