Body of lapply function is?
A.
function (X, FUN, ...)
{
FUN <- match.fun(FUN)
if (!is.vector(X) || is.object(X))
X <- as.list(X)
.Internal(lapply(X, FUN))
}B.
function (X, FUN, ...)
{
FUN <- match.fun(FUN)
if (!is.vector(X) | is.object(X))
X <- as.list(X)
.Internal(lapply(X, FUN))
}C.
function (X, FUN, ...)
{
FUN <- match.fun(FUN)
if (is.vector(X) || is.object(X))
X <- as.list(X)
.Internal(lapply(X, FUN))
}D.
function (X, FUN, ...)
{
FUN <- match.fun(FUN)
if (is.vector(X) || is.object(X))
}Answer: Option A

Join The Discussion