ancdet2C.sub <-
function(xy,tr=.2,FRAC=.5){
#
xy1=elimna(xy[,1:3])
xy2=elimna(xy[,4:6])
x1=xy1[,1:2]
y1=xy1[,3]
x2=xy2[,1:2]
y2=xy2[,3]
res1=ancov2COV(x1,y1,x2,y2,pr=F,FRAC=FRAC)$min.p.value
res1
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.