Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
rdiagnosis
basicr
Commits
0379f0cc
Commit
0379f0cc
authored
Jan 31, 2019
by
Jean-Marie Lepioufle
Browse files
replace basicr by basic_info to avoid any confusion
parent
de8eff3d
Changes
2
Hide whitespace changes
Inline
Side-by-side
R/basicr.R
View file @
0379f0cc
#' basic
r
#' basic
_info
#' basic
r
#' basic
_info
#' @param df tbl_friendlyts data.frame
#' @param target target
#' @param group "none","YEAR","MONTH","WDAY","HOUR","MINUTE","SECOND"
#' @param group "none","YEAR","MONTH","WDAY","HOUR","MINUTE","SECOND"
or several
#' @keywords basicr
#' @export
#' @examples
#' \dontrun{
#' basic
r
()
#' basic
_info
()
#' }
basic
r
<-
function
(
df
,
target
,
group
=
"none"
){
basic
_info
<-
function
(
df
,
target
,
group
=
"none"
){
if
(
is.null
(
df
)
||
(
!
inherits
(
df
,
"tbl_friendlyts"
))
)
{
stop
(
"need non-null tbl_friendlyts df"
)
}
res
<-
switch
(
group
,
"none"
=
df
%>%
basic_
(
target
=
target
),
"YEAR"
=
df
%>%
group_by
(
YEAR
)
%>%
basic_
(
target
=
target
),
"MONTH"
=
df
%>%
group_by
(
MONTH
)
%>%
basic_
(
target
=
target
),
"WDAY"
=
df
%>%
group_by
(
WDAY
)
%>%
basic_
(
target
=
target
),
"HOUR"
=
df
%>%
group_by
(
HOUR
)
%>%
basic_
(
target
=
target
),
"MINUTE"
=
df
%>%
group_by
(
MINUTE
)
%>%
basic_
(
target
=
target
),
"SECOND"
=
df
%>%
group_by
(
SECOND
)
%>%
basic_
(
target
=
target
),
stop
(
"group not recognized"
))
if
(
(
length
(
group
)
>=
1
)
&&
(
prod
(
group
%in%
c
(
"YEAR"
,
"MONTH"
,
"WDAY"
,
"HOUR"
,
"MINUTE"
,
"SECOND"
))
==
1
)
&&
(
sum
(
duplicated
(
group
),
na.rm
=
TRUE
)
==
0
)
){
class
(
res
)
<-
class
(
res
)[
-
which
(
class
(
res
)
==
"tbl_friendlyts"
)]
res
<-
as_tbl_basic
(
res
,
group
)
res
<-
df
%>%
group_by_
(
.dots
=
group
)
%>%
basic_
(
target
=
target
)
}
else
if
((
length
(
group
)
==
1
)
&&
(
group
==
"none"
))
{
res
<-
df
%>%
basic_
(
target
=
target
)
}
else
stop
(
"group must refer to: 'none', 'YEAR', 'MONTH', 'WDAY', 'HOUR','MINUTE','SECOND'"
)
res
<-
tibble
::
as_tibble
(
res
)
class
(
res
)
<-
c
(
class
(
res
),
"tbl_basic"
)
return
(
res
)
}
...
...
@@ -50,11 +49,13 @@ basic_ <- function(df,target){
res
<-
df
%>%
summarise
(
n
=
n
(),
q0
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0
,
na.rm
=
TRUE
)),
q1
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.25
,
na.rm
=
TRUE
)),
q2
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.50
,
na.rm
=
TRUE
)),
q3
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.75
,
na.rm
=
TRUE
)),
q4
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
1
,
na.rm
=
TRUE
)),
q_0
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0
,
na.rm
=
TRUE
)),
q_0_05
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.05
,
na.rm
=
TRUE
)),
q_0_25
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.25
,
na.rm
=
TRUE
)),
q_0_5
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.50
,
na.rm
=
TRUE
)),
q_0_75
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.75
,
na.rm
=
TRUE
)),
q_0_95
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.95
,
na.rm
=
TRUE
)),
q_1
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
1
,
na.rm
=
TRUE
)),
IQR
=
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.75
,
na.rm
=
TRUE
))
-
as.numeric
(
stats
::
quantile
(
targ
,
probs
=
0.25
,
na.rm
=
TRUE
)),
m
=
mean
(
targ
,
na.rm
=
TRUE
),
sd
=
stats
::
sd
(
targ
,
na.rm
=
TRUE
),
...
...
man/basic
r
.Rd
→
man/basic
_info
.Rd
View file @
0379f0cc
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/basicr.R
\name{basic
r
}
\alias{basic
r
}
\title{basic
r
basic
r
}
\name{basic
_info
}
\alias{basic
_info
}
\title{basic
_info
basic
_info
}
\usage{
basic
r
(df, target, group = "none")
basic
_info
(df, target, group = "none")
}
\arguments{
\item{df}{tbl_friendlyts data.frame}
\item{target}{target}
\item{group}{"none","YEAR","MONTH","WDAY","HOUR","MINUTE","SECOND"}
\item{group}{"none","YEAR","MONTH","WDAY","HOUR","MINUTE","SECOND"
or several
}
}
\description{
basic
r
basic
r
basic
_info
basic
_info
}
\examples{
\dontrun{
basic
r
()
basic
_info
()
}
}
\keyword{basicr}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment