← Back to branch summary

~ubuntu-branches/debian/sid/r-cran-mass/sid

« back to all changes in this revision

Viewing changes to R/isoMDS.R

  • Committer: Package Import Robot
  • Author(s): Dirk Eddelbuettel
  • Date: 2012-04-26 08:12:22 UTC
  • mto: This revision was merged to the branch mainline in revision 14.
  • Revision ID: package-import@ubuntu.com-20120426081222-3l8j5zdll8q2hup5
Tags: upstream-7.3-18
Import upstream version 7.3-18

Show diffs side-by-side

added added

removed removed

Lines of Context:
R/isoMDS.R
32
32
        x <- x + t(x)
33
33
        rn <- attr(d, "Labels")
34
34
    }
 
35
    n <- as.integer(n)
 
36
    if(is.na(n)) stop("invalid size")
35
37
    ab <- x[row(x) < col(x)] <= 0
36
38
    if (any(ab, na.rm = TRUE)) {
37
39
        ab <- !is.na(ab) & ab
55
57
    .C(VR_mds_init_data,
56
58
       as.integer(nd),
57
59
       as.integer(k),
58
 
       as.integer(n),
 
60
       n,
59
61
       as.integer(ord - 1),
60
62
       as.integer(order(ord) - 1),
61
63
       as.double(y),