按照R语言实战书写代码，但是最后一步老是成功不了，都是没找到那个变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

mystats<-function(x,parametric=TRUE,print=FALSE){
if(parametric){
center<-mean(x);spread<-sd(x)
}else{
center<-median(x);spread<mad(x)
}
if(print&parametric){
cat("Mean=",center,"\n","SD=",spread,"\n")
}else if(print&!parametric){
cat("Median=",center,"\n","MAD=",spread,"\n")
}
result<-list(center=center,spread=spread)
return(result)
}
set.seed(1234)
x<-rnorm(500)
y<-mystats(x)
y<-mystats(x,parametric=FALSE,print=TRUE)
最后一步显示

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：R语言实战 R语言 stats

最后一步错误，找不到对象"spread"

options(digits=2)
Student<-c("A j","B i","C h","D g","E f","F e","G d","H c","I b","J a")
Math<-c(502,600,412,358,495,512,410,625,573,522)
Science<-c(95,99,80,82,75,85,80,95,89,86)
English<-c(25,22,18,15,20,28,15,30,27,18)
roster<-data.frame(Student,Math,Science,English,stringsAsFactors=FALSE)
roster
z<-scale(roster[,2:4])
z
score<-apply(z,1,mean)
roster<-cbind(roster,score)
roster
y<-quantile(roster$score,c(0.8,0.6,0.4,0.2))
y
roster$grade[score>=y[1]]<-"A"
roster$grade[score<y[1]&score>=y[2]]<-"B"
roster$grade[score<y[2]&score>=y[3]]<-"C"
roster$grade[score<y[3]&score>=y[4]]<-"D"
roster$grade[score<y[4]]<-"F"
roster
name<-strsplit((roster$Student)," "）
name
这个也是一样，最后一步出问题，找不到对象"name"

图片如下

center<-median(x);spread<-mad(x)

打错咯

就是，少了一个“-”

very observant, pals>

一楼那个代码是什么意思？