## Simulate series:
simulated <- simulateBEKK(2, 1000, c(1,1))
## Prepare the matrix:
simulated <- do.call(cbind, simulated$eps)
## Estimate with default arguments:
estimated <- BEKK(simulated)
## Show diagnostics:
diagnoseBEKK(estimated)Run the code above in your browser using DataLab