View source: R/Basic_functions.R
| aveM | R Documentation | 
Average Mj for Mx and My Here subjects are by rows, columns correspond to components
aveM(mjX, mjY)
mjX | 
 n x rj  | 
mjY | 
 n x rj  | 
a new Mj
#get simulation data
data(exampledata)
data=exampledata
# To get n.comp value, we can use NG_number function.
# use JB statistic as the measure of nongaussianity to run lngca with df=0
output_JB=singR(dX=exampledata$dX,dY=exampledata$dY,
df=0,rho_extent="small",distribution="JB",individual=TRUE)
est.Mj = aveM(output_JB$est.Mjx,output_JB$est.Mjy)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.