Nothing
if (getRversion() >= '2.15.1')
globalVariables(c('Z', 'X', 'mX', 'GHw', 'obs', 'p', 'q.', 'na.ind', 'prior', 'nx', 'object', 'B',
'robust.se', 'form', 'factors', 'k', 'ncatg', 'IRT.param', 'nfreqs', 'ind1', 'ind2', 'XX', 'n', 'gh'))
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.