tests/ape2ouch.R

In kingaa/ouch: Ornstein-Uhlenbeck Models for Phylogenetic Comparative Hypotheses

library(ouch)
if (require(ape)) {

  read.tree(text="(((((((((((jr:8.781304,((wy:1.392306,df:1.392306):0.822574,be:2.214881):6.566424):0.278293,zp:9.059597):13.613731,(lm:1.938566,vx:1.938566):20.734762):13.999061,(bl:32.050066,((gg:2.978101,zu:2.978101):1.161046,he:4.139147):27.910918):4.622323):38.931946,hb:75.604335):4.014907,((gn:32.034881,((((mv:11.334652,mx:11.334652):0.227445,xc:11.562098):3.026589,(((no:0.663049,(lu:0,up:0):0.663049):0.109195,ao:0.772244):6.749141,(gd:2.813979,cd:2.813979):4.707406):7.067302):11.057096,((ja:3.007868,av:3.007868):0.532835,dc:3.540703):22.105079):6.389099):21.304507,(((yk:5.07754,nm:5.07754):13.715696,(ek:16.936424,(hy:9.146995,vg:9.146995):7.789429):1.856812):30.119067,(pt:29.205819,qv:29.205819):19.706484):4.427085):26.279854):205.062945,((((((((jt:0.321018,wo:0.321018):31.756299,(mr:3.754542,rp:3.754542):28.322775):11.772532,((wu:1.14345,pq:1.14345):39.606386,(((yp:0.220862,ak:0.220862):4.401771,qw:4.622633):2.404496,pi:7.027129):33.722707):3.100014):2.660389,(((el:8.415839,((jx:0.95869,pj:0.95869):4.465722,(zw:1.392219,ms:1.392219):4.032193):2.991427):8.960595,((nz:1.710768,iu:1.710768):0.142772,la:1.853541):15.522894):10.308484,((hs:0.722615,(sp:0.295121,bh:0.295121):0.427495):8.363578,ea:9.086193):18.598725):18.82532):9.064211,ne:55.57445):66.45179,((rh:8.501046,(ir:1.333632,aa:1.333632):7.167414):0.360209,kc:8.861255):113.164986):35.918065,((uc:31.747067,((va:22.935164,(tp:19.501595,((ih:0.003534,wr:0.003534):14.916312,(ap:5.193779,(vz:2.367579,ec:2.367579):2.8262):9.726067):4.581749):3.433569):6.630739,(((oa:2.823251,(qt:1.622158,np:1.622158):1.201093):2.049696,(pp:0.012003,xp:0.012003):4.860944):10.150514,oh:15.023462):14.542441):2.181164):126.116104,gh:157.863171):0.081134):92.368499,(((xo:24.364394,qe:24.364394):14.415291,(rx:24.59571,(uh:15.384859,mh:15.384859):9.210851):14.183975):87.05391,((po:33.845197,(ix:1.138813,cf:1.138813):32.706385):65.559915,(ef:4.245376,(fw:3.803393,bf:3.803393):0.441983):95.159737):26.428483):124.479209):34.369383):60.610451,((wp:33.75292,ww:33.75292):2.313886,fm:36.066806):309.225833):174.503449,((((jp:19.212581,(iy:1.281197,(ha:0.00204,ya:0.00204):1.279158):17.931383):1.141845,(dm:14.723068,hp:14.723068):5.631358):3.444833,(((yy:2.48014,(zf:0.831908,sc:0.831908):1.648232):5.006709,wc:7.486849):2.688886,ob:10.175734):13.623525):27.643621,(wl:20.761594,rz:20.761594):30.681286):468.353207):0):0);") -> t

  plot(ape2ouch(t),xlab='',xaxt='n',node.names=FALSE)

  ape2ouch(t,scale=33) -> tt
  plot(tt)

  try(ape2ouch("tree"))
  try(ape2ouch(t,scale=NA))
  try(ape2ouch(t,scale=NA_real_))
  try(ape2ouch(t,scale="bob"))

}