Как создать функцию Summary () с нуля?

Question

Я хочу создать Определенную пользовательскую функцию, которая очень похожа на резюме (), просто на практике, но она выдает мне сообщение об ошибке.Кто-нибудь может мне помочь?

quick_view < - function (df) {
    n == 0
    while (n <= 1) {
        quantile < -quantile(df, n)
        n < -n + 0.25
        if (n == 0) {
            sprintf("Min: %s", quantile)
        } elseif(n == 0.25){
            sprintf("1Q: %s", quantile)
        } elseif(n == 0.5){
            sprintf("2Q: %s", quantile)
        } elseif(n == 0.75){
            sprintf("3Q: %s", quantile)
        }else {
            sprintf("Max: %s", quantile)
        }
    }
}

Answer 1

Вы почти у цели.Нет необходимости указывать n <- n + 0.25 в каждом операторе while.Просто в конце достаточно хорошо.

quick_view<- function(df){
  n <- 0
  while (n<=1){
    quantiles <- quantile(df,n)

    if (n==0){
      print(sprintf("Min: %s", quantiles))
    } else if(n==0.25){
      print(sprintf("1Q: %s",quantiles))
    } else if(n==0.5){
      print(sprintf("2Q: %s",quantiles))
    } else if(n==0.75){
      print(sprintf("3Q: %s",quantiles))
    } else{
      print(sprintf("Max: %s",quantiles))
    }
    n <- n + 0.25
  } 
}

quick_view(1:10)
[1] "Min: 1"
[1] "1Q: 3.25"
[1] "2Q: 5.5"
[1] "3Q: 7.75"
[1] "Max: 10"