@@ -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 },
@@ -106,11 +106,14 @@ TreeSequence <- R6Class(
106106 # ' ts_r$num_samples() # 160
107107 # '
108108 # ' # Transfer the tree sequence to reticulate Python and use tskit Python API
109- # ' ts_py <- ts_r$r_to_py()
110- # ' is(ts_py)
111- # ' ts_py$num_samples # 160
112- # ' ts2_py <- ts_py$simplify(samples = c(0L, 1L, 2L, 3L))
113- # ' ts2_py$num_samples # 4
109+ # ' tskit <- get_tskit_py()
110+ # ' if (check_tskit_py(tskit)) {
111+ # ' ts_py <- ts_r$r_to_py()
112+ # ' is(ts_py)
113+ # ' ts_py$num_samples # 160
114+ # ' ts2_py <- ts_py$simplify(samples = c(0L, 1L, 2L, 3L))
115+ # ' ts2_py$num_samples # 4
116+ # ' }
114117 r_to_py = function (tskit_module = get_tskit_py(), cleanup = TRUE ) {
115118 ts_r_to_py_ptr(
116119 self $ pointer ,
@@ -120,107 +123,137 @@ TreeSequence <- R6Class(
120123 },
121124
122125 # ' @description Get the number of provenances in a tree sequence.
126+ # ' @examples
123127 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
124128 # ' ts <- ts_load(ts_file)
125- # ' ts_num_provenances(ts )
129+ # ' ts$num_provenances( )
126130 num_provenances = function () {
127131 ts_num_provenances_ptr(self $ pointer )
128132 },
129133
130134 # ' @description Get the number of populations in a tree sequence.
135+ # ' @examples
131136 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
132137 # ' ts <- ts_load(ts_file)
133- # ' ts_num_populations(ts )
138+ # ' ts$num_populations( )
134139 num_populations = function () {
135140 ts_num_populations_ptr(self $ pointer )
136141 },
137142
138143 # ' @description Get the number of migrations in a tree sequence.
144+ # ' @examples
139145 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
140146 # ' ts <- ts_load(ts_file)
141- # ' ts_num_migrations(ts )
147+ # ' ts$num_migrations( )
142148 num_migrations = function () {
143149 ts_num_migrations_ptr(self $ pointer )
144150 },
145151
146152 # ' @description Get the number of individuals in a tree sequence.
153+ # ' @examples
147154 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
148155 # ' ts <- ts_load(ts_file)
149- # ' ts_num_individuals(ts )
156+ # ' ts$num_individuals( )
150157 num_individuals = function () {
151158 ts_num_individuals_ptr(self $ pointer )
152159 },
153160
154161 # ' @description Get the number of samples (of nodes) in a tree sequence.
162+ # ' @examples
155163 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
156164 # ' ts <- ts_load(ts_file)
157- # ' ts_num_samples(ts )
165+ # ' ts$num_samples( )
158166 num_samples = function () {
159167 ts_num_samples_ptr(self $ pointer )
160168 },
161169
162170 # ' @description Get the number of nodes in a tree sequence.
171+ # ' @examples
163172 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
164173 # ' ts <- ts_load(ts_file)
165- # ' ts_num_nodes(ts )
174+ # ' ts$num_nodes( )
166175 num_nodes = function () {
167176 ts_num_nodes_ptr(self $ pointer )
168177 },
169178
170179 # ' @description Get the number of edges in a tree sequence.
180+ # ' @examples
171181 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
172182 # ' ts <- ts_load(ts_file)
173- # ' ts_num_edges(ts )
183+ # ' ts$num_edges( )
174184 num_edges = function () {
175185 ts_num_edges_ptr(self $ pointer )
176186 },
177187
178188 # ' @description Get the number of trees in a tree sequence.
189+ # ' @examples
179190 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
180191 # ' ts <- ts_load(ts_file)
181- # ' ts_num_trees(ts )
192+ # ' ts$num_trees( )
182193 num_trees = function () {
183194 ts_num_trees_ptr(self $ pointer )
184195 },
185196
186197 # ' @description Get the number of sites in a tree sequence.
198+ # ' @examples
187199 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
188200 # ' ts <- ts_load(ts_file)
189- # ' ts_num_sites(ts )
201+ # ' ts$num_sites( )
190202 num_sites = function () {
191203 ts_num_sites_ptr(self $ pointer )
192204 },
193205
194206 # ' @description Get the number of mutations in a tree sequence.
207+ # ' @examples
195208 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
196209 # ' ts <- ts_load(ts_file)
197- # ' ts_num_mutations(ts )
210+ # ' ts$num_mutations( )
198211 num_mutations = function () {
199212 ts_num_mutations_ptr(self $ pointer )
200213 },
201214
202215 # ' @description Get the sequence length.
216+ # ' @examples
203217 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
204218 # ' ts <- ts_load(ts_file)
205- # ' ts_sequence_length(ts )
219+ # ' ts$sequence_length( )
206220 sequence_length = function () {
207221 ts_sequence_length_ptr(self $ pointer )
208222 },
209223
210224 # ' @description Get the time units string.
225+ # ' @examples
211226 # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
212227 # ' ts <- ts_load(ts_file)
213- # ' ts_time_units(ts )
228+ # ' ts$time_units( )
214229 time_units = function () {
215230 ts_time_units_ptr(self $ pointer )
216231 },
217232
233+ # ' @description Get the min time in node table and mutation table.
234+ # ' @examples
235+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
236+ # ' ts <- ts_load(ts_file)
237+ # ' ts$min_time()
238+ min_time = function () {
239+ ts_min_time_ptr(self $ pointer )
240+ },
241+
242+ # ' @description Get the max time in node table and mutation table.
243+ # ' @examples
244+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
245+ # ' ts <- ts_load(ts_file)
246+ # ' ts$max_time()
247+ max_time = function () {
248+ ts_max_time_ptr(self $ pointer )
249+ },
250+
218251 # ' @description Get the length of metadata in a tree sequence and its tables.
219252 # ' @return A named list with the length of metadata.
220253 # ' @examples
221- # 'ts_file <- system.file("examples/test.trees", package = "RcppTskit")
254+ # ' ts_file <- system.file("examples/test.trees", package = "RcppTskit")
222255 # ' ts <- ts_load(ts_file)
223- # 'ts$metadata_length()
256+ # ' ts$metadata_length()
224257 metadata_length = function () {
225258 ts_metadata_length_ptr(self $ pointer )
226259 }
0 commit comments