mutolisp

#include <Process.h>

void setup() {
  Bridge.begin();
  Serial.begin(9600);
  while (!Serial)
    ;

  Serial.print("Patching...");

mutolisp

setwd("/Users/easss/Desktop/RRTbatch/")

library(ape)
library(pegas)
# list file in current directory, where the file is end with .phy
filelist <- list.files(path=".", pattern=".phy$")
# create a container to store output data
out_tab <- matrix(0, nrow=length(filelist), ncol=3)
colnames(out_tab) <- c("dna_seq", "Chi", "Pval")