## Not run:
# num_pois<-2
# num_bin<-1
# num_ord<-2
# num_norm<-1
# lamvec=sample(10,2)
# pbin=runif(1)
# pord=list(c(0.3, 0.7), c(0.2, 0.3, 0.5))
# nor.mean=3.1
# nor.var=0.85
# M=
# c(-0.05, 0.26, 0.14, 0.09, 0.14, 0.12, 0.13, -0.02, 0.17, 0.29, -0.04, 0.19, 0.10, 0.35, 0.39)
# N=diag(6)
# N[lower.tri(N)]=M
# TV=N+t(N)
# diag(TV)<-1
# intmat<-
# intermat(num_pois,num_bin,num_ord,num_norm,corr_mat=TV,pbin,pord,lamvec,nor.mean,nor.var)
#
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace