Customizing R profile

Question

Possible Duplicate:
Expert R users, what’s in your .Rprofile?

Probably a quiet stupid question, but I cannot manage to change the options in my Rprofile:

.First <- function(){
 options(width=140)
 library(ggplot2)
 library(fPortfolio)
 library(reshape2)
 library(plyr)
 library(plm)
 library(XLConnect)
 library(scales)
 library(lattice)
 library(sos)
 library(car)
 library(fmsb)
 library(reshape)
 library(gridExtra)
 library(rpanel)
 library(psych)
 library(fUnitRoots)
 library(googleVis)
 library(rattle)
 library(gplots)
 library(RODBC)
 library(fGarch)
 library(RcppArmadillo)
 library(fmsb)
 library(forecast)
 library(playwith)
###names 
 n <- function(df) matrix(names(df)) 
##head tail 
 ht <- function(d) rbind(head(d,10),tail(d,10)) 

 ###Missing values 
 propmiss <- function(dataframe) {
    m <- sapply(dataframe, function(x) {
        data.frame(
            nmiss=sum(is.na(x)), 
            n=length(x), 
            propmiss=sum(is.na(x))/length(x)
        )
    })
    d <- data.frame(t(m))
    d <- sapply(d, unlist)
    d <- as.data.frame(d)
    d$variable <- row.names(d)
    row.names(d) <- NULL
    d <- cbind(d[ncol(d)],d[-ncol(d)])
    return(d[order(d$propmiss), ])
}


}

 cat("\nNu kör vi!", date(), "\n") 


.Last <- function(){ 
 cat("\nDags att ta det lite lugnt! ", date(), "\n")
}

In my Rprofile above I want to change options(width=140) but it doesn't work. Also, I can't manage to get the function ht and propmiss to be loaded by the Rprofile. Any suggestions?

Best Regards