rkablegtsummaryflextablenlme
How to convert nlme summary object into table
I have the following dataset
df3 = structure(list(A = c("51", "51", "51", "51", "51", "51", "51",
"51", "51", "51", "51", "51", "51", "51", "51", "51", "51", "51",
"51", "51", "51", "51", "51", "51", "51", "51", "51", "51", "51",
"51", "52", "52", "52", "52", "52", "52", "52", "52", "52", "52",
"52", "52", "52", "52", "52", "52", "52", "52", "52", "52", "52",
"52", "52", "52", "52", "52", "52", "52", "52", "52", "53", "53",
"53", "53", "53", "53", "53", "53", "53", "53", "53", "53", "53",
"53", "53", "53", "53", "53", "53", "53", "53", "53", "53", "53",
"53", "53", "53", "53", "53", "53", "54", "54", "54", "54", "54",
"54", "54", "54", "54", "54", "54", "54", "54", "54", "54", "54",
"54", "54", "54", "54", "54", "54", "54", "54", "54", "54", "54",
"54", "54", "54", "56", "56", "56", "56", "56", "56", "56", "56",
"56", "56", "56", "56", "56", "56", "56", "56", "56", "56", "56",
"56", "56", "56", "56", "56", "56", "56", "56", "56", "56", "56",
"57", "57", "57", "57", "57", "57", "57", "57", "57", "57", "57",
"57", "57", "57", "57", "57", "57", "57", "57", "57", "57", "57",
"57", "57", "57", "57", "57", "57", "57", "57"), B = c(84.5,
84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5,
84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5,
84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 84.5, 72, 72, 72, 72, 72,
72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
72, 72, 72, 72, 72, 72, 72, 72, 72, 62, 62, 62, 62, 62, 62, 62,
62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62,
62, 62, 62, 62, 62, 62, 62, 88, 88, 88, 88, 88, 88, 88, 88, 88,
88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88,
88, 88, 88, 88, 88, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96,
96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96,
96, 96, 96, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5,
67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5,
67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5, 67.5),
C = c("0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1",
"1", "1", "1", "1", "1", "1", "1", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0"), D = c(73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73,
73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73,
73, 73, 73, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
71, 71, 71, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
72, 72, 72, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
71, 71, 71, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73,
73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73,
73, 73, 73, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74,
74, 74, 74), E = c(136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 136.061064886813,
136.061064886813, 136.061064886813, 136.061064886813, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 91.138451650252, 91.138451650252, 91.138451650252,
91.138451650252, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 144.422871899338,
144.422871899338, 144.422871899338, 144.422871899338, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 105.603501603159, 105.603501603159, 105.603501603159,
105.603501603159, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 128.444375466774,
128.444375466774, 128.444375466774, 128.444375466774, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815, 57.1855792612815, 57.1855792612815, 57.1855792612815,
57.1855792612815)), row.names = c(NA, -180L), class = c("tbl_df",
"tbl", "data.frame"))
on which I have run the following code to get the mixed model
obj = (nlme::lme(E ~ B + C + D, random = ~1|A, df3) %>%
summary())$tTable
flextable(obj)
however I am not able to get the table in which showing the results. Has anyone any idea to get the table with any package that you you (flextable, gtsummary, kableExtra and so on)? Of course I would like to get all the columns (including variable names)
Value Std.Error DF t-value p-value
(Intercept) -12.68019966 3.10808245 1827 -4.0797501 4.702378e-05
B -0.24611480 0.02288007 59 -10.7567325 1.557930e-15
C1 0.36800234 3.57315266 59 0.1029909 9.183194e-01
D 0.08818415 0.02749166 59 3.2076696 2.163542e-03
Thanks
Solution
With flextable, you can use as_flextable() to convert models into tables.
library(flextable)
obj <- nlme::lme(E ~ B + C + D, random = ~1|A, df3)
as_flextable(obj)
With the dev version, there is support for options(show.signif.stars = FALSE).
If you don't want to keep the footer part, just drop it with delete_part()
as_flextable(obj) |> delete_part(part = "footer")
- Test whether one factor is nested in another
- Renaming columns in the global environment
- How can I use a character containing the DB instead of the connectin in R?
- Identifying all columns shared in common by a set of files and then vertically stack them
- curly-curly braces - why won't this function accept an unquoted variable
- Concatenate columns from Excel file based on sheet name and column's name
- Conditioning previous values within groups in R
- Finding out which columns are same in different files
- Rcpp error, learning Rcpp and C++ on mac
- How can I subset a list, based on list element details, using sapply?
- Reactively pull data from list objects in Shiny
- read_xml not recognizing the contents inside the nodes and returning charater[0]
- Saving plots in multiple columns using ggsave() cuts 2/3 of output
- Replacing NA's within a set of similar values
- Hide initially displayed code from shiny modularized app after clicking actionButton
- edit plot attributes manually and redraw
- Reformat data to include 2 minute time intervals
- ggsurvplot not displaying number at risk for time 0
- Change width of callout-block in Quarto dashboard
- Is there a R function to pair elements from two columns of a data.frame to make a new data.frame
- Question about glm family in R
- How to flatten a list of lists?
- Is there a fast/clever way to return a logical vector if elements of a vector are in at least one interval?
- how can I combine three tables - 2 separate questionnaires used on the same cohort and one table with blood results
- Modify pop-up message in leaflet map
- Conditional bslib tooltip
- How to specify column parameters programmatically?
- Complex subsetting in R for case-control study
- Set CMU Sans Serif font on pdf quarto
- How to remove string before a certain delimiter in R?