# \donttest{
A<-c(0,0); B<-c(1,0); C<-c(1/2,sqrt(3)/2);
Te<-rbind(A,B,C)
xfence<-abs(A[1]-B[1])*.25
#how far to go at the lower and upper ends in the x-coordinate
x<-seq(min(A[1],B[1])-xfence,max(A[1],B[1])+xfence,l=3)
lnACM<-lineA2CMinTe(x)
lnACM
print(lnACM)
typeof(lnACM)
attributes(lnACM)
# }
Run the code above in your browser using DataLab