setvariablelist {ArvoRe}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

setvariablelist(variableMAT, newvariableline = " ", variable.name = " ", action = "edit")

Arguments

variableMAT ~~Describe variableMAT here~~
newvariableline ~~Describe newvariableline here~~
variable.name ~~Describe variable.name here~~
action ~~Describe action here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(variableMAT, newvariableline = " ", variable.name = " ", action = "edit") {
        if (action == "delete") {
                variables <- names(variableMAT)
                ans <- subset(variableMAT, Name != variable.name, select = variables)
        }
        if (action == "add") {
                require(abind)
                ans <- abind(variableMAT, newvariableline, along=1)
        }
        if (action == "edit") {
                variables <- names(variableMAT)
                ans <- subset(variableMAT, Name != variable.name, select = variables)
                
                require(abind)
                ans <- abind(ans, newvariableline, along=1)
        }

        ans <- as.data.frame(ans)
        ans$Name <- as.character(ans$Name)
        ans$Fix.Value <- as.numeric(as.character(ans$Fix.Value))
        ans$Min.Value <- as.numeric(as.character(ans$Min.Value))
        ans$Max.Value <- as.numeric(as.character(ans$Max.Value))
        ans$Notes <- as.character(ans$Notes)
        assign("variableMAT", ans, envir = .EnvironmentArvoRe)
        assign(".workstatus", "unsaved", .EnvironmentArvoRe)
        
  }

[Package ArvoRe version 0.1.6 Index]