library(boot)
filen<-"short2A.txt"
print(filen)
read.table(filen,header = TRUE,row.names=1,sep=",")->tab
print("tab")
print(tab)
v<-scan(file=filen,what=list(v="V"),flush=TRUE,sep=",")
names<-v$v[2:length(v$v)]
print("names")
print(names)
print("f")
f<-tab[,1]
print(f)

A1<-t(tab[,2:5])
e<-rep(0,length(f))
e[2]<-1
A1<-rbind(A1,e)
print("A1")
print(A1)
b1<-c(rep(100,4),1)
print(b1)
A2<-t(tab[,6:11])
e<-rep(0,length(f))
e[5]<-1
A2<-rbind(A2,e)
b2<-c(rep(100,6),4)
print(A2)
print(b2)
print("A3")
e4<-rep(0,length(f))
e4[4]<-1
e1<-rep(0,length(f))
e1[1]<-1
e3<-rep(0,length(f))
e3[3]<-1
A3<-rbind(e4,e1,e3)
b3<-c(0,0,0)
print(A3)
print(b3)
ss<-simplex(f,A1,b1,A2,b2,A3,b3)
