R/gyrogroup.R
changed.
Other files ignored by Codecov
184  184  d < d/sol() 

185  185  return(1/sqrt(2*dd^2)) 

186  186  } 

187  +  
188  +  `rapidity` < function(u){ UseMethod("rapidity",u) } 

189  +  
190  +  `rapidity.default` < function(u){ # 'u' is a speed 

191  +  sol()*atanh(u/sol()) 

192  +  } 

193  +  
194  +  `rapidity.3vel` < function(u){ 

195  +  rapidity(speed(u)) 

196  +  } 

197  +  
198  +  `rapidity.4vel` < function(u){ 

199  +  g < u[,1] # gamma 

200  +  log(2*g*(g+sqrt(g^21))1)/2 

201  +  } 

202  +  
203  +  `rapidity_ur` < function(d){# d=1speed, d<<c 

204  +  d < d/sol() 

205  +  sol()*log((2d)/d)/2 

206  +  } 

207  +  
208  +  `celerity` < function(u){ UseMethod("celerity",u) } 

209  +  
210  +  `celerity.default` < function(u){ # 'u' is a speed 

211  +  u*gam(u) 

212  +  } 

213  +  
214  +  `celerity.3vel` < function(u){ 

215  +  celerity(speed(u)) 

216  +  } 

217  +  
218  +  `celerity.4vel` < function(u){ 

219  +  g < u[,1] # gamma 

220  +  sqrt(g^21) 

221  +  } 

222  +  
223  +  `celerity_ur` < function(d){# d=1speed, d<<c 

224  +  d < d/sol() 

225  +  sol()*(1d)/sqrt(d*(2d)) 

226  +  } 

227  +  
187  228  `add3` < function(u,v){ # eq 2 

188  229  jj < massage3(u,v) 

189  230  u < jj[[1]] 
Files  Coverage 

R  95.71% 
Project Totals (3 files)  95.71% 