Displaying 2 results from an estimated 2 matches for "ypoint".
Did you mean:
point
1998 Nov 28
1
No subject
...00 trials. I would like to plot each
iteration.
Any suggestions would be greatly appreciated. I am running R 63.0 (Guido's
latest version for Windows).
Niels
> Quincunx.prg
function(trials = 100)
{
graphsheet(pages = "Off")
par(mfrow = c(1, 2))
xpoints <- seq(1, 25, 1)
ypoints <- seq(1, 25, 1)
xheights <- rep(0, 25)
mcol <- 2
xy <- expand.grid(xpoints, ypoints)
xx <- seq(1, 25, 2)
yy <- rep(0, 25)
ypos <- ypoints + 0.4
HT <- c("H", "T")
for(j in 1:trials) {
plot(xpoints, ypoints, type = "n", xlab = "&q...
2010 Aug 19
0
2d kriging with anisotropy on an irregular network (RandomFields Package)
...ot;exponential"
param1 <- c("mean"=Mean,"variance"=Variance,"nugget"=0,"scale"=Range)
RFparameters(PracticalRange=FALSE)
data <- GaussRF(points1, grid=FALSE, model=model,param=param1)
data[which(data<0)]<-0
xPoint <- runif(nbRainG,0,xMax)
yPoint <- runif(nbRainG,0,yMax)
MatCoord<-matrix(0,nr=nbRainG,nc=2)
MatCoord[,1]<-t(xPoint)
MatCoord[,2]<-t(yPoint)
points2<-MatCoord
dim(data)<-NULL
###########################
# PARAMETERS FOR KRIGING
###########################
stepSpace <- 0.25
xkrig <- seq(0,xMax,stepSpace)...