library(GeoModels)
################################################################
###
### Example: Simulation of a reparametrized Beta RF
### for beta regression
### with Gaussian and Clayton Copula
### with underlying Wendland correlation.
###
###############################################################
set.seed(261)
NN=1400
x <- runif(NN);y <- runif(NN)
coords=cbind(x,y)
corrmodel="GenWend"
X=cbind(rep(1,NN),runif(NN))
NuisParam("Beta2",num_betas=2,copula="Gaussian")
CorrParam("GenWend")
#### Gaussian copula
param=list(smooth=0,power2=4, min=0,max=1,
mean=0.1,mean1=0.1,scale=0.3,nugget=0,shape=5)
data <- GeoSimCopula(coordx=coords, corrmodel=corrmodel, model="Beta2",param=param,
copula="Gaussian",sparse=TRUE,X=X)$data
quilt.plot(coords,data)
#### Clayton copula
NuisParam("Beta2",num_betas=2,copula="Clayton")
CorrParam("GenWend")
param=list(smooth=0,power2=4, min=0,max=1,
mean=0.2,mean1=0.1,scale=0.3,nugget=0,shape=6,nu=4)
data1 <- GeoSimCopula(coordx=coords, corrmodel=corrmodel, model="Beta2",param=param,
copula="Clayton",sparse=TRUE,X=X)$data
hist(data1,freq=FALSE)
quilt.plot(coords,data1)
Run the code above in your browser using DataLab