Nothing
#' @export
cohens_q<-function(corr1, corr2) {
zcorr1<-log((1+corr1)/(1-corr1))/2
zcorr2<-log((1+corr2)/(1-corr2))/2
message(paste('Cohens q =', (zcorr1-zcorr2)))}
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.