R_assignment#Final

1.使用layout函數數生成一上一下繪圖布局，(Hint: 3圖寬度比 1:4:1；高度比 5:1:5)

## ch19_1

attach(crabs)

layout(matrix(c(0,1,0,0,0,0,0,2,0),3,3,byrow=TRUE)

       ,heights=c(5,1,5), widths = c(1,4,1))

plot(y)之直方圖及密度圖

ch16_2 <- function()

{

    x <- rnorm(100, 60, 12)

    x.hist <- hist(x, freq = F)

    lines(density(x))

    print(x.hist)

}

2.繪製一正七角星圖形

## ch19_2

deg2rad = function(deg) {

  return((pi * deg) / 180)

}

ch19_2 <- function()

{

  plot(c(-1,-1), c(1,1), type = "n", xlab = "", ylab = "",

       xaxs = "i", yaxs = "i", xlim = c(-1.2, 1.2), ylim = c(-1.2, 1.2))

  x1 = cos(deg2rad(77.1428)); y1 = sin(deg2rad(77.1428));

  x2 = cos(deg2rad(25.7144)); y2 = sin(deg2rad(25.7144));

  x3 = cos(deg2rad(51.4286)); y3 = sin(deg2rad(51.4286))

  x <- c(cos(0), -x1, -x2, x3, x3, -x2, -x1)

  y <- c(sin(0), y1, -y2, -y3, y3, y2, -y1)

  polygon(x, y, col = 4, density = NULL)

  title("七角星")

}

dev.off()

dev.new()

ch19_2()

3.使用layout函數匯出FL對CL之散步圖及各自的直方圖(或箱型圖)

##ch19_3

library(MASS)

layout(matrix(c(0,2,3,1), 2, 2, byrow = TRUE),widths = c(1,3), heights = c(1,3), respect = TRUE)

plot(crabs[,c(6,4)], main = "FL vs CL scatters")

hist(crabs$CL)

boxplot(crabs$FL, main = "boxplot of FL")

ReadDaBook#007-真確

    

       雖然我本身不是學傳播的，但對於統計人來說，媒體識讀中數據還是佔很大一部分，也是會造成多數人誤解以及誤判的最主要原因，台灣在今年1月11號正好經過了2019年各種政治以及國際情勢的風雨後的第一場總統大選，其中改變的，不是台灣人對選舉的熱衷，而是選舉傳播、政治角力以及選票拉鋸的平台從街頭巷尾的宣傳車以及報章雜誌，轉移到了用2進制描述的虛擬網絡世界上，而這本書中所提到的各種偏見以及誤解，正好可以解釋以及成為網絡發展快速不適症的各位患者的一帖解藥。

      書上開頭就是一張彩頁的泡泡圖，橫軸是人均GDP，縱軸是平均壽命，描寫世界有很多種方式，但是用圖表絕對是最鮮明也最引人注目的一種，只不過圖的解釋方式有很多種，就像這世界的解釋方式有很多種是一樣的，只是很多人都只注意自己注意的，像剛開頁的我只注意怎麼沒有一顆泡泡是代表台灣；遑論作者是不是親中派，書上一些觀念還是挺健康而且值得效仿的，以下就整理我認為值得思考咀嚼之處。

       通書圍繞著上圖的10種直覺式的判斷失真來講述以及其預防方法，第一種就是「二分法」，存在著非黑即白的意涵，也是人類最擅長做的事情-簡化，把搞不懂的事物通通歸類進非己類，好似如此問題就解決了，問題是複雜問題沒有簡單回答，不了解的事物也沒有簡單分類，所以像近些年的台灣的政治，中間選民厭倦非藍即綠的環境，第三第四勢力紛紛崛起，造成政壇百家爭鳴，這是民主蓬勃的展現，也是好的現象，但大家還是偏向將新政黨分類為親藍或親綠，雖然各家政見南轅北轍，看顏色至少比看政見輕鬆；第二種是「負面型直覺」，我最常說的就是亞馬遜雨林大火的例子，每年都燒，但去年(2019)為何強調得比往年嚴重?是真的比較嚴重還是新聞報得比較嚴重?往往人類習慣負面性思考，畢竟基因記憶告訴我們必須避開所有威脅生存的危險，但現在已經不再是遠古時代叢林猛獸之時，應該在害怕前先好好冷靜一會兒，好好查證再決定有沒有必要害怕。

   

       第三種「直線型」和第四種「恐懼型」直覺偏誤其實可以和在一起說，人類是腦補很嚴重的生物，是優點也是缺點，優點是想像力能夠帶給人類預演一些可能情況且避免出錯的能力，但過度的想像力可以謂之腦補了，想像人口增長會一直是如此，直到人口爆炸、想像伊波拉病毒就在自己身邊，跑過迴歸分析的統計人都不敢說模型百分百正確了，何來一定會如何之說?所以我很喜歡統計學家費雪說過的一句名言，所有模型都是錯的，但有些很好用。小心假設求證之餘，亦不要快速斷言。

       第五和第六種分別是「失真型」以及「概括型」直覺偏誤，一言以蔽之就是沒有找到對的比較基準。在搞投資的都知道，漲跌幅要看市場才能知其大小，若是在成熟的市場，1、2%就是幅度極大了，但若是在成長中的新興市場，10%都不是個角色；同樣的在分類上，將不同國家類似的散戶行為應是歸類成一塊，很可能讓你虧一大屁股錢，沒搞清楚背後的風土民情以及行為背後真正的原因而胡亂歸類且出手，市場會用看不見的手給你一頓教訓。

       第七和第八種分別是「宿命型」以及「怪罪型」直覺偏誤，出國工作的台灣朋友最常說的一句話就是「台灣是鬼島」，這種宿命說不知從誰而起，但卻是可以預想而知的，經濟成長低迷，全球皆然，為何就台灣會有這種命定之說呢?事實上人類傾向將解決不了的事情推給宿命，或怪罪給某一個特定人士，但還是老話一句，複雜的問題不會有簡單的解答，不是單一現象或是特定人士所能解決的，怪罪無濟於事。

       最後兩種，分別是「單一觀點」和「急迫性」直覺偏誤，這兩種最常在看似需要立即下決定的緊要關頭上出現，比如像這次選舉前最熱的香港反送中運動，舉國口號都是今日香港明日台灣，雖說生於憂患死於安樂，但也不應該杞人憂天，說著馬上就得投降中共或者立即與其開戰的胡話，所有的國際關係都不是一觸即發的，冷靜下來看清局勢，找尋可以協助的國際資源以及擬定策略緩物而行才是佳策，操弄亡國感或增加統獨撕裂絕對不是好的辦法，並不是所有的事情都必須急迫的使用槌子一槌解決，而是事緩則圓。

       作者用他在公衛以及醫療領域的例子配合生動的圖表說明了以上種的偏誤，並說此書是他此生最後的一搏，用以對抗世上的無知，我認為再好不過，是以作為資訊時代新住民，任意受到聳動標題帶起情緒或者埋頭就幹著實會壞了許多事，時刻提醒自己不要成為標題以及恐懼的奴隸，推薦給每個人放在書櫃裡時時翻出警醒自己。

