R/SOP.default.R

Defines functions SOP.default

Documented in SOP.default

SOP.default <-
function(object)
{
   if (missing(object))
   {
      stop("Missing SOP object!")
   }
   result<-list()
   operation<-SOP.base(object)
   result$operation<-operation
   result$call<-match.call()
   class(result)<-"SOP"
   return(result)
}

Try the RSSOP package in your browser

Any scripts or data that you put into this service are public.

RSSOP documentation built on May 2, 2019, 4:53 a.m.