-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path.Rhistory
108 lines (108 loc) · 2.44 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
devtools::check()
install.packages("Rtools")
devtools::check()
usethis::use_mit_license("Shannon Pileggi")
usethis::use_mit_license("Catalina Espinoza")
devtools::check()
devtools::check()
devtools::check()
devtools::check()
usethis::use_r("analisis_mayor")
devtools::load_all()
View(faithful)
analisis_mayor(df_in = faithful,variable=eruptions,folio=waiting)
analisis_mayor(df_in = faithful,variable=eruptions,folio=waiting)
library("tidyverse")
library("readxl")
library(dplyr)
library(haven)
library(survey)
library(srvyr)
analisis_mayor(df_in = faithful,variable=eruptions,folio=waiting)
?analisis_mayor
??analisis_mayor
devtools::check()
?enquo
usethis::use_package("tidyverse")
usethis::use_package("dplyr")
View(iris)
devtools::check()
usethis::use_package("rlang")
usethis::use_package("magrittr")
devtools::check()
?slice_min
?enquo
?slice_min
View(mtcars)
devtools::check()
?tibble
devtools::check()
?var
devtools::check()
usethis::use_pipe()
devtools::document()
devtools::document()
devtools::check()
usethis::use_r("analisis_total")
devtools::load_all()
analisis_total(data=faithful,variable=eruptions)
analisis_total(base=faithful,variable=eruptions)
devtools::document()
devtools::check()
devtools::check()
devtools::check()
?var
n?
?n
devtools::check()
usethis::use_r("analisis_muestra")
?accumulate
?bind_cols
?map_dfr
devtools::check()
devtools::check()
devtools::check()
usethis::use_package("purrr")
devtools::check()
devtools::check()
mtcars <- as_tibble(mtcars,
rownames = 'folio')
devtools::check()
devtools::check()
devtools::check()
devtools::check()
devtools::check()
devtools::check()
mtcars %>% dplyr::distinct()
mtcars <- mtcars %>% dplyr::distinct()
mtcars <- mtcars %>% dplyr::distinct()
View(mtcars)
mtcars <- mtcars %>% dplyr::distinct(folio)
rm(list = ls())
View(mtcars)
mtcars <- mtcars %>% dplyr::distinct(folio,mpg,cyl,wt)
mtcars <- mtcars %>% dplyr::distinct(mpg,cyl,wt)
View(mtcars)
mtcars <- mtcars %>% group_by(mpg,cyl,wt) %>% slice(1)
mtcars <- mtcars %>% group_by(mpg) %>% slice(1)
rm(list = ls())
View(mtcars)
length(unique(mtcars$mpg))
length(unique(mtcars$disp))
length(unique(mtcars$hp))
length(unique(mtcars$drat))
length(unique(mtcars$wt))
length(unique(mtcars$qsec))
length(unique(mtcars$gear))
mtcars <- mtcars %>% group_by(gear) %>% slice(1)
View(mtcars)
devtools::check()
devtools::check()
devtools::check()
usethis::use_r("analisis_marco")
devtools::check()
View(mtcars)
devtools::check()
devtools::check()
devtools::check()
devtools::check()