Displaying 1 result from an estimated 1 matches for "deeffect".
Did you mean:
sideeffect
2008 Nov 20
1
Math Expression in 3D Plots
...o only accept character strings.
require("rgl")
fn.delta.yrsed <- function(dist, delta.dist,
beta.dist=-0.1376463, beta.dist2=0.0088698) {
delta.yrsed <- (beta.dist + 2*beta.dist2*dist)*delta.dist +
beta.dist2*delta.dist^2
return(delta.yrsed)
}
plot.deeffect <- function(scolor="blue") {
delta.dist <- dist <- seq(0, 16, .5)
delta.yrsed <- outer(dist, delta.dist, fn.delta.yrsed)
rgl.open()
bbox3d(xat=seq(0, 16, 2), yat=0:5, zat=seq(0, 16, 2), color="black")
title3d(main="Effect of Change in dist on yrsed&qu...