Question

从数据框中获取数据时遇到问题。我的数据框有两个字段：时间（当前为1:10）和每个位置的值。我正在使用S3模型。我创建了具有条件（作为字符串）的函数，然后应该根据该条件返回数据。之后我没有数据。

还有什么人能告诉我如何使用以下表达式获取特定数据的方式编写另一个函数：“object = sts [1：5]”如何编写这样的函数？

sts <- function(timeRange = NULL, valuesForTimeRange = NULL)
{

  me <- data.frame(
    timeRangeFrame = timeRange,
    valuesForEachTime = valuesForTimeRange
  )

  ## Set the name for the class
  class(me) <- append(class(me),"sts")
  return(me)
}

selectMethodWithCondition <- function(objecto, condition)
{
  print("Calling the base selectMethodWithCondition function")
  UseMethod("selectMethodWithCondition",objecto)

}

selectMethodWithCondition.sts <- function(objecto, condition)
{
  print("In selectMethodWithCondition.STS")


  dataFrameToReturn = subset(objecto, eval(condition))

  return(dataFrameToReturn)

}

    stsObiekt = sts(timeRange = c(1:10),valuesForTimeRange = c(1:10))
stsObiekt
class(stsObiekt)

ss <- expression(valuesForEachTime == ",valuesForEachTime > 5 & valuesForEachTime < 10")

dataCondition = selectMethodWithCondition(objecto = stsObiekt,condition = ss)
dataCondition
## Here I get no data

从数据框R获得所需的值

0 个答案: