#This examples describes the estimation of a D-vine to winddata,
#available in this package. After the margins are prepared, we estimate a
#D-vine using B-splines with 9 (K+1) marginal knots and penalizing second (m=2)
#order differences (pen=0) of the basis coefficients.
data(Winddata)
print(dim(Winddata))
bspl.diff2 <- Dvine(Winddata,K=8,pen=1,lambda=1000,doMC=TRUE,order.Dvine=FALSE,base="B-spline",m=2)Run the code above in your browser using DataLab