小编Tit*_*552的帖子

这对学校来说是一个问题,但我一直在努力工作几个小时,只需要一个正确的方向.我不是要求完整的答案.

我获得了一个包含学生成绩的数据框,用于各种评估.我必须编写一个函数,该函数将生成一个向量或列表,该函数或列表将给出一个特定评估的最小值,最大值和平均值.

我得到了以下框架:

checkAssessment <- function(df, assessmentName)
{

}

我需要能够编写代码,以便在执行以下代码行时获得下面的确切结果:

checkAssessment(df,"hw1")
# $min
# [1] 0
# 
# $max
# [1] 14
# 
# $avg
# [1] 12.58824

所以,我已经尝试了很多方法来解决这个问题,但没有一个方法可行.最接近的两个是

checkAssessment <- function(df, assessmentName)
{
my_min <- df$assessmentName == min(assessmentName)
my_max <- df$assessmentName == max(assessmentName)
my_avg <- df$assessmentName == mean(assessmentName)
return(df[my_min, ])
return(df[my_max, ])
return(df[my_avg, ])
}

和

checkAssessment <- function(df, assessmentName)
{
my_min <- sapply(df$assessmentName, min)
my_max <- sapply(df$assessmentName, max)
my_avg <- sapply(mean.default(df$assessmentName, trim = 0, na.rm = FALSE,         
...)) …