gss/R/dsscden.R

7     if (length(object$ynames)==1&is.vector(y)) {
9         colnames(y) <- object$ynames
11     if (!all(sort(object$ynames)==sort(colnames(y))))
32     if (length(object$ynames)!=1) stop("gss error in psscden: y is not 1-D")
33     if (("sscden1"%in%class(object))&!is.numeric(object$mf[,object$ynames]))
37     mn <- min(ydomain[[object$ynames]])
38     mx <- max(ydomain[[object$ynames]])
47     colnames(y.wk) <- object$ynames
86     if (length(object$ynames)!=1) stop("gss error in qsscden: y is not 1-D")
87     if (("sscden1"%in%class(object))&!is.numeric(object$mf[,object$ynames]))
91     mn <- min(ydomain[[object$ynames]])
92     mx <- max(ydomain[[object$ynames]])
101     colnames(y.wk) <- object$ynames
141     if (!all(sort(object$ynames)==sort(colnames(y))))
186     if (!all(sort(object$ynames)==sort(colnames(y))))