File: PORTING

package info (click to toggle)
cluster 2.0.7-1-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,496 kB
  • sloc: ansic: 2,981; fortran: 123; sh: 18; makefile: 2
file content (114 lines) | stat: -rw-r--r-- 2,585 bytes parent folder | download | duplicates (10)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
* R/mona.q:

Replace
	if(!is.matrix(x))
		stop(message = "x is not a matrix.")
by
	if(!is.matrix(x) && !is.data.frame(x))
	    stop("x must be a matrix or data frame.")

Comment
  x2 <- paste(x2, collapse = "")
and replace
  storage.mode(x2) <- "character"
by
  storage.mode(x2) <- "integer"

* R/plothier.q:

Replace `pick <- 2' by `pick <- 3'.
(Undo when plclust is available.)	-- undone for version 1.3-2

Replace
  invisible(return(x))
by
  return(invisible(x))

* R/plotpart.q:

Replace
  invisible(return(x))
by
  return(invisible(x))

Replace `pick <- 2' by `pick <- 4'.
(Undo when clusplots really work.)

In code for clusplot.default(), remove cmd() and replace
  x1 <- cmd(x, k = 2, eig = T, add = T)
  if(x1$ac < 0)
    x1 <- cmd(x, k = 2, eig = T)
by
  x1 <- cmdscale(x, k = 2, eig = T)
(Unfix when we have the `add' argument to cmdscale().)

Replace `rep.int' by `rep'.

Replace `text.default' by `text'.

* R/zzz.R:
Add
  .First.lib <- function(lib, pkg) {
    require(mva)
    library.dynam("cluster", pkg, lib)
    assign("plclust", .Alias(plot.hclust), pos = "package:cluster")
  }

* src/mona.f:
Replace
  CHARACTER KX(NN,JPP),NZF
by
  INTEGER KX(NN,JPP),NZF
Change all '0' to 0.
Change all '1' to 1.

* R/daisy.q:
* src/daisy.f:

(BDR) Rewrite to pass integers rather than C character strings to 
Fortran.

************************************************************************

The directory `man' contains R documentation sources converted via
`Sd2Rd -x' from the S documentation sources.  (In earlier versions, it
was helpful to run `.CONV/FIXME.pl' before converting.)

* man/fanny.Rd:
Replace the displayed equation by
  \deqn{\sum_{v=1}^k
    \frac{\sum_{i=1}^n\sum_{j=1}^n u_{iv}^2 u_{jv}^2 d(i,j)}{
      2 \sum_{j=1}^n u_{jv}^2}}{
    SUM_v (SUM_(i,j) u(i,v)^2 u(j,v)^2 d(i,j)) / (2 SUM_j u(j,v)^2)}

All examples hand-edited!

************************************************************************

============== Martin Maechler (many things are in Changelog!) ===========

src/clara.f :
~~~~~~~~~~~

  *) to lowercase only :

	  tr A-Z a-z < clara.f.~1~ > clara.f.~2~

  1) to lowercase 
     and change initial comments to 'c' (because of Emacs' indentation):

	  tr A-Z a-z < clara.f.~1~ | sed '/^cc/s//c/'> clara.f.~2~

  2) Inside Emacs of clara.f.~2~

     C-x C-w	(write-file "clara.f.~3~")

     Repeat about 6 times
	  M-C-q   (fortran-indent-subprogram)
	  M-C-e   (end-of-fortran-subprogram)

     M->	(end-of-buffer)
     C-x C-o 	(delete-blank-lines)

     C-x h	(mark-whole-buffer)
     M-x tabify  	 			(tabify (point-min) (point-max))