Revision 9db5cb10e6504bf07dee9dff590abf263209d7c1 authored by Andrej-Nikolai Spiess on 08 August 1977, 00:00:00 UTC, committed by Gabor Csardi on 08 August 1977, 00:00:00 UTC
0 parent
typeid.R
typeid <- function (object)
{
cl <- class(object)[2]
npar <- length(object$fct$names)
mn <- tolower(substr(cl, 1, 1))
type <- paste(mn, npar, sep = "")
return(type)
}
Computing file changes ...