Nothing
# Object with zero entries and of fixed dimensions
#
# Creates a numeric object with given dimensions and zero entries
# Argument
# Definition of the class. \code{Argument} is an abstract class. The objects of this class
# are used usually in the final estimation steps.
Argument<- function(dims)
{
args<- array(0, dim=dims)
class(args)<- append(class(args), "Argument")
return(args)
}
# Class definition
# It should be used when vectors or matrices are to be substacked
# dims Dimensions of the argument
# x Vector of names that can be used to be assigned to the columns/rows
# Argument
ArgumentSS<- function(dims, x)
{
#suppose dims is a scalar or two-el vector
if (length(dims)!=2)
stop("The dimension of this argument should be 2")
obj<- Argument(dims)
colnames(obj)<- x
class(obj)<- append(class(obj), "ArgumentSS")
return(obj)
}
# Argument
ArgumentMLE1<- function(dims, x)
{
#suppose dims is a scalar or two-el vector
if (length(dims)!=2)
stop("The dimension of this argument should be 2")
obj<- Argument(dims)
colnames(obj)<- x
class(obj)<- append(class(obj), "ArgumentMLE1")
return(obj)
}
# Class definition
# It should be used when two dimensional matrices are to be halfvectorized
# Argument
ArgumentHvec<- function(dims)
{
hvec<- Argument(dims)
class(hvec)<- append(class(hvec), "ArgumentHvec")
return(hvec)
}
# Argument
ArgumentD<- function(dims)
{
if (length(dims)!=2)
stop(" 'dims' should be a numeric of length 2")
if (dims[1]!=dims[2])
stop("This argument should have equal number of rows and columns")
ad<- Argument(dims)
class(ad)<- append(class(ad), "ArgumentD")
return(ad)
}
# Argument
ArgumentCC<- function(dims)
{
if (length(dims)!=2)
stop(" 'dims' should be a numeric of length 2 ")
acc<- Argument(dims)
class(acc)<- append(class(acc), "ArgumentCC")
return(acc)
}
# Argument
ArgumentSSvec<- function(dims)
{
x<- Argument(dims)
class(x)<- append(class(x), "ArgumentSSvec")
return(x)
}
# Argument
ArgumentEKS_part<- function(dims)
{
x<- Argument(dims)
class(x)<- append(class(x), "ArgumentEKS_part")
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.