ReadDaBook#006-巴菲特原則

       人類的記憶是不可靠而且極其曖昧的，所以孔子說學而時習之還是有道理的，生命裡看了幾本好書、遇到了幾些貴人都是值得記錄下來好好回憶。這次看的這本巴菲特原則，是這學期修習曾宗琳老師(上圖)的CFO課程時受到老師推薦而看的，剛好這學期也在台大的TMBA程式交易部學交易員搞期貨(只是沒有真的投錢進去而已)，看看MC裏頭漂亮的權益曲線自己瞎高興，但曾老師的課就不是一回事了，曾經擔任過TSMC財務長的老師，課堂上分享的可都是實打實的實戰經驗，雖然這本書和自己在寫MC策略時的宗旨不同，一派是指標策略派、一派是公司基本面價值派，抱持著學無止盡以及多所涉獵的想法所以也花了點時間拜讀了投資之神巴菲特他前兒媳寫的書(聽說巴菲特除了家人之外不相授其投資之道，以難怪本書作者是「前」兒媳了)，確實有不少收穫，以此為記。

       本書開頭就說明不需要有很深的數學功底也能讀懂，但必須懂點會計，這也呼應曾老師上課曾經說過的，成功人士沒有是不會看財務報表的，確實，連自家護自己投資的公司賺多少錢都看不懂就甭談成功了。這本書總共分兩篇，第一篇基礎篇比較像是心法，就是闡述巴菲特思考的路徑，以及邏輯；第二篇進階篇就真的要懂些會計原理才有辦法融會貫通了，其實本書作者瑪莉巴菲特也在書中說到過，此書不能只讀一遍，是沒有效果的，但我相信通過寫心得這樣先整理一遍下次再讀肯定效果不一樣。

       基礎篇，一開始說到了「企業前景」這個概念，簡單來講，就是一間好公司，而甚麼公司才能被巴菲特稱作為一間好公司呢?我最喜歡裡面一個比喻，就是站在超市前面，你出來前一定會買也非買不可的東西或品牌是甚麼?裏頭隱含了幾個訊息，就是他可能是獨占性強的品牌，就是說你非買不可，這就是好公司；再一個就是說他可能可以跟你收過路費，例如信用卡的交易手續費，你非付不可的費用，這兩種都是巴菲特認為會有前景的好公司。再來書上提到了「買價和報酬的關係」，巴菲特說，如果你能回答要買甚麼股票和要用甚麼價錢買你就成功了，可見選股固然重要，進場點也是成為決定未來報酬的一個重要考慮點。最後一部分基礎篇提到的就是「通貨膨脹和稅率」，對巴菲特來說，任何會影響獲利的因素都是風險，所以在評估投資時，必須考慮和減除稅和通膨的影響，才能得到最真實、實質的收益，甚至對巴菲特來說，他都不樂意見到他買股的公司發股利，因為股利必須再被政府課一次個人所得稅，還必須花掉公司的保留盈餘(公司能繼續投資以及創造價值的資源)，對長期投資人來說，就是一種成本。

       進階篇，簡單來說就是基礎篇的東西帶真實數字以及配合財務報表，這邊就不一一贅述，僅列印象深刻之部分，對於書中拆解每股盈餘和保留盈餘做比較來計算報酬率我覺得很有意思，和平常只比較公司間每股盈餘就完事的作法很不同，書中還把良好的股票比喻成「股票債券」，良好的「股票債券」除了和公債相同能每年產生固定收益之外，還會隨公司擴張不斷成長(年複利增長)！這裡公債和股票的高下一下立見，也用了巴菲特許多著名的投資案例來拆解講述，這邊我覺得是本書最值得一看再看的地方。

       最後用曾老師的話做個總結，要模仿巴菲特的模式而成功確實是不太容易，畢竟他看了真的很多、很多、很多的財報以及投注大量時間在內，一般人沒辦法把所有時間都投注在其上(畢竟還需要上班、生活)，但你可以關注你最孰悉的產業，或最感興趣的產業，去找出你覺得最有潛力的公司，長期投資，重點是不要像散戶般快進快出，隨著恐懼和貪婪而動，才有機會再領薪水之時靠投資增加自己身價的數字，裏頭的心法和算法可以說是值得深思的精華，期許自己能在前進的過程中再再翻閱並獲得不同啟發，且實踐於自己的資產配置，達到財富自由。