Displaying 1 result from an estimated 1 matches for "incident_num".
2010 Jul 19
0
to extend data.frame or not ... that is the question
......) attributes(from, ...)
setGeneric("as.CAD")
setMethod("as.CAD", "data.frame",
function(from,row.names=NULL, optional=FALSE, ...){
#new("NFIRS", data=x)
new("CAD",
incidents=unique(from[,c("incident_num",
"incident_type")]),
responses=unique(from[,c("incident_num", "unit",
"response_time")]))
})
### define methods
setMethod("head", "CAD",
function(x, n=5, row.names=NULL, optional=FALSE, ...){...