@@ -71,8 +71,8 @@ TreeSequence <- R6Class(
7171 },
7272
7373 # ' @description Alias for \code{\link[=TreeSequence]{TreeSequence$dump}}.
74- # ' @param file see
75- # ' @param options see
74+ # ' @param file see \code{\link[=TreeSequence]{TreeSequence$dump}}.
75+ # ' @param options see \code{\link[=TreeSequence]{TreeSequence$dump}}.
7676 write = function (file , options = 0L ) {
7777 self $ dump(file = file , options = options )
7878 },
@@ -120,107 +120,137 @@ TreeSequence <- R6Class(
120120 },
121121
122122 # ' @description Get the number of provenances in a tree sequence.
123+ # ' @examples
123124 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
124125 # ' ts <- ts_load(ts_file)
125- # ' ts_num_provenances(ts )
126+ # ' ts$num_provenances( )
126127 num_provenances = function () {
127128 ts_num_provenances_ptr(self $ pointer )
128129 },
129130
130131 # ' @description Get the number of populations in a tree sequence.
132+ # ' @examples
131133 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
132134 # ' ts <- ts_load(ts_file)
133- # ' ts_num_populations(ts )
135+ # ' ts$num_populations( )
134136 num_populations = function () {
135137 ts_num_populations_ptr(self $ pointer )
136138 },
137139
138140 # ' @description Get the number of migrations in a tree sequence.
141+ # ' @examples
139142 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
140143 # ' ts <- ts_load(ts_file)
141- # ' ts_num_migrations(ts )
144+ # ' ts$num_migrations( )
142145 num_migrations = function () {
143146 ts_num_migrations_ptr(self $ pointer )
144147 },
145148
146149 # ' @description Get the number of individuals in a tree sequence.
150+ # ' @examples
147151 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
148152 # ' ts <- ts_load(ts_file)
149- # ' ts_num_individuals(ts )
153+ # ' ts$num_individuals( )
150154 num_individuals = function () {
151155 ts_num_individuals_ptr(self $ pointer )
152156 },
153157
154158 # ' @description Get the number of samples (of nodes) in a tree sequence.
159+ # ' @examples
155160 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
156161 # ' ts <- ts_load(ts_file)
157- # ' ts_num_samples(ts )
162+ # ' ts$num_samples( )
158163 num_samples = function () {
159164 ts_num_samples_ptr(self $ pointer )
160165 },
161166
162167 # ' @description Get the number of nodes in a tree sequence.
168+ # ' @examples
163169 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
164170 # ' ts <- ts_load(ts_file)
165- # ' ts_num_nodes(ts )
171+ # ' ts$num_nodes( )
166172 num_nodes = function () {
167173 ts_num_nodes_ptr(self $ pointer )
168174 },
169175
170176 # ' @description Get the number of edges in a tree sequence.
177+ # ' @examples
171178 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
172179 # ' ts <- ts_load(ts_file)
173- # ' ts_num_edges(ts )
180+ # ' ts$num_edges( )
174181 num_edges = function () {
175182 ts_num_edges_ptr(self $ pointer )
176183 },
177184
178185 # ' @description Get the number of trees in a tree sequence.
186+ # ' @examples
179187 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
180188 # ' ts <- ts_load(ts_file)
181- # ' ts_num_trees(ts )
189+ # ' ts$num_trees( )
182190 num_trees = function () {
183191 ts_num_trees_ptr(self $ pointer )
184192 },
185193
186194 # ' @description Get the number of sites in a tree sequence.
195+ # ' @examples
187196 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
188197 # ' ts <- ts_load(ts_file)
189- # ' ts_num_sites(ts )
198+ # ' ts$num_sites( )
190199 num_sites = function () {
191200 ts_num_sites_ptr(self $ pointer )
192201 },
193202
194203 # ' @description Get the number of mutations in a tree sequence.
204+ # ' @examples
195205 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
196206 # ' ts <- ts_load(ts_file)
197- # ' ts_num_mutations(ts )
207+ # ' ts$num_mutations( )
198208 num_mutations = function () {
199209 ts_num_mutations_ptr(self $ pointer )
200210 },
201211
202212 # ' @description Get the sequence length.
213+ # ' @examples
203214 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
204215 # ' ts <- ts_load(ts_file)
205- # ' ts_sequence_length(ts )
216+ # ' ts$sequence_length( )
206217 sequence_length = function () {
207218 ts_sequence_length_ptr(self $ pointer )
208219 },
209220
210221 # ' @description Get the time units string.
222+ # ' @examples
211223 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
212224 # ' ts <- ts_load(ts_file)
213- # ' ts_time_units(ts )
225+ # ' ts$time_units( )
214226 time_units = function () {
215227 ts_time_units_ptr(self $ pointer )
216228 },
217229
230+ # ' @description Get the min time in node table and mutation table.
231+ # ' @examples
232+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
233+ # ' ts <- ts_load(ts_file)
234+ # ' ts$min_time()
235+ min_time = function () {
236+ ts_min_time_ptr(self $ pointer )
237+ },
238+
239+ # ' @description Get the max time in node table and mutation table.
240+ # ' @examples
241+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
242+ # ' ts <- ts_load(ts_file)
243+ # ' ts$max_time()
244+ max_time = function () {
245+ ts_max_time_ptr(self $ pointer )
246+ },
247+
218248 # ' @description Get the length of metadata in a tree sequence and its tables.
219249 # ' @return A named list with the length of metadata.
220250 # ' @examples
221- # 'ts_file <- system.file("examples/test.trees", package = "RcppTskit")
251+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
222252 # ' ts <- ts_load(ts_file)
223- # 'ts$metadata_length()
253+ # ' ts$metadata_length()
224254 metadata_length = function () {
225255 ts_metadata_length_ptr(self $ pointer )
226256 }
0 commit comments