mean(~ prop, data = Tim.null)
sd <- sd(~ prop, data = Tim.null); sd # assign the standard deviation to sd
z <- (0.6 - 0.5) / sd; z # z-score using the assigned sd
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.