This function creates artificial GAM-type data.frames. The function is mainly used for testing purposes.

GAMart(n = 500, sd = 0.1, seed = FALSE,
  ti = c("none", "vcm", "main", "both"))

Arguments

n

The number of observations.

sd

Standard deviation of the normal errors.

seed

Sets the seed to 111.

ti

For tensor product interaction term, the type of interaction.

Examples

d <- GAMart()
head(d)
#>           num     pnum       bnum cnum bin    cat      cens         eta
#> 1  0.22448771 2.183610 0.59194775   59 yes   high 0.0000000  0.22288422
#> 2 -0.04070049 1.918422 0.46156222   46 yes medium 0.0000000 -0.17194222
#> 3  0.09393145 2.053054 0.52775694   53 yes medium 0.0000000 -0.09285494
#> 4 -0.25124768 1.707875 0.35804212   36  no    low 0.2853643 -0.23426955
#> 5 -0.80988218 1.149241 0.08337734    7  no   none 0.9940416 -0.60198239
#> 6  0.69002031 2.649143 0.82083696   83 yes   high 1.1853554  0.65343018
#>           x1         x2        x3    fac id        lon       lat          err
#> 1 0.04403888 0.03549120 0.4019293 medium  1 0.95454545 0.4090909  0.001603486
#> 2 0.96212875 0.95895070 0.4689313   high  2 0.90909091 0.3636364  0.131241729
#> 3 0.81144865 0.51639646 0.1403924   high  3 0.86363636 0.7272727  0.186786395
#> 4 0.43695375 0.50308477 0.1364540    low  4 0.00000000 0.7727273 -0.016978129
#> 5 0.49433428 0.82186219 0.5042405    low  5 0.09090909 0.4545455 -0.207899789
#> 6 0.46025451 0.06364112 0.9103734 medium  6 0.86363636 0.4090909  0.036590132

if (FALSE) b <- bamlss(num ~ s(x1) + s(x2) + s(x3) + te(lon,lat), data = d)
plot(b)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'b' not found