read.table("C://bodyweight.txt")


body <- read.table("C://bodyweight.txt")
head(body)

 

> description <- function(x){
+ mx=mean(x)
+ se=sd(x)/sqrt(length(x))
+ med=median(x)
+ mode=as.numeric(names(which.max(table(x))))
+ sx=sd(x)
+ vx=var(x)
+ kurt=mean((x-mean(x))^4)/(mean((x-mean(x))^2))^2-3
+ skew=mean((x-mean(x))^3)/(mean((x-mean(x))^2))^1.5
+ range=max(x)-min(x)
+ cat("column1","\n","평균",mx,"\n",
+ "표준오차",se,"\n",
+ "중앙값",med,"\n",
+ "최빈값",mode,"\n",
+ "표준편차",sx,"\n",
+ "분산",vx,"\n",
+ "첨도",kurt,"\n",
+ "왜도",skew,"\n",
+ "범위",range,"\n",
+ "최소값",min(x),"\n",
+ "최대값",max(x),"\n",
+ "합",sum(x),"\n",
+ "관측수",length(x),"\n")
+}

description(body)

-에러-

뭔가 잘못되었겠지만 뭐가 잘못된지 모르겠내요 초짜라서 ㅠㅠ