https://github.com/cran/IQCC
Revision 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC, committed by Gabor Csardi on 10 March 2010, 00:00:00 UTC
0 parent
Raw File
Tip revision: 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC
version 0.5
Tip revision: 53c14e2
add.data.R
add.data <- function(datum2, estat, T2II, n, j, m = NULL)
{
    b <- T2.2(datum2, estat, n)
    if(is.null(m) == FALSE)
        j <- j + m + 1
    points(j, b[1], pch = 16)
    c <- c(j, j - 1)
    d <- c(b[1], T2II[1])
    lines(c, d)
    T2II <<- b
}
back to top