0

Rの要約関数は、それが指しているファイルが数値であることを考えると、文字変数を取ることができると思いました。bbb では良い結果が得られますが、aaa の要約では問題が生じます。 

# Descriptives For Machine.x
for (n in 1:3500){
   machine_name = paste("machine.wt$Machine.", n, sep="")
   aaa = summary (paste("machine.wt$Machine.", n, sep=""))
   bbb = summary (machine.wt$Machine.1)
}

Error in x - mx : non-numeric argument to binary operator
In addition: Warning messages:
1: In mean.default(x, na.rm = na.rm) :
  argument is not numeric or logical: returning NA
2: In var(x, na.rm = na.rm) : NAs introduced by coercion
3: In mean.default(x, na.rm = na.rm, trim = trim) :
  argument is not numeric or logical: returning NA
4: In var(x, na.rm = na.rm) : NAs introduced by coercion
5: In mean.default(x) : argument is not numeric or logical: returning NA

私のデータは非常に単純です：

Obs.1   Machine.1   Obs.1   Machine.2   Obs.2   Machine.3   Obs.3   Machine.4
1   302.3   1   302.8   1   315.1   1   300.9
2   295.3   2   314.3   2   306.7   2   317.5
3   301.4   3   308.4   3   309.0   3   304.3
4   318.2   4   295.2   4   321.3   4   293.2
5   320.4   5   313.5   5   326.4   5   308.0
4

2 に答える 2

1

を使用subsetしgreplて、ループを完全に回避するのはどうですか?

summary(subset(machine.wt,select=grepl("^Machine",names(machine.wt))))
于 2012-09-12T18:37:54.380 に答える
0

見てfortune(312)から試す

summary( machine.wt[[ paste0('Machine.',n) ]] )
于 2012-09-12T18:36:46.797 に答える