# NOT RUN {
## An example with one covariate
ftest1 <- ~ 0 | #SA
1 | #VA
0 | #CB
1 | #barWA
x1 | #barWB
1| #bara
1 #VB
theta <- data.frame(VA = 1, barWA = -1.9, barWB = -2.9,
barWB1 = 0.1, bara = -1.2, VB = 1)
data <- data.frame(x1 = seq(from = -1,to = 2, length.out = 101))
test <- generate.eq(ftest1, data = data, theta = theta)
plot(test, prob = "pr")
## An example with all constants
ftest2 <- ~ 0 | #SA
1 | #VA
0 | #CB
1 | #barWA
1 | #barWB
1 | #bara
1 #VB
theta <- data.frame(VA = 1, barWA = -1.9,
barWB = seq(-2.9, -2.2, length.out = 15),
bara = -1.2,
VB = 1)
test <- generate.eq(ftest2, theta = theta)
plot(test, prob = "pr")
# }
Run the code above in your browser using DataLab