Parque Científico

Texto en cursiva Texto en negrita

https://www.pcb.ub.edu/el-pcb/

Fórmula: \[f\left(k\right) = \binom{n}{k} p^k\left(1-p\right)^{n-k}\]

library(knitr)
library("datasets")
data("iris") #cargamos los datos a RStudio
kable(head(iris)) #mostramos la información del conjunto de datos
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
5.1 3.5 1.4 0.2 setosa
4.9 3.0 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5.0 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa 
wdbc <- read.csv("./breast_cancer/wdbc.data", header=FALSE, stringsAsFactors=TRUE)
wdbc = wdbc[,1:12]
colnames(wdbc) = c("id", "diagnosis","radius", "texture", "perimeter", "area", "smoothness", "compactness", "concavity", "concave_points", "symetry", "fractal_dimension")
kable(head(wdbc))
id diagnosis radius texture perimeter area smoothness compactness concavity concave_points symetry fractal_dimension
842302 M 17.99 10.38 122.80 1001.0 0.11840 0.27760 0.3001 0.14710 0.2419 0.07871
842517 M 20.57 17.77 132.90 1326.0 0.08474 0.07864 0.0869 0.07017 0.1812 0.05667
84300903 M 19.69 21.25 130.00 1203.0 0.10960 0.15990 0.1974 0.12790 0.2069 0.05999
84348301 M 11.42 20.38 77.58 386.1 0.14250 0.28390 0.2414 0.10520 0.2597 0.09744
84358402 M 20.29 14.34 135.10 1297.0 0.10030 0.13280 0.1980 0.10430 0.1809 0.05883
843786 M 12.45 15.70 82.57 477.1 0.12780 0.17000 0.1578 0.08089 0.2087 0.07613