Displaying 2 results from an estimated 2 matches for "range1d".
Did you mean:
range1
2010 Nov 22
1
Plotting a cloud/fog of variable density in rgl
...nts in 3D through kriging in case you want to try
with increase precision.
# create a set of random data points in 3D
n = 50
data3D = data.frame(x = runif(n), y = runif(n), z = runif(n), v = rnorm(n))
# do 3d interpolation via kriging
library("gstat")
coordinates(data3D) = ~x+y+z
range1D = seq(from = 0, to = 1, length = 10)
grid3D = expand.grid(x = range1D, y = range1D, z = range1D)
gridded(grid3D) = ~x+y+z
res3D = krige(formula = v ~ 1, data3D, grid3D, model = vgm(1, "Exp", .2))
# convert the result to a data.frame
d = as.data.frame(res3D)
# compute transparency...
2010 Nov 24
0
4. Rexcel (Luis Felipe Parra)-how to run a code from excel
...nts in 3D through kriging in case you want to try
with increase precision.
# create a set of random data points in 3D
n = 50
data3D = data.frame(x = runif(n), y = runif(n), z = runif(n), v =
rnorm(n))
# do 3d interpolation via kriging
library("gstat")
coordinates(data3D) = ~x+y+z
range1D = seq(from = 0, to = 1, length = 10)
grid3D = expand.grid(x = range1D, y = range1D, z = range1D)
gridded(grid3D) = ~x+y+z
res3D = krige(formula = v ~ 1, data3D, grid3D, model = vgm(1, "Exp",
.2))
# convert the result to a data.frame
d = as.data.frame(res3D)
# compute transparency...