> setwd ( "/Users/jburkardt/public_html/r_src/xls_io")
> source ( "read_bodytemp.R")

READ_BODYTEMP
  Read the information in the file "bodytemp.csv"
  and print it.

  Here is the information read from "bodytemp.csv":
      V1
1   98.6
2   98.0
3   98.0
4   99.0
5   98.4
6   98.4
7   98.4
8   98.6
9   98.6
10  98.6
11  98.8
12  98.6
13  97.0
14  97.0
15  98.8
16  97.6
17  97.7
18  98.8
19  98.0
20  98.0
21  98.3
22  98.5
23  97.3
24  98.7
25  97.4
26  98.9
27  98.6
28  99.5
29  97.5
30  97.3
31  97.6
32  98.2
33  99.6
34  98.7
35  99.4
36  98.2
37  98.0
38  98.6
39  98.6
40  97.2
41  98.4
42  98.6
43  98.2
44  98.0
45  97.8
46  98.0
47  98.4
48  98.6
49  98.6
50  97.8
51  99.0
52  96.5
53  97.6
54  98.0
55  96.9
56  97.6
57  97.1
58  97.9
59  98.4
60  97.3
61  98.0
62  97.5
63  97.6
64  98.2
65  98.5
66  98.8
67  98.7
68  97.8
69  98.0
70  97.1
71  97.4
72  99.4
73  98.4
74  98.6
75  98.4
76  98.5
77  98.6
78  98.3
79  98.7
80  98.8
81  99.1
82  98.6
83  97.9
84  98.8
85  98.0
86  98.7
87  98.5
88  98.9
89  98.4
90  98.6
91  97.1
92  97.9
93  98.8
94  98.7
95  97.6
96  98.2
97  99.2
98  97.8
99  98.0
100 98.4
101 97.8
102 98.4
103 97.4
104 98.0
105 97.0


READ_BODYTEMP
  Normal end of execution.
> q()