# I define a bivariate copula composed of 2 marginals each with 2 parameters
gmb<-gumbelCopula(4,dim=2)
# Idefine the bivariate CDF specifying the already fitted parameters
from the log normal and negative binomial
myCDF<-mvdc(gmb,margins=c("lnorm","nbinom"),paramMargins=list(list(meanlog=11.69,sdlog=0.7781),list(mu=16,prob=0.257)))
# Instead of supplying the risk data i try to simulate and get an error.
How can i resolve the error.
x <- rMvdc(myCDF,1000)
Error in rMvdc(myCDF, 1000) :
trying to get slot "copula" from an object of a basic class ("numeric")
with no slots
# I also try to simulate the risk data as a matrix
y<- cbind(rlnorm(1000,11.69,0.7781),rnbinom(1000,mu=16,size=2.6))
#I attempt to fit the parameters of the copula starting with the parameters
meanlog=12,sdlog=2 for the log normal and mu=16, prob=0.3 for the negative
binomial. I get an error how can i resolve this
Fitted<-fitMvdc(y, myCDF, c(3,9,1,1))
Error in fitMvdc(y, myCDF, c(3, 9, 1, 1)) :
The lengths of 'start' and mvdc parameters do not match.
With Kind Regards,
Charles
Chief Risk Officer Directline Assurance Co. Ltd(Kenya)
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
