《R語言入門經(jīng)典》第8章，編寫函數(shù)

這一章我感覺整體比較難
課后練習有兩題不會

medAndmea <- function(x,funs){
  if(length(x) == 0) {stop("There is a missing")
  }else{
    funs <- match.arg(funs,choices = c("mea","med"))
    switch (funs,
            "mea" = mean(x),
            "med" = median(x))
  }
}
 x <- c(1,4,3) 
 medAndmea(x,"mea")
最后編輯于 ：
?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
【社區(qū)內容提示】社區(qū)部分內容疑似由AI輔助生成，瀏覽時請結合常識與多方信息審慎甄別。
平臺聲明：文章內容（如有圖片或視頻亦包括在內）由作者上傳并發(fā)布，文章內容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務。

友情鏈接更多精彩內容