Question

data=Q2_2011
Mean <- c(mean(data$temp), mean(data$atemp), mean(data$hum), mean(data$windspeed))
Min <- c(min(data$temp), min(data$atemp), min(data$hum), min(data$windspeed))
Max <- c(max(data$temp), max(data$atemp), max(data$hum), max(data$windspeed))
IQR <- c(IQR(data$temp), IQR(data$atemp), IQR(data$hum), IQR(data$windspeed))

attach(data)
DF <- data.frame(Mean,Min, Max, IQR)
rownames(DF) <- c("Temp", "Attemp", "Hum", "Windspeed")
round(DF, digits=3)

-------------------------------------------------------------
summarize <- function(x){
  step1 <- mean(x)
  step2 <- min(x)
  step3 <- max(x)
  step4 <- IQR(x)
  list(step1=step1, step2=step2, step3=step3, step4=step4)
}

summarize(DF)

我想构建一个函数，其结果将与该行上方的多个函数相同。

但是，在我的分配中，我应该使用一个数据框，因此我为我感兴趣的变量创建了一个数据框。但是，在填写函数时，我收到错误消息：参数不是数字或逻辑上：以分位数（as.numeric（x），c（0.25，0.75），na.rm = na.rm，名称= FALSE，返回NAError：（列表）对象不能强制输入“ double”

我读到这是因为数据帧包含多个列。但是，我应该如何创建一个可以处理数据的功能

建立函数-（list）对象不能强制为'double'类型

0 个答案: