小编no *_*ame的帖子

我想错误地捕获输入值以确保用户输入正确的选择.在这种情况下,有五个选项"ns","dl","sv","asv","cs".我想检查对这些的使用输入,如果这些都不存在然后返回和错误消息,如果空白默认为"ns"并向用户发送消息.我尝试扫描一个矢量字符串,但这不起作用.任何建议表示赞赏

   method = "ns"
   if(method != scan(c("ns", "dl", "sv", "asv" ))) {"Invalid Value"} else {method = method}  

我使用以下内容拟合模型:

mymodel <- glm(LS ~ bs(LA, df = 8) + bs(IN, df = 7),
               family = binomial, data = mydata, na.action = na.omit)

没问题,我现在有模型适合我试图提取使用的结点.我跟着一篇关于使用attr和提取结点的帖子str.那是一个只是样条的模型.我认为这个结在某种程度上就在结构中

我打电话str(mymodel$terms)有..-attr(*, "variables").我无法继续前进,attr但我相对肯定这基本上是我需要做的.任何获得结的指导都表示赞赏.

我现在有两种方式的班级建设:

首先,

setMethod("initialize", signature(.Object = "BondCashFlows"),
                  function(.Object, x, y, ...){ 
                    do some things .Object@foo = array[,m]
                  } 

第二,

BondCashFlows <- function(){do some things new("BondCashFlows", ...)

所以,我的问题是为什么我甚至不得不打扰第一个,因为第二个更多的是用户友好的方式创建对象BondCashFlows？

我明白第一个是课上的方法,但我不知道为什么要这样做