---
title: "Tim Cook's MIT Commencement Address 2017"
author: "Irina Sokolova <br>"
date: today
format:
html:
toc: true
toc-location: left
theme: united
highlight-style: tango
embed-resources: true
code-fold: show
code-tools: true
editor:
markdown:
wrap: 72
---
# Očakávania a realita
## Očakávanie
Pred vypočutím prejavu Tima Cooka som predpokladala, že zamerí svoj príhovor na technické inovácie, význam umelých inteligencií, škálovanie biznisu a o budovaní úspešnej kariéry.
## Realita
Tim Cook ma prekvapil tým, že technológiu posunul až na druhé miesto. Hlavným motívom prejavu sa stala ľudskosť a etika. Varoval pred tým, aby sa ľudia nezačali správať a myslieť ako stroje bez empatie.
# Esej
## Technológia ako zrkadlo ľudského charakteru
Žijeme v dobe, kedy sa technologický pokrok často zamieňa s ľudským pokrokom. Tim Cook vo svojom prejave na MIT jasne pomenoval zásadnú ilúziu dnešnej spoločnosti. Viera, že samotný algoritmus alebo inovácia dokáže vyriešiť naše najhlbšie problémy. Technológia v skutočnosti nie je spasiteľom ani hrozbou. On je len zosilňovačom zámerov. Ak do vývoja vložíme len chladnú logiku a metriky výkonnosti bez empatie a etiky, vytvoríme svet, ktorý funguje efektívne, ale stráca ľudskosť.
Najväčšie riziko budúcnosti spočíva v tom, že podľahneme cynizmu a meriame hodnotu života počtom lajkov, sledovateľov, ziskom či rýchlosťou spracovania dát. Našou úlohou dbať na to, aby tieto systémy slúžili človeku a chránili jeho dôstojnosť. Úspešná kariéra a technologický pokrok majú zmysel vtedy, keď sú spojené so službou.
```{r}
library(ggplot2)
temata <- data.frame(
Tema = c("Humanita a Empatia", "Inluzivita", "Technológie a Kód", "Etika a Zodpovednosť", "Budúcnosť a Vzdelanie"),
Dôraz = c(30, 15, 20, 25, 10)
)
ggplot(temata, aes(x = reorder(Tema, Dôraz), y = Dôraz, fill = Tema)) +
geom_col(show.legend = FALSE) +
coord_flip() +
theme_minimal() +
labs(
title = "Relatívny dôraz tém v prejave Tima Cooka na MIT",
subtitle = "Prekvapivý posun od čistých technológií k humanite a etike",
x = "Téma",
y = "Dôraz v prejavoch (%)"
) +
scale_fill_brewer(palette = "Set2")
```
# Kľúčové citáty T. Cooka
```{r}
library(knitr)
library(dplyr)
cook_quotes <- data.frame(
ID = c(1, 2, 3),
Citat_EN = c(
"I’m not worried about artificial intelligence giving computers the ability to think like humans. I’m more concerned about people thinking like computers — thinking without values or compassion, without concern for consequences.",
"Measure your impact in humanity, not in likes, but in the lives you touch, with the people you serve.",
"Technology alone isn't enough. It's technology married with the liberal arts, married with the humanities, that yields us the result that makes our heart sing."
),
Preklad_SK = c(
"Neznepokojuje ma, že umelá inteligencia dá počítačom schopnosť myslieť ako ľudia. Viac sa obávam toho, že ľudia začnú myslieť ako počítače — bez hodnôt, súcitu a bez ohľadu na následky.",
"Merajte svoj dopad podľa ľudskosti, nie podľa lajkov; podľa životov, ktorých sa dotknete, a ľudí, ktorým slúžite.",
"Samotná technológia nestačí. Je to technológia v spojení s humanitnými a spoločenskými vedami, čo nám prináša výsledky, pri ktorých naše srdce plesá."
),
Aplikacia_V_Praxi = c(
"Pri návrhu systémov nestačí sledovať len číselné KPI a efektivitu. Musíme vyhodnocovať etické dopady na reálnych ľudí.",
"Povrchné metriky (počet followerov, okamžitá popularita) nesmú nahradiť trvalú hodnotu a skutočný prínos pre komunitu.",
"Technici a manažéri musia rozumieť aj spoločenskovedným a etickým aspektom svojich produktov."
)
)
kable(cook_quotes[, c("ID", "Preklad_SK", "Aplikacia_V_Praxi")],
col.names = c("Č.", "Citát Tima Cooka", "Aplikácia v praxi"),
caption = "Prehľad vybraných citátov z prejavu")
```
## Môj osobný favorit
Najviac sa mi pačí Citát č. 1. V dobe masívneho nástupu AI prináša zásadný odkaz. Namiesto strachu z toho, že nás stroje nahradia, by sme sa mali obávať momentu, kedy stratíme to, čo nás od nich odlišuje: empatia, morálka a súcit.