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

2752

收藏 2015-06-12

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)
最后一步显示

扫码加我拉你入群

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

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

全部回复

回首天涯

2015-6-12 17:02:24

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

扫码加我拉你入群

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

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

回首天涯

2015-6-12 17:04:05

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"