grp.normal:

In halka9000stg/MyRStatLib: Library of R language on Statics, for Myself.

Usage

grp.normal(t, cl, x0, x1, l0, l1)

Arguments

t
cl
x0
x1
l0
l1

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 (t, cl, x0, x1, l0, l1) 
{
    ln = nrow(t)
    for (i in 1:ln) {
        if (i == 1) {
            d = F
        }
        else {
            d = T
        }
        curve(add = d, dnorm(x, t[i, 1], t[i, 2]), xlim = c(x0, 
            x1), type = "l", col = cl[i])
    }
    title("���K���z")
    vc = numeric(ln)
    for (j in 1:ln) {
        vc[j] = paste("N(", t[j, 1], ",", t[j, 2], ")")
    }
    legend(l0, l1, vc, lty = 1, col = cl)
    abline(v = t[, 1], col = "gray", lty = 2)
    for (k in 1:ln) {
        mtext(text = paste("��=", t[k, 1], sep = ""), at = t[k, 
            1], col = "gray")
    }
  }

halka9000stg/MyRStatLib documentation built on Dec. 20, 2021, 2:46 p.m.