R/spmArgRead.r

In SemiPar: Semiparametic Regression

########## S function: spmArgRead ##########

# For extracting the components of an argument
# assignment.

# Last changed: 18 JAN 2005

spmArgRead <- function(arg.assignment)
{

   out <- break.string(arg.assignment,"=")

   arg.name <- out[1]

   arg.val <- eval(parse(text=out[2]))

   # Extract argument assignment information

   return(list(name=arg.name,val=arg.val))
}

########## End of spmArgRead ##########