CircNNTSRmult

*

*

*

*

examples

Running examples in ‘CircNNTSRmult-Ex.R’ failed
The error most likely occurred in:

> ### Name: mnntsmarginalgeneral
> ### Title: Mixing Probabilities of the Elements of the Mixture
> ### Aliases: mnntsmarginalgeneral
> 
> ### ** Examples
> 
> # A univariate marginal from a bivariate joint
> 
> set.seed(200)
> Mbiv<-c(2,3)
> Rbiv<-length(Mbiv)
> data(Nest)
> data<-Nest*(pi/180)
> est<-mnntsmanifoldnewtonestimation(data,Mbiv,Rbiv,100)
> est
$cestimates
   1 2                 cestimates
1  0 0  0.0301549375+0.000000000i
2  1 0 -0.0448787954-0.010153612i
3  2 0  0.0008678277+0.013590494i
4  0 1 -0.0440492461-0.039922181i
5  1 1  0.0501488129+0.051321448i
6  2 1 -0.0062466591-0.007092411i
7  0 2  0.0078270461+0.064490150i
8  1 2 -0.0083883563-0.070428564i
9  2 2  0.0080940777+0.013297931i
10 0 3  0.0218507556-0.038675024i
11 1 3 -0.0205240199+0.036139097i
12 2 3  0.0027994102-0.012026095i

$loglik
[1] -116.5119

$AIC
[1] 277.0237

$BIC
[1] 319.0882

$gradnormerror
[1] 7.285441e-11

> cparsmarginal1<-mnntsmarginalgeneral(cpars=est$cestimates,M=Mbiv,R=Rbiv,marginal=1)

 *** caught segfault ***
address 0x1, cause 'invalid permissions'

Traceback:
 1: eigen(Cmatrix, symmetric = TRUE)
 2: mnntsmarginalgeneral(cpars = est$cestimates, M = Mbiv, R = Rbiv,     marginal = 1)
An irrecoverable exception occurred. R is aborting now ...

*

*

*

*

*

*

*

*

*