Nothing
eta <-
function (K,J,Q)
{
M <- 2^K
A <- alpha(K)
tmp <- matrix(NA,M,J)
for (g in 1:M){ #g is latent pattern
for (j in 1:J){ #j is item
tmp[g,j] <- ifelse(all(as.logical(A[g,]^Q[j,])),1,0)
}
}
return(tmp)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.