Skip to content

Instantly share code, notes, and snippets.

@clarkfitzg

clarkfitzg/lookup_rt.R

Created May 31, 2017 17:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save clarkfitzg/cebb4ce39cf907fdbc4a929a08a98685 to your computer and use it in GitHub Desktop.
Save clarkfitzg/cebb4ce39cf907fdbc4a929a08a98685 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lookup_rt.R
> lookup::lookup(rt)
stats::rt [closure]
function (n, df, ncp)
{
if (missing(ncp))
.Call(C_rt, n, df)
else if (is.na(ncp)) {
warning("NAs produced")
rep(NaN, n)
}
else rnorm(n, ncp)/sqrt(rchisq(n, df)/df)
}
<bytecode: 0x36423a8>
<environment: namespace:stats>
NULL
> lookup::lookup(C_rt)
Error in as_lookup(x, envir = envir, name = name) :
object 'C_rt' not found
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment