e1<- rnorm(15);
e2<- rnorm(15);
temp1 <- Nested_Stats_S0(e1,e2,lam10=0.5,lam20=0.8)
temp1$S_lam10_lam20_adj_NW #S^0_T(lam10, lam^20) with CW adjustment and NW correction
temp1$pv_S_lam10_lam20_adj_NW #P value of it
Run the code above in your browser using DataLab