Running examples in 'gamlss.add-Ex.R' failed
The error most likely occurred in:

> ### Name: nn
> ### Title: A interface function to use nnet() function within GAMLSS
> ### Aliases: nn nn.control
> ### Keywords: regression
> 
> ### ** Examples
> 
> library(nnet)
> data(rock)
> area1<- with(rock,area/10000)
> peri1<- with (rock,peri/10000) 
> rock1<- with(rock, data.frame(perm, area=area1, peri=peri1, shape))
> # fit nnet
> r1 <- nnet(log(perm)~area+peri+shape, rock1, size=3, decay=1e-3, linout=TRUE, 
+             skip=TRUE, max=1000, Hess=TRUE)
# weights:  19
initial  value 1051.155416 
iter  10 value 32.131759
iter  20 value 30.391918
iter  30 value 29.282226
iter  40 value 29.221566
iter  50 value 29.176336
iter  60 value 29.132690
iter  70 value 29.125042
iter  80 value 29.119739
iter  90 value 29.114257
iter 100 value 27.588635
iter 110 value 20.190850
iter 120 value 15.146542
iter 130 value 14.524376
iter 140 value 13.997865
iter 150 value 13.561086
iter 160 value 13.510416
iter 170 value 13.470892
iter 180 value 13.464932
iter 190 value 13.441735
iter 200 value 13.371417
iter 210 value 12.924382
iter 220 value 12.891957
iter 230 value 12.815494
iter 240 value 12.800617
iter 250 value 12.795202
iter 260 value 12.792221
iter 270 value 12.784319
iter 280 value 12.773742
iter 290 value 12.762258
iter 300 value 12.760922
iter 310 value 12.758301
iter 320 value 12.757601
iter 330 value 12.757486
final  value 12.757482 
converged
> summary(r1) 
a 3-3-1 network with 19 weights
options were - skip-layer connections  linear output units  decay=0.001
 b->h1 i1->h1 i2->h1 i3->h1 
  4.47 -11.16  15.31  -8.78 
 b->h2 i1->h2 i2->h2 i3->h2 
  9.15 -14.67  18.43 -22.94 
 b->h3 i1->h3 i2->h3 i3->h3 
  1.23  -9.78   7.06  -3.77 
  b->o  h1->o  h2->o  h3->o  i1->o  i2->o  i3->o 
  8.77 -16.04   8.63   9.61  -1.98  -4.17   1.66 
> # get gamlss
> library(gamlss) 
> cc <- nn.control(size=3, decay=1e-3, linout=TRUE, skip=TRUE, max=1000, 
+       Hess=TRUE)
> g1 <- gamlss(log(perm)~nn(~area+peri+shape,size=3, control=cc), data=rock1)
GAMLSS-RS iteration 1: Global Deviance = 73.6172 
GAMLSS-RS iteration 2: Global Deviance = 64.7804 
GAMLSS-RS iteration 3: Global Deviance = 64.7804 
> summary(g1$mu.coefSmo[[1]])
a 3-3-1 network with 19 weights
options were - skip-layer connections  linear output units  decay=0.001
 b->h1 i1->h1 i2->h1 i3->h1 
  1.77 -12.53   0.70   7.32 
 b->h2 i1->h2 i2->h2 i3->h2 
  0.07 -10.86  14.38   4.73 
 b->h3 i1->h3 i2->h3 i3->h3 
 17.36 -11.34 -29.05   8.47 
  b->o  h1->o  h2->o  h3->o  i1->o  i2->o  i3->o 
 -0.74  14.03 -21.43   3.02  -1.74   4.64   0.94 
> # predict
> Xp <- expand.grid(area=seq(0.1,1.2,0.05), peri=seq(0,0.5, 0.02), shape=0.2)
> rocknew <- cbind(Xp, fit=predict(r1, newdata=Xp))
> library(lattice)
> wf1<-wireframe(fit~area+peri, rocknew, screen=list(z=160, x=-60), 
+                aspect=c(1, 0.5), drape=TRUE,  main="nnet()")
> rocknew1 <- cbind(Xp, fit=predict(g1, newdata=Xp))
new prediction 
> wf2<-wireframe(fit~area+peri, rocknew1, screen=list(z=160, x=-60), 
+                aspect=c(1, 0.5), drape=TRUE,  main="nn()")
> print(wf1, split=c(1,1,2,1), more=TRUE)
> print(wf2, split=c(2,1,2,1))
> #--------------------------------------------------------------------------------------- 
>  data(rent)
Warning in gzfile(file, "rb") :
  cannot open compressed file 'D:\temp\RtmpILcZAC\RLIBS_21ee84660281c\gamlss.data/data/Rdata.rds', probable reason 'Permission denied'
Error in gzfile(file, "rb") : cannot open the connection
Calls: data -> readRDS -> gzfile
Execution halted