How to set the default par font = 2?

["Max Zhao" <mzhao@homer.att.com>]

Dear All,

 

I am trying to set the default font to 2, instead of the Splus default 1.

I tried to put it in my .First function so that every time Splus is started, the default font would be 2 for each graphic device that is invoked. Here is what I thought should work, but it did not. Does anybody know how to solve the question?

 

################

.First_function()
{
     tPar <- par()
     tPar$font <- 2
     assign("par", tPar)
}
 

I am using Splus 6.2 in Windows XP environment.

Thanks in advance.

Max