r - R プロファイルのカスタマイズ

Question

重複の可能性:
エキスパート R ユーザーの皆さん、.Rprofile には何が入っていますか?

おそらく静かでばかげた質問ですが、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")
}

上記の Rprofile を変更したいのですが、うまくいきoptions(width=140)ません。また、関数を取得してRprofileによってロードすることもできませhtんpropmiss。助言がありますか？

よろしくお願いします