1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
# Extract exogenous variables:
exo <- function(x)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[!is.na(x@Vars$exogenous)][x@Vars$exogenous[!is.na(x@Vars$exogenous)]]
}
# Set exogenous variables:
"exo<-" <- function(x,value)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[!is.na(x@Vars$exogenous)][x@Vars$exogenous[!is.na(x@Vars$exogenous)]] <- FALSE
x@Vars$exogenous[x@Vars$name%in%value] <- TRUE
return(x)
}
# Extract endogenous variables:
endo <- function(x)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[!is.na(x@Vars$exogenous)][!x@Vars$exogenous[!is.na(x@Vars$exogenous)]]
}
# Set endogenous variables:
"endo<-" <- function(x,value)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[!is.na(x@Vars$exogenous)][!x@Vars$exogenous[!is.na(x@Vars$exogenous)]] <- TRUE
x@Vars$exogenous[x@Vars$name%in%value] <- FALSE
return(x)
}
# Extract manifest variables:
man <- function(x)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[x@Vars$manifest]
}
# Set manifest variables:
"man<-" <- function(x,value)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$manifest[x@Vars$name%in%value] <- TRUE
return(x)
}
# Extract latent variables:
lat <- function(x)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$name[!x@Vars$manifest]
}
# Set latent variables:
"lat<-" <- function(x,value)
{
if (!"semPlotModel"%in%class(x)) stop("'semPlotModel' object is required")
x@Vars$manifest[x@Vars$name%in%value] <- FALSE
return(x)
}
|
