在此先非常感謝W大熱心的回答，謝謝！
我也對 'lm' 這個函數有更深的了解，
但是我嘗試一下還是無法用出我要的結果...
我表達能力不是很好，再把問題換種方式表達，希望您能理解
目前：
```r
square <- function(x) {
cat(" It is a test.", "\n")
cat(" The square of (", x, ") equal to", x^2)
}
temp <- square(3)
```
```
## It is a test.
## The square of ( 3 ) equal to 9
```
```r
temp
```
```
## NULL
```
我希望藉由'其他函數'，可以像'cat'一樣漂亮排版，但又能使用`invisible`來
讓R放棄自動呼叫，變成以下:
```r
temp <- square(3)
temp
```
```
## It is a test.
## The square of ( 3 ) equal to 9
```
希望您能理解，非常感謝您！