Nothing
#probability vector of measuring each value
#' @export
probs <- function(ket){
#print(paste("Meas 0 Prob:",abs(x[1,1])^2,"Meas 1 Prob:",abs(x[2,1])^2))
abs(ket)^2
}
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.