File: PORTING

package info (click to toggle)
r-cran-mda 0.4-10-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, sid
  • size: 780 kB
  • sloc: fortran: 2,597; f90: 15; makefile: 2
file content (74 lines) | stat: -rw-r--r-- 1,853 bytes parent folder | download
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
* src (by BDR)

Convert *.r by ratfor on Solaris. Use modreg versions of
bsplvd.f bvalue.f bvalus.f qsbart.f sbart.f sgram.f sinerp.f sslvrg.f stxwx.f

Change things like work(1) to work(*)

As namat used a double workspace for integers, arrange for an iwork array.

Change things like n-center, center logical (and dble(center) may not
work on all platforms) 

Change uses of bvalue, bsplvd to match those in the modreg code (which has
an extra lent argument).

Chase down a difference in usage of dbksl and replace it by direct calls
to dtrsl.

In dmarss.f, the var array was used without being calculated, so add
additional call to qrreg to calculate it.

* src:

** Get additionally needed files from gamfit on Statlib/general.

** mspline.r:
change
	temp=dble(n-center) / cost - dfoff
to
	temp=dble(n-dble(center)) / cost - dfoff
because center is logical

** remove unneeded symbols from *.r (warnings of f2c) as follows:

bruto.r		    36	   ier ntype
dcalcvar.r	    43	   dn wmean dwrss xbar xcov
dmarss.r	    88	   tem
		   176	   m v
		   614	   flagtot
		   621	   temm
mspline.r	   457	   k
		   537	   wmean
		   584	   xbar
		   737	   wmean
splsm.r		   117	   scrat

** replace real -> double in

** convert *.r to FORTRAN using ratfor
** convert *.f to C using f2c -A -a -P
** beautify using MM's f2c-clean

* Copy dumpdata.mda to R/mda.q.

* mda.q:

** change all single to double

** change all sys.parent() to sys.frame(sys.parent())

** delete code related to is.loaded() or {.bruto,.mars,.mda}.object.

** in predict.fda(), replace
	levels(pclass) <- dimnames(means)[[1]]
	return(factor(pclass))
by
	return(factor(pclass, labels = dimnames(means)[[1]]))

** in mda.fit(), remove unneeded final strcuture() wrapper.

* Create zzz.R.

* Use `Sd2Rd -x' to convert documentation sources to Rd format.  The
examples need major attention.