[Rd] The use of command 'file.choose' seems to make R console crash (PR#10994)

[juryef at yahoo.com]

--0-1806400484-1205889303=:37828
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Content-Id: 
Content-Disposition: inline

Deat R-development team,

   I reported a problem with the R console closing by
itself a few weeks ago, but I think I have narrowed
down the problem to the use of the command
file.choose.

   I work on a HP  dc7600 computer, Windows XP and I
am using R 2.6.2 patched. I attached the script and
csv file I have been testing.

  This is what I do before the R console shuts down
without giving any error messages:

(Open the R console)
1.- I open the script in RWinEdt (version 5.5). Go to
the Edit menu and click 'Select all'.
2.- Click the R-paste icon of RWinEdt.
3.- The R console will pop-up and and new window will
appear asking you to select a file. Select the csv
file I am attaching.
4. R will read the csv file.
5. Now right-click the mouse on the R console, and
select paste. It will ask you to select a file again,
select the same csv file as in step 3.
6.-Repeat step 5, 2 or 4 times, then R will crash
whitout any notice.

  At this point I need to open the Windows Task
Manager and kill the RGui process that seems to be
running, even though the R console is not open. The
CPU usage will appear at a 100% until I kill the
process.

  R doesn't crash when instead of using file.choose I
just type the path where the file can be found. The
only reason why I started using 'file.choose' is
because people not familiar with R need to run the
scripts I write.

  I hope my report is clear enough, otherwise, please
let me know if I missed anything.

   I am very grateful to all the people who is so
generous with their time to provide us with such a
powerful language like R. Thank you!

Judith


      ____________________________________________________________________________________
Looking for last minute shopping deals?  

--0-1806400484-1205889303=:37828
Content-Type: application/octet-stream; name="for_test.csv"
Content-Transfer-Encoding: base64
Content-Description: 1952973407-for_test.csv
Content-Disposition: attachment; filename="for_test.csv"

dCxzLHRpLHRyLHYscHAscHBvLG1wLHIsYWMsayxmLHIsYSxuDQo4MSw3LjQ3
MzkxNDUwNSwtMSxWZWhpY2xlLDQ0OCwxMzgsMTU1LDE0Ni41LDIxLjc2ODgy
MjksNDQ2LE5vLHksLG4sNg0KODEsMTAuNzM3MDk4OTMsMixWZWhpY2xlLDU5
Miw3MywxMDUsODksMTcuMzg0NTk0Nyw1ODYsTm8seSwsbiw2DQo4MSwxMC4z
NTI3MTcxNiw2LFZlaGljbGUsNTcxLDEwMiwxMjksMTE1LjUsMjIuMjM0NDQz
LDU3OCxObyx5LCxuLDYNCjgxLDguMTMwNzczMDY1LDksVmVoaWNsZSwxMDg2
LDEwOCwxMzQsMTIxLDIzLjk5MTI2NzMsNTk1LFllcyx5LCxuLDYNCjgxLDEw
LjAzMzcwMDk1LDEzLFZlaGljbGUsMTM2MCwxMTAsMTI2LDExOCwyMC42NTM5
MzQ0LDUyNSxObyx5LCxuLDYNCjY1Niw3Ljk1MTM5ODEzNSwtMSxBLDQwMy40
MjcxODc1LDg5LDgxLDg1LDE2LjAyNjM5NzIsNTY2LE5vLHksLG4sNg0KNjU2
LDQuMjM5MTY5MDYsMixBLDQ0OCwxMjIsNTUsODguNSw4Ljc4ODEyMTEsMjk4
LE5vLHksLG4sNg0KNjU2LDQuODk1ODMzNDk1LDYsQSwyMzEsODgsNjAsNzQs
OC4yNjMxNzM2LDMzNSxObyx5LCx5LDYNCjY1Niw3LjIxNjg1NzY3Myw5LEEs
MjA2LDg0LDcwLDc3LDE0Ljk4NTUwMTMsNTg0LFllcyx5LCxuLDYNCjY1Niwx
MC43MDIzNzczMiwxMyxBLDQ0Nyw4Miw2MSw3MS41LDIxLjgzMDQ4MzQsOTE2
LE5vLHksLG4sNg0KNjYzLDkuOTQ0Mzc3NDIzLC0xLEEsMzYyLjAyODEyOCw4
Miw2NSw3My41LDE2LjY1MjAwMTMsNjgwLE5vLHksLG4sNg0KNjYzLDUuMDQx
ODQyMjIzLDIsQSw0NDYsOTcsODEsODksOC4xMTAxODg5LDI3MyxObyx5LCxu
LDYNCjY2Myw1LjYwNTI2NTczNSw2LEEsMTg4LDEwMCw1OCw3OSw5LjA4MTc1
ODQsMzQ1LE5vLHksLG4sNg0KNjYzLDE0LjIwNTY2MDU4LDksQSwxMDEsNzks
NjIsNzAuNSwyNC4zMjc5MDAzLDEwMzUsWWVzLHksLG4sNg0KNjYzLDEwLjQ4
OTc0Nzc2LDEzLEEsMzEzLDc0LDYwLDY3LDE2Ljk4ODk2NzYsNzYxLE5vLHks
LG4sNg0KNjczLDEzLjM4ODA0MTc0LC0xLFZlaGljbGUsNDU2LjcxOTQwNDUs
OTcsODksOTMsMjMuOTU1OTM3NSw3NzMsTm8seSwsbiw2DQo2NzMsMTIuMDQw
NzAwNjgsMixWZWhpY2xlLDc5NSw3Niw1Nyw2Ni41LDE4LjU0MTQ3OSw4Mzcs
Tm8seSwsbiw2DQo2NzMsMTEuNjc1MjQ4NjIsNixWZWhpY2xlLDExNzcsMTAy
LDc0LDg4LDIxLjU4NDg0MTMsNzM2LE5vLHksLHksNg0KNjczLDExLjcxMjY1
ODg4LDksVmVoaWNsZSwxMjkyLDExNyw2NCw5MC41LDIzLjU5MTk3MzksNzgy
LFllcyx5LCx5LDYNCjY3MywxMS40MTIwNTgzNiwxMyxWZWhpY2xlLDE0ODgs
MTEyLDY2LDg5LDMxLjY2NjE2NjQsMTA2OCxObyx5LCxuLDYNCjY3NSw4LjU3
MTA5MDY5OCwtMSxWZWhpY2xlLDMzOC4wNTExMTQsMTAzLDg4LDk1LjUsMjQu
MjM1MjQyOSw3NjEsTm8seSwsbiw2DQo2NzUsMTEuODM3MTk4NzMsMixWZWhp
Y2xlLDQ3MSw3OSw2OCw3My41LDIwLjMyMjMwMDksODMwLE5vLHksLG4sNg0K
Njc1LDguMjI4MzYxNjk2LDYsVmVoaWNsZSw5NTQsOTgsNzksODguNSwyMi43
NTYzOTA4LDc3MSxObyx5LCx5LDYNCjY3NSwxMS40MjUxMjkxOCw5LFZlaGlj
bGUsMTEyMiwxMDIsNzYsODksMjUuNjM4NDM1OSw4NjQsWWVzLHksLHksNg0K
Njc1LDEzLjIzNjA3MzAyLDEzLFZlaGljbGUsMTYyNCw5NSwxMDAsOTcuNSwy
NS4zOTkxMjY1LDc4MixObyx5LCxuLDYNCjcwNCw3Ljg3NzI2OTk4MywtMSxB
LDQ2Mi45MDIxMzc1LDEyMywxMzEsMTI3LDI5LjAwMDc2NjMsNjg1LE5vLHks
LG4sNg0KNzA0LDUuNjY4MDE0MTY4LDIsQSwzOTYsMTM1LDEwOSwxMjIsMTIu
MDY0NDYwMSwyOTcsTm8seSwsbiw2DQo3MDQsOC44MDU0MjgwMjgsNixBLDE1
NCwxMjYsODksMTA3LjUsMTguODkyMTEwNiw1MjcsTm8seSwsbiw2DQo3MDQs
OC41Nzc2MjI2NTMsOSxBLDEwOSwxNTIsMTA1LDEyOC41LDI4LjQyODE1Njks
NjY0LFllcyx5LCxuLDYNCjcwNCwxMC41ODM1ODA5NywxMyxBLDI3NiwxMzUs
MTA1LDEyMCwyNS43NDQ0MjUzLDY0NCxObyx5LCxuLDYNCjcxNCwxMy40NDM2
NjM4NCwtMSxBLDQ3Mi43MjYsMTUzLDExNiwxMzQuNSwyOC41MjI4MTQxLDYz
NixObyx5LCxuLDYNCjcxNCw0LjcwMzU5MDUxMywyLEEsMzk4LDEyOCw4MSwx
MDQuNSw4Ljg3NTQ0NTcsMjU1LE5vLHksLG4sNg0KNzE0LDcuMjkxMzg1MTcz
LDYsQSw5NSw3Nyw0Niw2MS41LDEwLjM0Nzk2NTEsNTA1LE5vLHksLG4sNg0K
NzE0LDEwLjQxNzc1MDM2LDksQSw4MSwxMjUsMTIzLDEyNCwzMC4wNjM2Niw3
MjcsWWVzLHksLG4sNg0KNzE0LDEzLjU2MDg3NTY2LDEzLEEsMjYxLDc5LDc1
LDc3LDI2LjI2NTcwNjUsMTAyMyxObyx5LCxuLDYNCjcxNyw1Ljk4MDg1NTk0
MywtMSxBLDMzNC43MjIwNTIsMTYxLDgyLDEyMS41LDE3LjA2MDYyNzEsNDIx
LE5vLHksLG4sNg0KNzE3LDMuOTk4NDcxOTE4LDIsQSwzMjcsMTAzLDcwLDg2
LjUsNS42ODk3NjQzLDE5NyxObyx5LCxuLDYNCjcxNyw0Ljk4OTc3MjY3OCw2
LEEsMTUxLDk2LDgwLDg4LDExLjg3MTgxMjcsNDA1LE5vLHksLG4sNg0KNzE3
LDkuMzQyMTQxMzg4LDEzLEEsNDEzLDEwMiw3Niw4OSwyNC40MTEyMjUzLDgy
MyxObyx5LCxuLDYNCjcxOSwxMS40ODc5NjcyNSwtMSxWZWhpY2xlLDM0MS41
MTkyLDc5LDk0LDg2LjUsMTguNTk0ODA3LDY0NSxObyx5LCxuLDYNCjcxOSwx
MS40Njg1ODU3MywyLFZlaGljbGUsNDU1LDg5LDY5LDc5LDE5LjkwODAwOSw3
NTYsTm8seSwsbiw2DQo3MTksMTMuNzg3MDAwOSw2LFZlaGljbGUsNTg5LDE1
MiwxMTMsMTMyLjUsMzQuNDkzNTUwMyw3ODEsTm8seSwsbiw2DQo3MTksMTQu
Njg4MzkzNTksOSxWZWhpY2xlLDYzOSwxNjAsMTM1LDE0Ny41LDQzLjkyMDI3
NDIsODkzLFllcyx5LCx5LDYNCjcyNywxMS40ODEyMjAyNSwtMSxWZWhpY2xl
LDQ2Ni4yNzQyODIsNzYsNDcsNjEuNSwxNS42MDA3NzMxLDc2MSxObyx5LCxu
LDYNCjcyNyw5Ljg5MjMyMTgyOCwyLFZlaGljbGUsNTYwLDU5LDM4LDQ4LjUs
MTMuNjQxNjM1Nyw4NDQsTm8seSwsbiw2DQo3MjcsMTEuNTM3OTQyODksNixW
ZWhpY2xlLDgwNiw3MCw0NSw1Ny41LDE2LjY2MDY2NzEsODY5LE5vLHksLG4s
Ng0KNzI3LDkuODg5OTg1MzIzLDksVmVoaWNsZSwxMDA3LDExMiw2MSw4Ni41
LDI0LjU4Mjg3NDgsODUzLFllcyx5LCx5LDYNCjcyNyw5LjM0MjE0MTM4OCwx
MyxWZWhpY2xlLDkyNiw3Nyw0Miw1OS41LDE4LjU3ODQ3NTMsOTM3LE5vLHks
LG4sNg0KNzMxLDkuNzI3MzMyNTkzLC0xLEEsMzM4LjMxMzg1NzUsMTEwLDk2
LDEwMywyMi43NTgwNTczLDY2MyxObyx5LCxuLDYNCjczMSw0LjgxMjMyMzU2
OCwyLEEsNDA3LDEzNSwxMTQsMTI0LjUsMTEuMDAwMjMzMiwyNjUsTm8seSws
biw2DQo3MzEsNS4xMDc0MTA3ODgsNixBLDE5OCwxMzcsOTgsMTE3LjUsMTAu
NDI0OTU3NCwyNjYsTm8seSwsbiw2DQo3MzEsNy42OTMxNjYzNzUsOSxBLDE5
MSwxMTIsMTE1LDExMy41LDI1LjM5NjEyNjgsNjcxLFllcyx5LCxuLDYNCjcz
MSwxMS4yNzk2MDExLDEzLEEsNTgyLDE2NCwxMDMsMTMzLjUsMzUuNjY2NDMz
LDgwMixObyx5LCxuLDYNCjczNSw5LjYzNjgxNzIxNSwtMSxBLDI4Ni45MTEw
NzIsMTA2LDg2LDk2LDE5LjI5NjczNjgsNjAzLE5vLHksLG4sNg0KNzM1LDQu
NTE2Njc4MzMzLDIsQSwzNDUsMTE3LDk4LDEwNy41LDguMTczMTgyNiwyMjgs
Tm8seSwsbiw2DQo3MzUsNi4zMDI5OTExNSw2LEEsMTYyLDEyNSwxMDEsMTEz
LDEwLjYxODI3MTQsMjgyLE5vLHksLG4sNg0KNzM1LDcuNzk3MzA4NTY1LDks
QSwxODMsMTQwLDEzOCwxMzksMjIuMjIxMTExLDQ4MCxZZXMseSwsbiw2DQo3
MzUsMTIuNTUyNTgwMTIsMTMsQSwzODYsMTE0LDk4LDEwNiwyNy43NzI4ODkx
LDc4NixObyx5LCxuLDYNCjczOCwxNS4wNzcwODIxNiwtMSxWZWhpY2xlLDI5
My42MjIwMiw4Myw3MCw3Ni41LDIyLjA1MTEyOCw4NjUsTm8seSwsbiw2DQo3
MzgsMTQuMjcxNDk0ODcsMixWZWhpY2xlLDQ5Myw3NSw2NSw3MCwyMS4yOTQ1
MzcsOTEzLE5vLHksLG4sNg0KNzM4LDEwLjgyNTQ2NTY4LDYsVmVoaWNsZSw3
MjYsMTA0LDUyLDc4LDE5LjIyNDQxMDcsNzM5LE5vLHksLG4sNg0KNzM4LDEx
Ljc5OTk0OTY1LDksVmVoaWNsZSw4NzQsOTksNjQsODEuNSwyMi4wNDk0NjE1
LDgxMixZZXMseSwsbiw2DQo3MzgsMTYuNTg4NDM2ODQsMTMsVmVoaWNsZSwx
MjA5LDE1OSw5NiwxMjcuNSwzOC42MTMxMzgzLDkwOSxObyx5LCxuLDYNCjc0
MiwxMi4xNzkzOTM3NywtMSxBLDQ1Mi4wNjM1Mjk1LDkyLDg3LDg5LjUsMTcu
NzI2NTYwNSw1OTQsTm8seSwsbiw2DQo3NDIsNi4zMDIyNjQyMTMsMixBLDUw
OSw3NSw2OCw3MS41LDUuOTQ1NzM4NywyNTAsTm8seSwsbiw2DQo3NDIsOC40
NDM0NTI2MjcsNixBLDEzOSw0OCw0OCw0OCw2LjczOTAxMSw0MjEsTm8seSws
biw2DQo3NDQsMTEuMTczNDU2MTksLTEsVmVoaWNsZSwzMjkuMTgwMDE2LDgx
LDY4LDc0LjUsMTQuOTE5ODQxMiw2MDEsTm8seSwsbiw2DQo3NDQsMTQuMDIz
NTM5MDcsMixWZWhpY2xlLDQ2Niw4MSw1Nyw2OSwxOS4yNDMwNzU1LDgzNyxO
byx5LCxuLDYNCjc0NCwxMy4xNDU1Mjg4LDYsVmVoaWNsZSw2NjUsNjYsODIs
NzQsMTcuNDM0MjU2NCw3MDcsTm8seSwsbiw2DQo3NDQsMTUuMDU3MDkxLDks
VmVoaWNsZSw4MTQsNzksNzgsNzguNSwyNC45ODE1MDE2LDk1NSxZZXMseSws
biw2DQo3NDQsMTYuNjA0NjcyNjcsMTMsVmVoaWNsZSwxMTU2LDkzLDg0LDg4
LjUsMjYuOTQxMzA1Niw5MTMsTm8seSwsbiw2DQo3NDcsMTIuMzMyMTA5OTMs
LTEsQSwzNTYuNzA4Miw2NSw2OCw2Ni41LDE4LjA4OTUyNDIsODE2LE5vLHks
LG4sNg0KNzQ3LDUuMjQ5Nzc4OTg4LDIsQSw0NTMsMTEzLDY2LDg5LjUsOS40
Mzc3MjI4LDMxNixObyx5LCxuLDYNCjc0Nyw2LjI5NTIyMDk3Myw2LEEsMTkw
LDEwNSw1NCw3OS41LDEzLjAyOTY5NjksNDkyLE5vLHksLG4sNg0KNzQ3LDE4
LjYzMzU0ODI2LDksQSwxNDgsODAsNTYsNjgsMzQuMzc4ODk1MSwxNTE3LFll
cyx5LCxuLDYNCjc0NywxNi41NjQ5OTg2MywxMyxBLDEwMiw4MSw2Nyw3NCwz
My44NTk5NDcsMTM3MyxObyx5LCxuLDYNCjc0OSwxNC44MjY3NTI0MiwtMSxW
ZWhpY2xlLDM1NS4wMjcyLDUzLDU3LDU1LDE0LjY5OTg2MzIsODAyLE5vLHks
LG4sNg0KNzQ5LDE1LjQ1NDE0NjE1LDIsVmVoaWNsZSw2NDksNzksNjcsNzMs
MjEuMjAwNTQ2NCw4NzEsTm8seSwsbiw2DQo3NDksMTMuNjI1MzU4MzQsNixW
ZWhpY2xlLDg3MCwxMjAsOTgsMTA5LDI0LjI1MzI0MTEsNjY4LE5vLHksLG4s
Ng0KNzQ5LDE0LjkwODExMjc3LDksVmVoaWNsZSw4MDUsOTksNjAsNzkuNSwy
MS4wNDgyMjgzLDc5NCxZZXMseSwsbiw2DQo3NTMsMTIuMzk2NjYxMDQsLTEs
QSwzNjguOTc5Njk1NSw3OSw1MCw2NC41LDE3LjQyNTI1NzMsODExLE5vLHks
LG4sNg0KNzUzLDYuNjU5NjY0Mjc1LDIsQSw0NjMsNzIsMzgsNTUsOC4zMzU0
OTk3LDQ1NSxObyx5LCxuLDYNCjc1Myw2LjE2MDIxMjg3Myw2LEEsMTQ0LDcx
LDQwLDU1LjUsOS42NjEwMzM4LDUyMixObyx5LCxuLDYNCjc1MywxMC43Mzk5
NjQyNSw5LEEsNTYsNDcsNDIsNDQuNSwxMi45NDc3MDUxLDg3MyxZZXMseSws
biw2DQo3NTMsMjEuNDY5NTI0MzgsMTMsQSwxMzMsMTA2LDY0LDg1LDUwLjEx
ODY1NDMsMTc2OSxObyx5LCxuLDYNCjc2MSw5LjU2NTcwNjQ5LC0xLFZlaGlj
bGUsNTMzLjIxMzY0NDUsODUsNTcsNzEsMTMuODMyOTQ5OSw1ODUsTm8seSws
biw2DQo3NjEsNS40OTQ1NTEwNjUsMixWZWhpY2xlLDY5MSw3NCw0MSw1Ny41
LDE3LjExMzI4ODUsODkzLE5vLHksLG4sNg0KNzYxLDkuNDY5NjM4ODI1LDYs
VmVoaWNsZSw5ODcsMTYwLDc5LDExOS41LDI4LjU4MjgwODEsNzE4LE5vLHks
LG4sNg0KNzY4LDkuMDQ1NDc2Njc1LC0xLFZlaGljbGUsMzc4LjI0MTIzNSwx
MjUsODEsMTAzLDIyLjEwMTQ1NjMsNjQ0LE5vLHksLG4sNg0KNzY4LDEzLjUz
NjM1MzgzLDIsVmVoaWNsZSw1NDUsNzgsNjAsNjksMjEuMDc0MjI1Nyw5MTYs
Tm8seSwsbiw2DQo3NjgsMTQuMDc5OTgyNTIsNixWZWhpY2xlLDgwNiwxMDEs
NzYsODguNSwyOC41MzA4MTMzLDk2NyxObyx5LCxuLDYNCjc2OCw4LjMyOTI3
OTA2OCw5LFZlaGljbGUsNzMwLDU2LDAsMjgsNS45MjAwNzQ2LDYzNCxZZXMs
eSwsbiw2DQo3NzEsOS43OTYyOTE4MjUsLTEsVmVoaWNsZSwzNjAuOTMwODE2
LDYyLDQ0LDUzLDExLjQ2NjE4NjYsNjQ5LE5vLHksLG4sNg0KNzcxLDEwLjY4
MjQ2NTc5LDIsVmVoaWNsZSw0NjIsOTQsNDcsNzAuNSwxOC43MTY0NjE1LDc5
NyxObyx5LCxuLDYNCjc3MSwxMS40MTMwNjMwNSw2LFZlaGljbGUsNjI0LDEy
Miw3Nyw5OS41LDI2LjA3NTM5MjIsNzg2LE5vLHksLG4sNg0KNzcxLDExLjAz
NTE5ODY5LDksVmVoaWNsZSw1NjksNzgsNDQsNjEsMTUuOTg0NDAxNCw3ODYs
WWVzLHksLG4sNg0KNzcyLDEwLjE0MTI0NjMyLC0xLEEsMzA2LjMyOTA4OCw3
OCw0Miw2MCwxMy41NzgzMDg3LDY3OSxObyx5LCxuLDYNCjc3Miw0Ljc2NTQ0
OTE2NSwyLEEsNDY0LDkwLDM0LDYyLDcuNjcyNTY2LDM3MSxObyx5LCxuLDYN
Cjc3MiwzLjAwMzQwOTg2Myw2LEEsMTUyLDY2LDQzLDU0LjUsNy4yNDM5NDIy
LDM5OSxObyx5LCxuLDYNCjc3MiwxMC42NDgyMTYwMSw5LEEsMjE0LDY0LDM5
LDUxLjUsMTcuODQzODgyMSwxMDQwLFllcyx5LCxuLDYNCjc3MiwxMS4yOTU4
MTY0MiwxMyxBLDY0MiwxMjAsNjAsOTAsMjkuMjIxMDc3Niw5NzQsTm8seSws
biw2DQo3ODgsNy4wMTk0NTIyMTMsLTEsVmVoaWNsZSwzNjMuNzY3NzY4LDcy
LDU0LDYzLDkuODEyMDE4Nyw0NjcsTm8seSwsbiw2DQo3ODgsOC42NTM4OTU4
NTMsMixWZWhpY2xlLDYxMCw5OCw1NCw3NiwxNi42ODE2NjUsNjU5LE5vLHks
LG4sNg0KNzg4LDExLjU1NzI3ODE2LDYsVmVoaWNsZSw1NjYsMTk3LDE4OSwx
OTMsNDUuNjY5MDk5Myw3MTAsTm8seSwsbiw2DQo3OTksMTAuNzQ1NTMxMzIs
LTEsQSwzNTMuMTk2OTI0NSw4MCw3Niw3OCwxNC44Njc1MTMxLDU3MixObyx5
LCxuLDYNCjc5OSw1Ljc2NjQ5NjMwMywyLEEsNDAxLDc5LDM2LDU3LjUsNy42
MjU5MDQsMzk4LE5vLHksLG4sNg0KNzk5LDUuNjkyMDE4ODY1LDYsQSwxMTcs
NzgsMzIsNTUsNy44NzMyMTI2LDQyOSxObyx5LCxuLDYNCjc5OSw4Ljg2MDIz
OTk4Myw5LEEsNzMsOTYsNTAsNzMsMTcuMDU1NjI3Niw3MDEsWWVzLHksLG4s
Ng0KNzk5LDEwLjU4ODQ4NjQzLDEzLEEsMjA1LDEwOCw3Niw5MiwyMy40MTcz
MjQ3LDc2NCxObyx5LCxuLDYNCg==

--0-1806400484-1205889303=:37828
Content-Type: text/plain; name="test.R"
Content-Description: 2319129426-test.R
Content-Disposition: inline; filename="test.R"



filename<-file.choose()


dat<-read.csv(filename)
names(dat)<-c("tag","suv","timep","tx","tv","preg","postg","meang","mr","ki","hfd","fast","bw","dm","td")
dat<-dat[,1:15]

--0-1806400484-1205889303=:37828--