inst/examples/rgl-beta.R

# Beta 函数的三维透视图
library(rgl)
x = y = seq(1, 5, .1)
m = outer(x, y, function(a, b) beta(a, b))
persp3d(x, y, m, col = "green3", zlab = "Beta(x, y)")

Try the MSG package in your browser

Any scripts or data that you put into this service are public.

MSG documentation built on July 22, 2021, 1:06 a.m.