Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
R
R - Mortality Tables
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
10
Issues
10
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
R
R - Mortality Tables
Commits
d06afcbc
Commit
d06afcbc
authored
May 18, 2018
by
Reinhold Kainhofer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove vector (row)names so that bind_rows does not complain about duplicate row names
parent
7fdc1872
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
R/makeQxDataFrame.R
R/makeQxDataFrame.R
+2
-2
No files found.
R/makeQxDataFrame.R
View file @
d06afcbc
...
...
@@ -20,7 +20,7 @@
#' @export
makeQxDataFrame
=
function
(
...
,
YOB
=
1972
,
Period
=
NA
,
reference
=
NULL
)
{
# Allow lists of tables to be passed, too. unlist should always return
# a list of tables,
if
if nested lists or only tables are passed as arguments!
# a list of tables,
even
if nested lists or only tables are passed as arguments!
data
=
unlist
(
list
(
...
));
if
(
is.null
(
data
))
return
(
data.frame
(
x
=
double
(),
y
=
double
(),
group
=
character
()))
...
...
@@ -35,7 +35,7 @@ makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) {
}
data
=
lapply
(
data
,
function
(
t
)
{
normalize_deathProbabilities
(
cbind
(
x
=
ages
(
t
),
y
=
deathProbabilities
(
t
,
YOB
=
YOB
)),
cbind
(
x
=
ages
(
t
),
y
=
`names<-`
(
deathProbabilities
(
t
,
YOB
=
YOB
),
NULL
)),
reference
=
reference
,
referenceAges
=
reference_ages
)
});
...
...
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