教学互动

客观世界与思维模型

胡华平

huhuaping01@hotmail.com

西北农林科技大学

2022-10-09

互动目标

这是一个课程互动设计，比较了客观世界与思维模型，形象地展示计量经济学视角下的认知演化阶段。

互动问答

你觉得自己属于哪一类型的人？（单选题）

A.关于身边发生的事情，及其背后的运行规则，我一般都会动态观察并形成动态认知

B.对于身边发生的事情，我觉得它们大都是自己无法看透的规则，就好像冥冥之中都有所注定

C.我内心有关于世界运行规则的认知体系，基于此我看清了自己的道路和身边的事物

D.对于身边发生的事情，我觉得它们大多只是自己能看到的部分事实而已，也很少再多想其背后的运行规则

E.通过身边发生的事情，我大多会对其背后的社会和生活规则形成比较清晰的认知

认知阶段

阶段：1先验学派\(\Rightarrow\) 2实用学派\(\Rightarrow\) 3频率学派\(\Rightarrow\) 4现代学派\(\Rightarrow\) 5贝叶斯学派

\(\Theta\)：代表参数（规律、规则）

\(X\)：代表样本（观测、观察）

统计展示

{shinylive-r}
#| standalone: true
#| viewerHeight: 700
library(shiny)
library(ggplot2)
library(showtext)
showtext_auto()
ui <- fluidPage(
  titlePanel("思维模型状态及选择"),
  sidebarLayout(
    sidebarPanel(
      numericInput(
        inputId = "r1",
        label = "B",
        value = 6
      ),
      numericInput(
        inputId = "r2",
        label = "D",
        value = 12
      ),
      numericInput(
        inputId = "r3",
        label = "C",
        value = 18
      ),
      numericInput(
        inputId = "r4",
        label = "A",
        value = 20
      ),
      numericInput(
        inputId = "r5",
        label = "E",
        value = 6
      )
    ),
    mainPanel(
      plotOutput(outputId = "barPlot")
    )
  )
)
server <- function(input, output) {
  output$barPlot <- renderPlot({
    count <- c(input$r1, input$r2, input$r3, input$r4, input$r5)
    index <- 1:5
    sel <- LETTERS[c(2, 4, 3, 1, 5)]
    xlabel <- paste0(index,"(", sel,")")
    dt <- data.frame(
      x = xlabel,
      num = count
    )
    
    dt |>
      ggplot(aes(x = xlabel, y = num)) +
      geom_bar(stat="identity", fill="steelblue") +
      geom_text(
        aes(label = num),
        vjust=1.6, color="white") +
      labs( x = "选项", y = "人数",
            title = "认知模型测试反馈结果") +
      theme(text = element_text(size = 20))
    
  })
}
shinyApp(ui = ui, server = server)