Skip to content

Commit ca4472d

Browse files
AntiportaDAntiportaD
committed
remove rownames from output
1 parent ed56613 commit ca4472d

File tree

10 files changed

+40
-21
lines changed

10 files changed

+40
-21
lines changed

‎R/bgsd.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -145,8 +145,10 @@ bgsd <- function(pop,
145145

146146
}
147147

148-
boot.lcl <- quantile(bgsd_sim, probs = c(0.025), na.rm = TRUE)
149-
boot.ucl <- quantile(bgsd_sim, probs = c(0.975), na.rm = TRUE)
148+
boot.lcl <- quantile(bgsd_sim, probs = c(0.025), na.rm = TRUE,
149+
names = FALSE)
150+
boot.ucl <- quantile(bgsd_sim, probs = c(0.975), na.rm = TRUE,
151+
names = FALSE)
150152

151153
}
152154

‎R/covar.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -152,8 +152,10 @@ covar <- function(pop,
152152

153153
}
154154

155-
boot.lcl <- quantile(covar_sim, probs = c(0.025), na.rm = TRUE)
156-
boot.ucl <- quantile(covar_sim, probs = c(0.975), na.rm = TRUE)
155+
boot.lcl <- quantile(covar_sim, probs = c(0.025), na.rm = TRUE,
156+
names = FALSE)
157+
boot.ucl <- quantile(covar_sim, probs = c(0.975), na.rm = TRUE,
158+
names = FALSE)
157159
}
158160

159161
# Return data frame

‎R/idisu.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -177,8 +177,10 @@ idisu <- function(pop=NULL,
177177

178178
}
179179

180-
boot.lcl <- quantile(idisu_sim, probs = c(0.025), na.rm = TRUE)
181-
boot.ucl <- quantile(idisu_sim, probs = c(0.975), na.rm = TRUE)
180+
boot.lcl <- quantile(idisu_sim, probs = c(0.025), na.rm = TRUE,
181+
names = FALSE)
182+
boot.ucl <- quantile(idisu_sim, probs = c(0.975), na.rm = TRUE,
183+
names = FALSE)
182184
}
183185

184186
# Return data frame

‎R/idisw.R

+4-3
Original file line numberDiff line numberDiff line change
@@ -147,15 +147,16 @@ idisw <- function(pop,
147147

148148
}
149149

150-
boot.lcl <- quantile(idisw_sim, probs = c(0.025), na.rm = TRUE)
151-
boot.ucl <- quantile(idisw_sim, probs = c(0.975), na.rm = TRUE)
150+
boot.lcl <- quantile(idisw_sim, probs = c(0.025), na.rm = TRUE,
151+
names = FALSE)
152+
boot.ucl <- quantile(idisw_sim, probs = c(0.975), na.rm = TRUE,
153+
names = FALSE)
152154
}
153155

154156
# Return data frame
155157

156158
return(data.frame(measure = "idisw",
157159
estimate = idisw,
158-
se = NA,
159160
lowerci = boot.lcl[[1]],
160161
upperci = boot.ucl[[1]])
161162
)

‎R/mdbu.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -148,8 +148,10 @@ mdbu <- function(est,
148148

149149
}
150150

151-
boot.lcl <- quantile(mdbu_sim, probs = c(0.025), na.rm = TRUE)
152-
boot.ucl <- quantile(mdbu_sim, probs = c(0.975), na.rm = TRUE)
151+
boot.lcl <- quantile(mdbu_sim, probs = c(0.025), na.rm = TRUE,
152+
names = FALSE)
153+
boot.ucl <- quantile(mdbu_sim, probs = c(0.975), na.rm = TRUE,
154+
names = FALSE)
153155
}
154156

155157
# Return data frame

‎R/mdbw.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -164,8 +164,10 @@ mdbw <- function(pop,
164164

165165
}
166166

167-
boot.lcl <- quantile(mdbw_sim, probs = c(0.025), na.rm = TRUE)
168-
boot.ucl <- quantile(mdbw_sim, probs = c(0.975), na.rm = TRUE)
167+
boot.lcl <- quantile(mdbw_sim, probs = c(0.025), na.rm = TRUE,
168+
names = FALSE)
169+
boot.ucl <- quantile(mdbw_sim, probs = c(0.975), na.rm = TRUE,
170+
names = FALSE)
169171
}
170172

171173
# Return data frame

‎R/mdmu.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -175,8 +175,10 @@ mdmu <- function(pop = NULL,
175175

176176
}
177177

178-
boot.lcl <- quantile(mdmu_sim, probs = c(0.025), na.rm = TRUE)
179-
boot.ucl <- quantile(mdmu_sim, probs = c(0.975), na.rm = TRUE)
178+
boot.lcl <- quantile(mdmu_sim, probs = c(0.025), na.rm = TRUE,
179+
names = FALSE)
180+
boot.ucl <- quantile(mdmu_sim, probs = c(0.975), na.rm = TRUE,
181+
names = FALSE)
180182
}
181183

182184
# Return data frame

‎R/mdmw.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -145,8 +145,10 @@ mdmw <- function(pop,
145145

146146
}
147147

148-
boot.lcl <- quantile(mdmw_sim, probs = c(0.025), na.rm = TRUE)
149-
boot.ucl <- quantile(mdmw_sim, probs = c(0.975), na.rm = TRUE)
148+
boot.lcl <- quantile(mdmw_sim, probs = c(0.025), na.rm = TRUE,
149+
names = FALSE)
150+
boot.ucl <- quantile(mdmw_sim, probs = c(0.975), na.rm = TRUE,
151+
names = FALSE)
150152
}
151153

152154
# Return data frame

‎R/mdru.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -141,8 +141,10 @@ mdru <- function(est,
141141

142142
}
143143

144-
boot.lcl <- quantile(mdru_sim, probs = c(0.025), na.rm = TRUE)
145-
boot.ucl <- quantile(mdru_sim, probs = c(0.975), na.rm = TRUE)
144+
boot.lcl <- quantile(mdru_sim, probs = c(0.025), na.rm = TRUE,
145+
names = FALSE)
146+
boot.ucl <- quantile(mdru_sim, probs = c(0.975), na.rm = TRUE,
147+
names = FALSE)
146148

147149
# Return data frame
148150

‎R/mdrw.R

+4-2
Original file line numberDiff line numberDiff line change
@@ -153,8 +153,10 @@ mdrw <- function(pop,
153153

154154
}
155155

156-
boot.lcl <- quantile(mdrw_sim, probs = c(0.025), na.rm = TRUE)
157-
boot.ucl <- quantile(mdrw_sim, probs = c(0.975), na.rm = TRUE)
156+
boot.lcl <- quantile(mdrw_sim, probs = c(0.025), na.rm = TRUE,
157+
names = FALSE)
158+
boot.ucl <- quantile(mdrw_sim, probs = c(0.975), na.rm = TRUE,
159+
names = FALSE)
158160

159161
# Return data frame
160162

0 commit comments

Comments
 (0)