
snntsmanifoldnewtonestimation(data, M = c(0,0), iter = 1000,
initialpoint = FALSE, cinitial)
data(Datab6fisher_ready)
data<-Datab6fisher_ready
M<-c(4,4)
cpar<-rnorm(prod(M+1))+rnorm(prod(M+1))*complex(real=0,imaginary=1)
cpar[1]<-Re(cpar[1])
cpar<- cpar/sqrt(sum(Mod(cpar)^2))
cest<-snntsmanifoldnewtonestimation(data,c(4,4),5000,TRUE,cpar)
cest
cest<-snntsmanifoldnewtonestimation(data,c(1,2),5000)
cest
Run the code above in your browser using DataLab