packages

library("tidyverse")

Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
package 'ggplot2' was built under R version 3.4.4package 'dplyr' was built under R version 3.4.2Conflicts with tidy packages -------------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

abro datos de la web

df <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSNIhv7By7N3mrmoAv2PplV8o_ksuM-WBQDPNIJxMATiudebByEl0oo9Ecny3dtqPxU1lWN6E5i7FMH/pub?gid=1219336183&single=true&output=csv")

summary

summary(df)

     DIENTE   REPLICADO        GRUPO        IC..N.       SUPERFICIE
 Min.   : 1   A:98      Sano      :24   Min.   : 0.000   OD:147    
 1st Qu.:13   B:98      TOR       :90   1st Qu.: 5.884   OM:147    
 Median :25   C:98      Tofflemire:90   Median :10.787             
 Mean   :25             V3        :90   Mean   : 9.710             
 3rd Qu.:37                             3rd Qu.:11.768             
 Max.   :49                             Max.   :18.633

Agrupo los datos y calculo (n, promedio y desviacion estandar)

grafica de boxplot

otra grafica

kruskal wallis test

kruskal.test(df$IC..N.,df$GRUPO)


    Kruskal-Wallis rank sum test

data:  df$IC..N. and df$GRUPO
Kruskal-Wallis chi-squared = 113.31, df = 3, p-value < 2.2e-16
LS0tCnRpdGxlOiAiMjAxOV9JbnRlbnNpZGFkIHB1bnRvcyBkZSBjb250YWN0b19Db3JkZXJvIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCiNwYWNrYWdlcwpgYGB7cn0KbGlicmFyeSgidGlkeXZlcnNlIikKYGBgCiNhYnJvIGRhdG9zIGRlIGxhIHdlYgpgYGB7cn0KZGYgPC0gcmVhZC5jc3YoImh0dHBzOi8vZG9jcy5nb29nbGUuY29tL3NwcmVhZHNoZWV0cy9kL2UvMlBBQ1gtMXZTTklodjdCeTdOM21ybW9BdjJQcGxWOG9fa3N1TS1XQlFEUE5JSnhNQVRpdWRlYkJ5RWwwb285RWNueTNkdHFQeFUxbFdONkU1aTdGTUgvcHViP2dpZD0xMjE5MzM2MTgzJnNpbmdsZT10cnVlJm91dHB1dD1jc3YiKQpgYGAKI3N1bW1hcnkKYGBge3J9CnN1bW1hcnkoZGYpCmBgYAojQWdydXBvIGxvcyBkYXRvcyB5IGNhbGN1bG8gKG4sIHByb21lZGlvIHkgZGVzdmlhY2lvbiBlc3RhbmRhcikKYGBge3J9CmRmICU+JSAKICBncm91cF9ieShHUlVQTykgJT4lIApzdW1tYXJpc2Uobj1uKCksIFByb21lZGlvPW1lYW4oSUMuLk4uKSwgREU9c2QoSUMuLk4uKSkgJT4lIAogIHVuZ3JvdXAoKQpgYGAKI2dyYWZpY2EgZGUgYm94cGxvdApgYGB7cn0KZGYgJT4lIAogIGdncGxvdChhZXMoeD1HUlVQTywgeT1JQy4uTi4sIGZpbGw9U1VQRVJGSUNJRSkpICsKICBnZW9tX2JveHBsb3QoKSsKICB0aGVtZV9jbGFzc2ljKCkrCiAgIHNjYWxlX2ZpbGxfdmlyaWRpc19kKGRpcmVjdGlvbiA9IC0xKSAKYGBgCiNvdHJhIGdyYWZpY2EKYGBge3J9CmRmICU+JSAKICBnZ3Bsb3QoYWVzKHg9U1VQRVJGSUNJRSwgeT1JQy4uTi4sIGZpbGw9R1JVUE8pKSArCiAgZ2VvbV9ib3hwbG90KCkrCiAgdGhlbWVfY2xhc3NpYygpKwogICBzY2FsZV9maWxsX3ZpcmlkaXNfZChkaXJlY3Rpb24gPSAtMSkgCmBgYAoja3J1c2thbCB3YWxsaXMgdGVzdApgYGB7cn0Ka3J1c2thbC50ZXN0KGRmJElDLi5OLixkZiRHUlVQTykKYGBgCgoKCg==