outer() expects a return value with the same length as that of x.
You could change the code to rep(3, length(x))
Or if you don't want to change the code of the function, you could make a
wrapper and use that instead:
function (x, y)
{
v <- FN1(x, y)
if (length(v) != 1) v else rep(v, length(x))
}
On Tue, Dec 10, 2024, 11:37 Christofer Bogaso <bogaso.christo...@gmail.com>
wrote:
> Hi,
>
> I have below code
>
> FN1 = function(x, y) 3
>
> outer(1:9, 1:9, FN1)
>
> With above I get error as below
>
> Error in dim(robj) <- c(dX, dY) :
>
> dims [product 81] do not match the length of object [1]
>
> Could you please help to understand why is it failing? I am just
> expecting to get a matrix with all elements as 3
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> https://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide https://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
