longreg.plot:

Usage Arguments Examples

Usage

1
longreg.plot(x, x.col, y.col, s.id, regfun = tsreg, scat = TRUE, xlab = "X", ylab = "Y")

Arguments

x
x.col
y.col
s.id
regfun
scat
xlab
ylab

Examples

 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
##---- 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 (x, x.col, y.col, s.id, regfun = tsreg, scat = TRUE, 
    xlab = "X", ylab = "Y") 
{
    ymat = long2mat(x, s.id, y.col)
    xvals = longcov2mat(x, s.id, x.col)
    n = nrow(ymat)
    p = length(x.col) + 1
    if (p != 2) 
        stop("Plot allows a single covariate only")
    outmat = matrix(NA, nrow = n, ncol = p)
    datx = NULL
    daty = NULL
    for (i in 1:n) {
        outmat[i, ] = regfun(as.matrix(xvals[[i]]), ymat[i, ])$coef
        temp = as.matrix(xvals[[i]])
        datx = c(datx, temp)
        daty = c(daty, ymat[i, ])
    }
    if (!scat) 
        plot(datx, daty, type = "n", xlab = xlab, ylab = ylab)
    if (scat) 
        plot(datx, daty, xlab = xlab, ylab = ylab)
    for (i in 1:n) abline(outmat[i, 1], outmat[i, 2])
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.