idb <-
function(x,n){
#
# Determine whether a sequence of integers contains a 1, 2, ..., n.
# Return idb[i]=1 if the value i is in x; 0 otherwise.
# This function is used by regpre
#
m1<-matrix(0,n,n)
m1<-outer(c(1:n),x,"-")
m1<-ifelse(m1==0,1,0)
idb<-apply(m1,1,sum)
idb<-ifelse(idb>=1,0,1)
idb
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.