Apply suggestions from code review

R/interface.R

@@ -244,7 +244,7 @@ dust_system_state <- function(sys, index_state = NULL, index_particle = NULL,
 ##'   with 1 particle and `preserve_state_dimension = FALSE` then the
 ##'   state has size state x group.  You can omit higher dimensions,
 ##'   so if you pass a vector it will be treated as if all higher
-##'   dimensions are length 1 (oif if you have a grouped system you
+##'   dimensions are length 1 (or if you have a grouped system you
 ##'   can provide a matrix and treat it as if the third dimension had
 ##'   length 1).  If you provide any `index_` argument then the length
 ##'   of the corresponding state dimension must match the index
@@ -288,7 +288,7 @@ dust_system_state <- function(sys, index_state = NULL, index_particle = NULL,
 ##' dust_system_set_state(sys, rbind(c(1, 2, 3)), index_state = 4)
 ##' dust_system_state(sys)
 ##'
-##' # This will not work as it can it can be ambiguous what you are
+##' # This will not work as it can be ambiguous what you are
 ##' # trying to do:
 ##' #> dust_system_set_state(sys, c(1, 2, 3), index_state = 4)
 ##'