#+TITLE:  Exo 2
:premambule:
#+AUTHOR: V. Ledda
#+DATE:   <2024-03-30 sam.>
#+LANGUAGE: fr
#+PROPERTY: header-args :eval never-export

#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="http://www.pirilampo.org/styles/readtheorg/css/htmlize.css"/>
#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="http://www.pirilampo.org/styles/readtheorg/css/readtheorg.css"/>
#+HTML_HEAD: <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
#+HTML_HEAD: <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js"></script>

#+startup:overview indent inlineimages

#+latex_header: \usepackage{xcolor}
#+latex_header: \definecolor{CBlue}{HTML}{dcf2ff}
#+LATEX_HEADER: \definecolor{LightGray}{gray}{0.9}
#+latex_header: \definecolor{CBlue}{HTML}{dcf2ff}
#+latex_header: \definecolor{dark}{HTML}{272822}
#+attr_latex: :options bgcolor=CBlue
#+latex_header: \usemintedstyle{solarized-light}
#+latex_header: \usepackage{xcolor}
#+LATEX_HEADER:\usepackage{geometry} \geometry{ a4paper, total={190mm,257mm}, left=10mm, top=20mm, }
#+LATEX_HEADER:\usepackage{fancyhdr}\pagestyle{fancy}\fancyhead[L]{}\fancyhead[R]{MSP}\fancyfoot[R]{V. Ledda}
#+LATEX_HEADER:\usepackage{vmargin}
#+email: vincent.ledda@centralelille.fr
#+INFOJS_OPT:
#+PROPERTY: header-args :tangle yes
#+PROPERTY: header-args:jupyter-R :exports both
#+PROPERTY: header-args:jupyter-R+ :session /jpy::ir
#+PROPERTY: cache yes
#+LaTeX_CLASS_OPTIONS:[12pt]
#+EXPORT_EXCLUDE_TAGS: noexport
:end:

#+name: scrollImage
#+begin_src elisp :exports none
  (defun org-image-resize (frame)
    (setq org-export-allow-bind-keywords t)
    (when (derived-mode-p 'org-mode)
      (if (< (window-total-width) 80)
  	(setq org-image-actual-width (* 4 window-pixel-width))
        (setq org-image-actual-width (* 42 (window-font-width))))
      (org-redisplay-inline-images)))



  (add-hook 'window-size-change-functions 'org-image-resize)
  (visual-line-mode t)
  (variable-pitch-mode t)
  (add-hook 'org-babel-after-execute-hook 'org-redisplay-inline-images)
  #+end_src

  #+RESULTS: scrollImage
  | org-redisplay-inline-images |


#+begin_src elisp :exports none
  (setq org-latex-listings 'minted)
   (add-to-list 'org-latex-packages-alist '("" "minted"))
   (setq org-latex-listings 'minted

       org-latex-pdf-process
       '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
	 "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"))
   (setq org-latex-minted-options '(
				  ("frame" "leftline")
				  ("fontsize" "\\scriptsize")
				  ("xleftmargin" "\\parindent")
				  ("rulecolor" "CBlue")
				  ("bgcolor" "LightGray")
				  ))
  #+end_src

  #+RESULTS:
  | frame       | leftline    |
  | fontsize    | \scriptsize |
  | xleftmargin | \parindent  |
  | rulecolor   | CBlue       |
  | bgcolor     | LightGray   |

* Savoir faire un calcul simple soi-même

#+begin_src jupyter-R   :exports both :results raw drawer
  data<-c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7.3, 9.8, 10.9,12.2, 9.9, 2.9, 2.8, 15.4, 15.7, 9.7, 13.1, 13.2, 12.3, 11.7, 16.0, 12.4, 17.9, 12.2, 16.2, 18.7, 8.9, 11.9, 12.1, 14.6, 12.1, 4.7, 3.9, 16.9, 16.8, 11.3, 14.4, 15.7, 14.0, 13.6, 18.0, 13.6, 19.9, 13.7, 17.0, 20.5, 9.9, 12.5, 13.2, 16.1, 13.5, 6.3, 6.4, 17.6, 19.1, 12.8, 15.5, 16.3, 15.2, 14.6, 19.1, 14.4, 21.4, 15.1, 19.6, 21.7, 11.3, 15.0, 14.3, 16.8, 14.0, 6.8, 8.2, 19.9, 20.4, 14.6, 16.4, 18.7, 16.8, 15.8, 20.4, 15.8, 22.4, 16.2, 20.3, 23.4, 12.1, 15.5, 15.4, 18.4, 15.7, 10.2, 8.9, 21.0)
  summary(data)
  sd(data)
#+end_src

#+RESULTS:
:RESULTS:
:    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
:    2.80   11.85   14.50   14.11   16.80   23.40 
#+begin_export html
4.33409445530145
#+end_export
:END:

* Réaliser un graph

#+begin_src jupyter-R   :exports both :results raw drawer
library(tidyverse)
#+end_src

#+RESULTS:

#+begin_src jupyter-R   :exports both :results raw drawer
ggplot(data=data.frame(x=seq(length(data)),y=data),aes(x=x,y=y))+geom_line()
#+end_src

#+RESULTS:
:RESULTS:
#+attr_org: :width 630 :height 630
[[./.ob-jupyter/a2097194cb52f4b5bd272ca5fed1287e1d061dbd.png]]
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
:END:



#+begin_src jupyter-R   :exports both :results raw drawer
  ggplot(data=data.frame(x=seq(length(data)),y=data),aes(x=y,after_stat(count)))+
    geom_histogram(alpha=0.4,binwidth=2,col="blue",position="identity")
#+end_src

#+RESULTS:
:RESULTS:
#+attr_org: :width 630 :height 630
[[./.ob-jupyter/7353fef23bdf8d55fa351472211c5051ad408ba0.png]]
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
:END:
