问题描述

R自定义函数不是很明白，求指导

范例代码如下：
mystats <- function(x, parametric=TRUE, print=FALSE)
{
if (parametric)
{center <- mean(x); spread <- sd(x)}
else
{center <- median(x); spread <- mad(x)}
if (print & parametric)
{cat ("Mean=", center, "
", "SD=", spread, "
")}
else if (print & !parametric)
{cat("Median=", center, "
", "MAD=", spread, "
")}
result <- list(center=center, spread=spread)
return(result)
}
这几行代码不是很明白：
1.parametirc=TRUE
2.if (parametric)
3.if (print & parametric).

解决方案

parametric=TRUE是指mystats这个函数有个参数叫parametric，并且它的默认值为TRUE
if (parametric)就是当parametric为TRUE的时候要做的事
if (print & parametric)就是当print和parametric都为TRUE的时候要做的事

解决方案二：

求一个能计算加减乘除的 mysql自定义函数