-
Notifications
You must be signed in to change notification settings - Fork 1
/
.Rhistory
80 lines (80 loc) · 2.49 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
install.packages("roxygen2")
install.packages("devtools")
install.packages("usethis")
usethis::use_readme_md()
usethis::use_pipe()
usethis::use_roxygen_md()
usethis::use_pipe()
usethis::use_data_raw()
Getdata <- function(){
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
#-----import and organize data-----------
colnames(movies) <-c("Films","Genre","CriticsRatings","AudienceRatings","BudgetinMillions","Year")
movies$Year<-factor(movies$Year)
head(movies)
usethis::use_data("movies")
}
rm(getdata)
rm(Getdata)
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
usethis::use_data_raw()
usethis::use_data("movies")
Getdata <- function(){
#-------import data-----------
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
#-----organize data-----------
colnames(movies) <-c("Films","Genre","CriticsRatings","AudienceRatings","BudgetinMillions","Year")
movies$Year<-factor(movies$Year)
head(movies)
}
Getdata()
Getdata <- function(){
#-------import data-----------
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
#-----organize data-----------
colnames(movies) <-c("Films","Genre","CriticsRatings","AudienceRatings","BudgetinMillions","Year")
movies$Year<-factor(movies$Year)
}
Getdata()
Getdata <- function(){
#-------import data-----------
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
#-----organize data-----------
colnames(movies) <-c("Films","Genre","CriticsRatings","AudienceRatings","BudgetinMillions","Year")
movies$Year<-factor(movies$Year)
return(movies)
}
Getdata()
usethis::use_data(movies)
#-------import data-----------
movies <- read.csv("C:\\Users\\TOSHIBA\\Desktop\\R study\\Movies\\Movie-Ratings.csv")
colnames(movies) <-c("Films","Genre","CriticsRatings","AudienceRatings","BudgetinMillions","Year")
movies$Year<-factor(movies$Year)
return(movies)
}
Getdata()
usethis::use_data(movies)
#' \item{Genre}{The genre of the movie}
#' \item{CriticsRatings}{Rotten Tomatoes ratings in % }
#' \item{AudienceRatings}{Audience rating of the film in %}
#' \item{BudgetinMillions}{Budget of the film in millions}
#' \item{Year}{Release year of the film}
#'
#' @keywords datasets
#'
#'
#' }
"movies"
library(MovieDataAnalysis)
library(MovieDataAnalysis)
?fltmovie
fltmovie("Action",100,2009)
boxplot_ratings()
aboveavr(2009)
aboveavr(2001)
aboveavr()
devtools::document()
devtools::document()
devtools::document()
devtools::document()
devtools::document()