我在R中写了一个简单的函数(见下面),效果很好。但是,当我执行代码时,在输出结尾处出现了一个不需要的词:“ Null ”。
我想知道如何修改我当前的代码以删除在此函数给出的输出结尾处出现的不需要的额外单词“Null” ?
这是我的 R代码:
postsigma <- function(n,sigma2,b2,mu,mean){
SigPost <- (1/((n/sigma2)+(1/b2)))
MuPost <- ((SigPost/b2)*mu)+((SigPost/(sigma2/n))*mean)
curve(dnorm(x,MuPost,sqrt(SigPost)),xlim=c(0,MuPost+4),ylim=c(0,dnorm(MuPost,MuPost,sqrt(SigPost))+.02),ylab="Density",main=expression("Posterior of "(mu)))
D <- cat("\t","Mu of Posterior:","\t",MuPost,"\n","\t","Sigma of Posterior:",SigPost)
return(D)}
postsigma(200,15,5,2,5)
答案 0 :(得分:3)
NULL是D的值.R将打印出来。只需删除语句return(D)
,它就会删除NULL。您可能还想在\n
声明
cat
此外,没有理由将cat
的结果保存在D.您也可以不使用D <-
。